Mercurial > pub > dyncall > dyncall
view test/callback_suite/mk-cases.lua @ 533:71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
* integration of aggregate-by-value (struct, union) support patch for x64 (win and sysv)
* windows/x64 asm additions to specify how stack unwinds (help for debuggers, exception handling, etc.)
* see Changelog for details
- new calling convention modes for thiscalls (platform agnostic, was specific before)
* new signature character for platform agnostic thiscalls ('*' / DC_SIGCHAR_CC_THISCALL)
- dcCallF(), dcVCallF(), dcArgF() and dcVArgF():
* added support for aggregates-by-value (wasn't part of patch)
* change that those functions don't implicitly call dcReset() anymore, which was unflexible (breaking change)
- added macros to feature test implementation for aggregate-by-value and syscall support
- changed libdyncall_s.lib and libdyncallback_s.lib order in callback test makefiles, as some toolchains are picky about order
- doc:
* man page updates to describe aggregate interface
* manual overview changes to highlight platforms with aggregate-by-value support
- test/plain: replaced tests w/ old/stale sctruct interface with new aggregate one
author | Tassilo Philipp |
---|---|
date | Thu, 21 Apr 2022 13:35:47 +0200 |
parents | a0ff5dff090b |
children |
line wrap: on
line source
require "config" -- use shared helpers to generate cases package.path = '../common/?.lua;' .. package.path require"mk-cases" function mkcase(id,sig) local sig = trim(sig) local rtype = string.sub(sig, -1) local i = 1 local args = { rtype } while i < #sig do c = string.sub(sig, i, i) if(c == ')') then break end if(c == '_') then -- filter out prefixes i = i + 1 else args[#args+1] = c end i = i + 1 end return "F" .. (#args-1) .. "(f" .. id .. "," .. table.concat(args,',') .. ")\n" end function mkall() -- case macros for i = minargs, maxargs do local line = "#define F" .. i .. "(ID,R" local argdef = { } local argset = { } if i > 0 then line = line .. "," for j = 0, i-1 do argdef[#argdef+1] = "M" .. j argset[#argset+1] = "K_##M" .. j .. "[" .. j .. "]" end end line = line .. table.concat(argdef,",") .. ") void ID(void* addr) { write_V_##R(" .. i .. ", ((" .. api .. " R(*)(" .. table.concat(argdef,",") .. "))addr)(" .. table.concat(argset,",") .. "));}\n" io.write(line) end -- cases local lineno = 0 local sigtab = { } local cases = '' for line in io.lines() do local sig = trim(line) cases = cases..mkcase(lineno,sig) sigtab[#sigtab+1] = sig lineno = lineno + 1 end io.write(cases) io.write(mkfuntab(lineno, 'f', 'funptr', 'G_funtab', false)) io.write(mksigtab(sigtab, ccprefix, 'G_sigtab')) io.write("int G_maxargs = "..maxargs..";\n") end mkall()