macroCode UPD_CAF args
= let
[cafptr,bhptr] = map amodeToStix args
- new_caf = StVoidable (StCall SLIT("newCAF") CCallConv VoidRep [cafptr])
+ new_caf = StVoidable (StCall (Left SLIT("newCAF")) CCallConv VoidRep [cafptr])
a1 = StAssignMem PtrRep (StIndex PtrRep cafptr fixedHS) bhptr
a2 = StAssignMem PtrRep cafptr ind_static_info
in
macroCode REGISTER_FOREIGN_EXPORT [arg]
= returnUs (
\xs -> StVoidable (
- StCall SLIT("getStablePtr") CCallConv VoidRep [amodeToStix arg]
+ StCall (Left SLIT("getStablePtr")) CCallConv VoidRep
+ [amodeToStix arg]
)
: xs
)