Modified to allow other threads to run in a multithreaded environment.
diff --git a/Modules/cstubs b/Modules/cstubs
index 89ac69d..bbb3a10 100644
--- a/Modules/cstubs
+++ b/Modules/cstubs
@@ -25,6 +25,11 @@
N*retval
*/
+/*
+ * An attempt has been made to make this module switch threads on qread
+ * calls. It is far from safe, though.
+ */
+
#include <gl.h>
#include <device.h>
@@ -32,6 +37,7 @@
#include "import.h"
#include "modsupport.h"
#include "cgensupport.h"
+#include "ceval.h"
/*
Some stubs are too complicated for the stub generator.
@@ -40,6 +46,27 @@
generator can include it in the table of functions.
*/
+% qread
+
+static object *
+gl_qread(self, args)
+ object *self;
+ object *args;
+{
+ long retval;
+ short arg1 ;
+ BGN_SAVE
+ retval = qread( & arg1 );
+ END_SAVE
+ { object *v = newtupleobject( 2 );
+ if (v == NULL) return NULL;
+ settupleitem(v, 0, mknewlongobject(retval));
+ settupleitem(v, 1, mknewshortobject(arg1));
+ return v;
+ }
+}
+
+
/*
varray -- an array of v.. calls.
The argument is an array (maybe list or tuple) of points.