From 7ba6ab2bb825cb7946ec09fdc487d4ba9c0bca4b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 1 Apr 2006 12:57:12 +0000 Subject: [PATCH] missing some thread ku.k registers in overflow, and wrong size for i registers svn: r2570 --- src/mzscheme/src/fun.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c index 43400c68f5..6d8a9744cb 100644 --- a/src/mzscheme/src/fun.c +++ b/src/mzscheme/src/fun.c @@ -1296,16 +1296,18 @@ void *top_level_do(void *(*k)(void), int eb, void *sj_start) pp = scheme_current_thread; pp->overflow_reply = NULL; /* means "continue the error" */ } else { - void *p1, *p2, *p3, *p4; - int i1, i2, i3; + void *p1, *p2, *p3, *p4, *p5; + long i1, i2, i3, i4; p1 = pp->ku.k.p1; p2 = pp->ku.k.p2; p3 = pp->ku.k.p3; p4 = pp->ku.k.p4; + p5 = pp->ku.k.p5; i1 = pp->ku.k.i1; i2 = pp->ku.k.i2; i3 = pp->ku.k.i3; + i4 = pp->ku.k.i4; /* stack overflow is a lot of work; force a sleep */ scheme_thread_block(0); @@ -1315,9 +1317,11 @@ void *top_level_do(void *(*k)(void), int eb, void *sj_start) pp->ku.k.p2 = p2; pp->ku.k.p3 = p3; pp->ku.k.p4 = p4; + pp->ku.k.p5 = p5; pp->ku.k.i1 = i1; pp->ku.k.i2 = i2; pp->ku.k.i3 = i3; + pp->ku.k.i4 = i4; { Overflow_K_Proc f = scheme_overflow_k;