diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 14:07:41 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 14:07:41 +0000 |
| commit | 61ed9c29ee3bdac14fb6ee7d37f979f8258d7a71 (patch) | |
| tree | a598d74b096d721bee79b75f2e90fb7eed2b077f /compiler/codeGen | |
| parent | c9e2d975a574c1a1927b299816219e600ada3dc8 (diff) | |
| download | haskell-61ed9c29ee3bdac14fb6ee7d37f979f8258d7a71.tar.gz | |
(F)SLIT -> (f)sLit in CgPrimOp
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CgPrimOp.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/codeGen/CgPrimOp.hs b/compiler/codeGen/CgPrimOp.hs index 207ffe27d7..3a3ea12f0e 100644 --- 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)) |