Add seperate error handlers in threads

1 files changed, 4 insertions, 5 deletions

diff --git a/error.c b/error.c
index 09f2c32..ee6ffe9 100644
--- a/error.c
+++ b/error.c
@@ -5,18 +5,17 @@
 
 #include "apl9.h"
 
-ErrorGuard *globalerrorguard;
-
 ErrorGuard *
 newerrorguard(Array *codes, Statement *guard)
 {
+	ThreadData *td = getthreaddata();
 	DfnFrame *fr = getcurrentdfn();
 	ErrorGuard *eg = emallocz(sizeof(ErrorGuard), 1);
 	eg->active = 1;
 	eg->guard = guard;
 
 	if(fr == nil)
-		globalerrorguard = eg;
+		td->globalerrorguard = eg;
 	else{
 		eg->next = fr->errorguards;
 		fr->errorguards = eg;
@@ -32,9 +31,9 @@ newerrorguard(Array *codes, Statement *guard)
 void
 throwerror(Rune *msg, int err)
 {
-	ErrorGuard *matching = globalerrorguard;
-	DfnFrame *frame = getcurrentdfn();
 	ThreadData *td = getthreaddata();
+	ErrorGuard *matching = td->globalerrorguard;
+	DfnFrame *frame = getcurrentdfn();
 	td->lasterror = err;
 	if(td->lasterrormsg)
 		free(td->lasterrormsg);