diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-10-18 08:38:53 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-10-18 08:38:53 +0000 |
| commit | 984a288119983912d40a80845c674ee4b83a19ce (patch) | |
| tree | c91e06a102ab2831d3481bb489c8f59a756f1373 /compiler/codeGen/CgForeignCall.hs | |
| parent | 6e232f498ba600e7d7cc4938f5f2e6ce5d300bbc (diff) | |
| download | haskell-984a288119983912d40a80845c674ee4b83a19ce.tar.gz | |
Merge RtsLabelInfo.Rts* with RtsLabelInfo.Rts*FS
Diffstat (limited to 'compiler/codeGen/CgForeignCall.hs')
| -rw-r--r-- | compiler/codeGen/CgForeignCall.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/CgForeignCall.hs b/compiler/codeGen/CgForeignCall.hs index 957651d3ba..593de4e829 100644 --- a/compiler/codeGen/CgForeignCall.hs +++ b/compiler/codeGen/CgForeignCall.hs @@ -144,8 +144,8 @@ emitForeignCall' safety results target args vols _srt ret emitLoadThreadState suspendThread, resumeThread :: CmmExpr -suspendThread = CmmLit (CmmLabel (mkRtsCodeLabel (sLit "suspendThread"))) -resumeThread = CmmLit (CmmLabel (mkRtsCodeLabel (sLit "resumeThread"))) +suspendThread = CmmLit (CmmLabel (mkRtsCodeLabel (fsLit "suspendThread"))) +resumeThread = CmmLit (CmmLabel (mkRtsCodeLabel (fsLit "resumeThread"))) -- we might need to load arguments into temporaries before |