Mercurial > pub > dyncall > dyncall
diff test/callback_suite/mk-cases.lua @ 507:5a3c07a0f376
cleanups
author | Tassilo Philipp |
---|---|
date | Sat, 09 Apr 2022 14:00:59 +0200 |
parents | 049e04af13c8 |
children | f3d44195dbdf |
line wrap: on
line diff
--- a/test/callback_suite/mk-cases.lua Sat Apr 09 13:57:27 2022 +0200 +++ b/test/callback_suite/mk-cases.lua Sat Apr 09 14:00:59 2022 +0200 @@ -2,7 +2,7 @@ function trim(l) return l:gsub("^%s+",""):gsub("%s+$","") end function mkcase(id,sig) - local nargs = string.len(sig) - 2 -- @@@STRUCT wrong, b/c ignores callconv prefixes + local nargs = string.len(sig) - 2 local rtype = string.sub(sig, nargs + 2, nargs + 2) local s = "F" .. nargs .. "(f" .. id .. "," .. rtype for i = 1, nargs do @@ -13,7 +13,6 @@ return s end --- @@@STRUCT same as in call_suite{,_aggrs}, share? function mkfuntab(n) local s = { "funptr G_funtab[] = {\n"} for i = 0, n-1 do @@ -23,7 +22,6 @@ return table.concat(s,"") end --- @@@STRUCT same as in call_suite{,_aggrs}, share? function mksigtab(sigs) local s = { "const char * G_sigtab[] = {\n"} for k,v in pairs(sigs) do @@ -34,7 +32,7 @@ end function mkall() - -- force minargs for ordered mode @@@STRUCT why? + -- force minargs for ordered mode if mode == "ordered" then minargs = 0 end