Commit 61ed9c29 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

(F)SLIT -> (f)sLit in CgPrimOp

parent c9e2d975
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment