projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-04-29 14:03:38 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
nativeGen
/
StixMacro.lhs
diff --git
a/ghc/compiler/nativeGen/StixMacro.lhs
b/ghc/compiler/nativeGen/StixMacro.lhs
index
a57c951
..
dfa2ecc
100644
(file)
--- a/
ghc/compiler/nativeGen/StixMacro.lhs
+++ b/
ghc/compiler/nativeGen/StixMacro.lhs
@@
-72,7
+72,7
@@
adding an indirection.
macroCode UPD_CAF args
= let
[cafptr,bhptr] = map amodeToStix args
macroCode UPD_CAF args
= let
[cafptr,bhptr] = map amodeToStix args
- new_caf = StVoidable (StCall (Left SLIT("newCAF")) CCallConv VoidRep [cafptr])
+ new_caf = StVoidable (StCall (Left FSLIT("newCAF")) CCallConv VoidRep [cafptr])
a1 = StAssignMem PtrRep (StIndex PtrRep cafptr fixedHS) bhptr
a2 = StAssignMem PtrRep cafptr ind_static_info
in
a1 = StAssignMem PtrRep (StIndex PtrRep cafptr fixedHS) bhptr
a2 = StAssignMem PtrRep cafptr ind_static_info
in
@@
-178,7
+178,7
@@
macroCode REGISTER_IMPORT [arg]
macroCode REGISTER_FOREIGN_EXPORT [arg]
= returnUs (
\xs -> StVoidable (
macroCode REGISTER_FOREIGN_EXPORT [arg]
= returnUs (
\xs -> StVoidable (
- StCall (Left SLIT("getStablePtr")) CCallConv VoidRep
+ StCall (Left FSLIT("getStablePtr")) CCallConv VoidRep
[amodeToStix arg]
)
: xs
[amodeToStix arg]
)
: xs