X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FStixMacro.lhs;fp=ghc%2Fcompiler%2FnativeGen%2FStixMacro.lhs;h=dfa2eccf07af241b535424d5b8b08aabf8b39594;hb=b085ee40c7f265a5977ea6ec1c415e573be5ff8c;hp=a57c95128a33ef37d86a66dbf5ad95a5e677d99f;hpb=f6124b6ca2ec9820f7eb454dbcffbf4b8b790d4f;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/StixMacro.lhs b/ghc/compiler/nativeGen/StixMacro.lhs
index a57c951..dfa2ecc 100644
--- 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
-	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
@@ -178,7 +178,7 @@ macroCode REGISTER_IMPORT [arg]
 macroCode REGISTER_FOREIGN_EXPORT [arg]
    = returnUs (
 	\xs -> StVoidable (
-                  StCall (Left SLIT("getStablePtr")) CCallConv VoidRep 
+                  StCall (Left FSLIT("getStablePtr")) CCallConv VoidRep 
                          [amodeToStix arg]
                )
 	     : xs