projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
41515d4
)
(F)SLIT -> (f)sLit in CgForeignCall
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 14:02:13 +0000
(14:02 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 14:02:13 +0000
(14:02 +0000)
compiler/codeGen/CgForeignCall.hs
patch
|
blob
|
history
diff --git
a/compiler/codeGen/CgForeignCall.hs
b/compiler/codeGen/CgForeignCall.hs
index
e9a542e
..
ac8e99e
100644
(file)
--- a/
compiler/codeGen/CgForeignCall.hs
+++ b/
compiler/codeGen/CgForeignCall.hs
@@
-24,8
+24,6
@@
module CgForeignCall (
emitOpenNursery,
) where
emitOpenNursery,
) where
-#include "HsVersions.h"
-
import StgSyn
import CgProf
import CgBindery
import StgSyn
import CgProf
import CgBindery
@@
-153,8
+151,8
@@
emitForeignCall' safety results target args vols srt ret
stmtsC caller_load
emitLoadThreadState
stmtsC caller_load
emitLoadThreadState
-suspendThread = CmmLit (CmmLabel (mkRtsCodeLabel SLIT("suspendThread")))
-resumeThread = CmmLit (CmmLabel (mkRtsCodeLabel SLIT("resumeThread")))
+suspendThread = CmmLit (CmmLabel (mkRtsCodeLabel (sLit "suspendThread")))
+resumeThread = CmmLit (CmmLabel (mkRtsCodeLabel (sLit "resumeThread")))
-- we might need to load arguments into temporaries before
-- we might need to load arguments into temporaries before