Follow PackageTarget change in byte code generator

parent e7ab9c68
......@@ -1028,6 +1028,20 @@ generateCCall d0 s p (CCallSpec target cconv _) fn args_r_to_l
= case target of
DynamicTarget
-> return (False, panic "ByteCodeGen.generateCCall(dyn)")
PackageTarget target _
-> do res <- ioToBc (lookupStaticPtr stdcall_adj_target)
return (True, res)
where
stdcall_adj_target
#ifdef mingw32_TARGET_OS
| StdCallConv <- cconv
= let size = fromIntegral a_reps_sizeW * wORD_SIZE in
mkFastString (unpackFS target ++ '@':show size)
#endif
| otherwise
= target
StaticTarget target
-> do res <- ioToBc (lookupStaticPtr stdcall_adj_target)
return (True, res)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment