diff options
| author | simonmar <unknown> | 1999-11-05 12:28:06 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-11-05 12:28:06 +0000 |
| commit | 0acf55e051292a01ca35b4401d7a357a5a73f9b4 (patch) | |
| tree | 70c8642d58fc01e335029457e6c7f56b1dc26a1c /ghc/compiler | |
| parent | d1650dab94b30dff6785874cddd4e758f6de292e (diff) | |
| download | haskell-0acf55e051292a01ca35b4401d7a357a5a73f9b4.tar.gz | |
[project @ 1999-11-05 12:28:05 by simonmar]
_ccall_GC wibbles
Diffstat (limited to 'ghc/compiler')
| -rw-r--r-- | ghc/compiler/absCSyn/PprAbsC.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs index ae61d06fd6..197bee54cc 100644 --- a/ghc/compiler/absCSyn/PprAbsC.lhs +++ b/ghc/compiler/absCSyn/PprAbsC.lhs @@ -787,8 +787,8 @@ pprCCall op@(CCallOp op_str is_asm may_gc cconv) args results vol_regs where (pp_saves, pp_restores) = ppr_vol_regs vol_regs (pp_save_context, pp_restore_context) - | may_gc = ( text "do { I_ id; SaveThreadState(); id = suspendThread(BaseReg);" - , text "BaseReg = resumeThread(id); LoadThreadState();} while(0);" + | may_gc = ( text "{ I_ id; SUSPEND_THREAD(id);" + , text "RESUME_THREAD(id);}" ) | otherwise = ( pp_basic_saves $$ pp_saves, pp_basic_restores $$ pp_restores) |