From b7e3d0927fe0821e919ccc4a66ef149bddcc20de Mon Sep 17 00:00:00 2001
From: glenda <glenda@cirno>
Date: Tue, 13 Sep 2022 18:30:06 +0000
Subject: Switch to rfork instead of libthread

---
 apl9.h | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'apl9.h')

diff --git a/apl9.h b/apl9.h
index 6709dcb..8fa539d 100644
--- a/apl9.h
+++ b/apl9.h
@@ -2,9 +2,6 @@
 #define MAX_LINE_LENGTH 1024
 #define MAX_LINE_TOKENS 1024
 
-#define STACKSIZE (1024*1024) /* 1 MB */
-#define REQUIREDSTACK (16*1024) /* 16 KB */
-
 typedef enum
 {
 	ArrayTag,
@@ -237,7 +234,7 @@ struct DfnFrame
 struct ThreadData
 {
 	int id;
-	int requiredstack;
+	int stackused;
 	DfnFrame *currentdfn;
 	Mail *mail;
 	Mail *lastmail;
@@ -355,9 +352,7 @@ void messagesend(Array *, int);
 Array *messagerecv(Function, int);
 Array *runningthreads(void);
 Array *threadproperty(vlong, vlong);
-int stackused(void);
-int hasstack(int);
-void checkstack(void);
+void stackusage(void);
 
 /* Monadic functions from function.c */
 Array *fnNegate(Array *);
@@ -497,5 +492,4 @@ extern opmonad hybridoperatordefs[]; /* hybrids.c */
 extern int arrayalloccounts; /* memory.c */
 extern int datumalloccounts; /* memory.c */
 extern QuadnameDef quadnames[]; /* quadnames.c */
-extern int printprecision; /* print.c */
-extern int mainstacksize; /* concurrency.c */
\ No newline at end of file
+extern int printprecision; /* print.c */
\ No newline at end of file
-- 
cgit v1.2.3