diff options
Diffstat (limited to 'rts/StgMiscClosures.cmm')
| -rw-r--r-- | rts/StgMiscClosures.cmm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index 6c1edf70b5..320816bfbf 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -59,11 +59,14 @@ INFO_TABLE_RET (stg_restore_cccs, RET_SMALL, W_ info_ptr, W_ cccs) Support for the bytecode interpreter. ------------------------------------------------------------------------- */ -/* 9 bits of return code for constructors created by the interpreter. */ -stg_interp_constr_entry (P_ ret) -{ - return (ret); -} +/* 7 bits of return code for constructors created by the interpreter. */ +stg_interp_constr1_entry (P_ ret) { return (ret + 1); } +stg_interp_constr2_entry (P_ ret) { return (ret + 2); } +stg_interp_constr3_entry (P_ ret) { return (ret + 3); } +stg_interp_constr4_entry (P_ ret) { return (ret + 4); } +stg_interp_constr5_entry (P_ ret) { return (ret + 5); } +stg_interp_constr6_entry (P_ ret) { return (ret + 6); } +stg_interp_constr7_entry (P_ ret) { return (ret + 7); } /* Some info tables to be used when compiled code returns a value to the interpreter, i.e. the interpreter pushes one of these onto the |