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 --- quadnames.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'quadnames.c') diff --git a/quadnames.c b/quadnames.c index 3340ac6..8c7490c 100644 --- a/quadnames.c +++ b/quadnames.c @@ -1,6 +1,5 @@ #include #include -#include #include #include "apl9.h" @@ -95,7 +94,7 @@ quadnamedatum(QuadnameDef q) case DyadicOpTag: default: print("Can't use quad names with type=%d\n", q.tag); - threadexitsall(nil); + exits(nil); } return d; } @@ -291,7 +290,7 @@ Datum * getself(void) { Datum *d = allocdatum(ArrayTag, 0); - d->array = mkscalarint(threadid()); + d->array = mkscalarint(getpid()); return d; } -- cgit v1.2.3