Commit ff05c281 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-09-12 16:00:43 by simonmar]

raiseAsync_: raise_info closure is header + MIN_UPD_SIZE, not header +
1 words.  (MIN_UPD_SIZE is 1 in the HEAD so this has no effect, but
it'll make a difference on STABLE).
parent 3d07a889
......@@ -3816,7 +3816,7 @@ raiseAsync_(StgTSO *tso, StgClosure *exception, rtsBool stop_at_atomically)
// we've got an exception to raise, so let's pass it to the
// handler in this frame.
//
raise = (StgThunk *)allocate(sizeofW(StgThunk)+1);
raise = (StgThunk *)allocate(sizeofW(StgThunk)+MIN_UPD_SIZE);
TICK_ALLOC_SE_THK(1,0);
SET_HDR(raise,&stg_raise_info,cf->header.prof.ccs);
raise->payload[0] = exception;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment