From 867426b744fd4bb73f518924cb2cc051b0c55d5a Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 13:57:28 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in CmmCPSGen --- compiler/cmm/CmmCPSGen.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/compiler/cmm/CmmCPSGen.hs b/compiler/cmm/CmmCPSGen.hs index 0d409ab..86eebfb 100644 --- a/compiler/cmm/CmmCPSGen.hs +++ b/compiler/cmm/CmmCPSGen.hs @@ -13,8 +13,6 @@ module CmmCPSGen ( ContinuationFormat(..), ) where -#include "HsVersions.h" - import Cmm import CLabel import CmmBrokenBlock -- Data types only @@ -265,8 +263,8 @@ foreignCall uniques call results arguments = -- ----------------------------------------------------------------------------- -- Save/restore the thread state in the TSO -suspendThread = CmmLit (CmmLabel (mkRtsCodeLabel SLIT("suspendThread"))) -resumeThread = CmmLit (CmmLabel (mkRtsCodeLabel SLIT("resumeThread"))) +suspendThread = CmmLit (CmmLabel (mkRtsCodeLabel (sLit "suspendThread"))) +resumeThread = CmmLit (CmmLabel (mkRtsCodeLabel (sLit "resumeThread"))) -- This stuff can't be done in suspendThread/resumeThread, because it -- refers to global registers which aren't available in the C world. -- 1.7.10.4