diff options
Diffstat (limited to 'otherlibs/win32unix/winwait.c')
-rw-r--r-- | otherlibs/win32unix/winwait.c | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/otherlibs/win32unix/winwait.c b/otherlibs/win32unix/winwait.c index 16fbece8f..07bed46f1 100644 --- a/otherlibs/win32unix/winwait.c +++ b/otherlibs/win32unix/winwait.c @@ -22,18 +22,15 @@ static value alloc_process_status(pid, status) int pid, status; { - value st, res; - Push_roots(r, 1); + value res; + value st = alloc(1, 0); - - st = alloc(1, 0); - Field(st, 0) = Val_int(status); - - r[0] = st; - res = alloc_tuple(2); - Field(res, 0) = Val_int(pid); - Field(res, 1) = r[0]; - Pop_roots(); + Begin_root (st); + Field(st, 0) = Val_int(status); + res = alloc_tuple(2); + Field(res, 0) = Val_int(pid); + Field(res, 1) = st; + End_roots(); return res; } |