]
DNCall (DNCallSpec isStatic kind assem nm argTys resTy) ->
let
- target = StaticTarget (mkFastString nm)
resultVar = "_ccall_result"
-
hasAssemArg = isStatic || kind == DNConstructor
invokeOp =
case kind of
call_str tgt
= case tgt of
- CasmTarget str -> unpackFS str
StaticTarget fn -> mk_ccall_str (pprCLabelString fn) ccall_args
DynamicTarget -> mk_ccall_str dyn_fun (tail ccall_args)