[project @ 2002-04-29 14:03:38 by simonmar]

[ghc-hetmet.git] / ghc / compiler / nativeGen / StixPrim.lhs

diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index 0610bed..79d4da2 100644 (file)
--- a/ghc/compiler/nativeGen/StixPrim.lhs
+++ b/ghc/compiler/nativeGen/StixPrim.lhs
@@ -82,10 +82,10 @@ foreignCallCode lhs call@(CCall (CCallSpec ctarget cconv safety)) rhs
        | otherwise             = 0
     
        suspend = StAssignReg IntRep id 
-                (StCall (Left SLIT("suspendThread")) {-no:cconv-} CCallConv
+                (StCall (Left FSLIT("suspendThread")) {-no:cconv-} CCallConv
                          IntRep [StReg stgBaseReg, StInt is_threadSafe ])
        resume  = StVoidable 
-                 (StCall (Left SLIT("resumeThread")) {-no:cconv-} CCallConv
+                 (StCall (Left FSLIT("resumeThread")) {-no:cconv-} CCallConv
                          VoidRep [StReg id, StInt is_threadSafe ])
     in
     returnUs (\xs -> save (suspend : ccall : resume : load xs))