emitOpenNursery,
) where
-#include "HsVersions.h"
-
import StgSyn
import CgProf
import CgBindery
import Constants
import StaticFlags
import Outputable
+import FastString
import Control.Monad
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