diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 14:02:13 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 14:02:13 +0000 |
| commit | 65de09cddd0e61706f9394b23d8dc06596fc0503 (patch) | |
| tree | 463f260c4e31f70a282e1369070f38e1918dc8d2 /compiler/codeGen/CgForeignCall.hs | |
| parent | 41515d440265b637abc24e333df5ecfb74659aff (diff) | |
| download | haskell-65de09cddd0e61706f9394b23d8dc06596fc0503.tar.gz | |
(F)SLIT -> (f)sLit in CgForeignCall
Diffstat (limited to 'compiler/codeGen/CgForeignCall.hs')
| -rw-r--r-- | compiler/codeGen/CgForeignCall.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/codeGen/CgForeignCall.hs b/compiler/codeGen/CgForeignCall.hs index e9a542e5d1..ac8e99eafe 100644 --- a/compiler/codeGen/CgForeignCall.hs +++ b/compiler/codeGen/CgForeignCall.hs @@ -24,8 +24,6 @@ module CgForeignCall ( emitOpenNursery, ) where -#include "HsVersions.h" - import StgSyn import CgProf import CgBindery @@ -153,8 +151,8 @@ emitForeignCall' safety results target args vols srt ret 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 |