From b7e3d0927fe0821e919ccc4a66ef149bddcc20de Mon Sep 17 00:00:00 2001 From: glenda Date: Tue, 13 Sep 2022 18:30:06 +0000 Subject: Switch to rfork instead of libthread --- error.c | 4 ---- 1 file changed, 4 deletions(-) (limited to 'error.c') diff --git a/error.c b/error.c index 5b7f386..4d04696 100644 --- a/error.c +++ b/error.c @@ -1,6 +1,5 @@ #include #include -#include #include #include "apl9.h" @@ -78,14 +77,11 @@ void displayerror(void) { ThreadData *td = getthreaddata(); - int tmp = td->requiredstack; - td->requiredstack = 0; Array *error = allocarray(AtypeArray, 1, 3); error->shape[0] = 3; error->arraydata[0] = mkrunearray(errorstr(td->lasterror)); error->arraydata[1] = mkrunearray(td->lasterrormsg ? td->lasterrormsg : L""); error->arraydata[2] = fnSame(td->name); rundfn(L"0::⎕RAWIO←⍵ ⋄ ('!' ⍵) ⍈ ⎕SESSION", nil, nil, nil, error); - td->requiredstack = tmp; freearray(error); } \ No newline at end of file -- cgit v1.2.3