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:
c9e2d97
)
(F)SLIT -> (f)sLit in CgPrimOp
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 14:07:41 +0000
(14:07 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 14:07:41 +0000
(14:07 +0000)
compiler/codeGen/CgPrimOp.hs
patch
|
blob
|
history
diff --git
a/compiler/codeGen/CgPrimOp.hs
b/compiler/codeGen/CgPrimOp.hs
index
207ffe2
..
3a3ea12
100644
(file)
--- a/
compiler/codeGen/CgPrimOp.hs
+++ b/
compiler/codeGen/CgPrimOp.hs
@@
-17,8
+17,6
@@
module CgPrimOp (
cgPrimOp
) where
-#include "HsVersions.h"
-
import ForeignCall
import ClosureInfo
import StgSyn
@@
-132,7
+130,7
@@
emitPrimOp [res] ParOp [arg] live
NoC_SRT -- No SRT b/c we do PlayRisky
CmmMayReturn
where
- newspark = CmmLit (CmmLabel (mkRtsCodeLabel SLIT("newSpark")))
+ newspark = CmmLit (CmmLabel (mkRtsCodeLabel (sLit "newSpark")))
emitPrimOp [res] ReadMutVarOp [mutv] live
= stmtC (CmmAssign (CmmLocal res) (cmmLoadIndexW mutv fixedHdrSize))