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 /includes/Cmm.h | |
| parent | d81d70ba2335dcc24570cdd98bf0ff258b3bc369 (diff) | |
| download | haskell-2471a6bacccdf4d187aa4b31c382d5a5094b6fa5.tar.gz | |
Use canned heap checks to save a few bytes of code
Diffstat (limited to 'includes/Cmm.h')
| -rw-r--r-- | includes/Cmm.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/includes/Cmm.h b/includes/Cmm.h index 9cb2dbce4b..2b5d93b2d1 100644 --- a/includes/Cmm.h +++ b/includes/Cmm.h @@ -381,6 +381,9 @@ TICK_ALLOC_PRIM(SIZEOF_StgHeader,bytes-SIZEOF_StgHeader,0); \ CCCS_ALLOC(bytes); +#define ALLOC_PRIM_(bytes,fun) \ + ALLOC_PRIM_WITH_CUSTOM_FAILURE(bytes,GC_PRIM(fun)); + #define ALLOC_PRIM_P(bytes,fun,arg) \ ALLOC_PRIM_WITH_CUSTOM_FAILURE(bytes,GC_PRIM_P(fun,arg)); |