diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-23 09:45:05 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-23 11:13:30 +0100 |
| commit | 2471a6bacccdf4d187aa4b31c382d5a5094b6fa5 (patch) | |
| tree | 04f30a39893b7e807c192d62c14d871c2f349ce2 /rts | |
| parent | d81d70ba2335dcc24570cdd98bf0ff258b3bc369 (diff) | |
| download | haskell-2471a6bacccdf4d187aa4b31c382d5a5094b6fa5.tar.gz | |
Use canned heap checks to save a few bytes of code
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/PrimOps.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 6cba3f53fc..993088ad9e 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -252,7 +252,7 @@ stg_newMutVarzh ( gcptr init ) { W_ mv; - ALLOC_PRIM (SIZEOF_StgMutVar); + ALLOC_PRIM_P (SIZEOF_StgMutVar, stg_newMutVarzh, init); mv = Hp - SIZEOF_StgMutVar + WDS(1); SET_HDR(mv,stg_MUT_VAR_DIRTY_info,CCCS); @@ -1154,7 +1154,7 @@ stg_newMVarzh () { W_ mvar; - ALLOC_PRIM (SIZEOF_StgMVar); + ALLOC_PRIM_ (SIZEOF_StgMVar, stg_newMVarzh); mvar = Hp - SIZEOF_StgMVar + WDS(1); SET_HDR(mvar,stg_MVAR_DIRTY_info,CCCS); |