= 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)