diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-29 12:43:45 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-29 14:22:27 +0000 |
| commit | f44f725e69999a9ca0fabdcf4f24e3d47e80685b (patch) | |
| tree | cfe6a882e916e5d913360cec319e37904b2352da /rts/HeapStackCheck.cmm | |
| parent | 50de6034343abc93a7b01daccff34121042c0e7c (diff) | |
| download | haskell-f44f725e69999a9ca0fabdcf4f24e3d47e80685b.tar.gz | |
Another fix to the stg_enter_checkbh frame
Diffstat (limited to 'rts/HeapStackCheck.cmm')
| -rw-r--r-- | rts/HeapStackCheck.cmm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm index 7b08f781c8..d80e101c59 100644 --- a/rts/HeapStackCheck.cmm +++ b/rts/HeapStackCheck.cmm @@ -167,7 +167,14 @@ __stg_gc_enter_1 be an orphaned BLOCKING_QUEUE now. -------------------------------------------------------------------------- */ -INFO_TABLE_RET( stg_enter_checkbh, RET_SMALL, P_ unused) +/* The stg_enter_checkbh frame has the same shape as an update frame: */ +#if defined(PROFILING) +#define UPD_FRAME_PARAMS W_ unused1, W_ unused2, P_ unused3 +#else +#define UPD_FRAME_PARAMS P_ unused1 +#endif + +INFO_TABLE_RET( stg_enter_checkbh, RET_SMALL, UPD_FRAME_PARAMS) { R1 = StgUpdateFrame_updatee(Sp); Sp = Sp + SIZEOF_StgUpdateFrame; |