diff Modules/almodule.c @ 947:260d96db112f legacy-trunk

Modified to allow other threads to run in a multithreaded environment.
author Jack Jansen <jack.jansen@cwi.nl>
date Thu, 13 Aug 1992 14:13:11 +0000
parents e58f40c2f285
children 30a290257c31
line wrap: on
line diff
--- a/Modules/almodule.c	Thu Aug 13 14:10:17 1992 +0000
+++ b/Modules/almodule.c	Thu Aug 13 14:13:11 1992 +0000
@@ -30,6 +30,7 @@
 #include "import.h"
 #include "modsupport.h"
 #include "structmember.h"
+#include "ceval.h"
 
 
 /* Config objects */
@@ -274,7 +275,9 @@
 	v = newsizedstringobject ((char *)NULL, width * count);
 	if (v == NULL) return NULL;
 
+	BGN_SAVE
 	ALreadsamps (self-> ob_port, (void *) getstringvalue(v), count);
+	END_SAVE
 
 	return (v);
 }
@@ -294,7 +297,9 @@
 	c = ALgetconfig(self->ob_port);
 	width = ALgetwidth(c);
 	ALfreeconfig(c);
+	BGN_SAVE
 	ALwritesamps (self-> ob_port, (void *) buf, (long) size / width);
+	END_SAVE
 
 	INCREF (None);
 	return None;
@@ -361,6 +366,7 @@
 static struct methodlist port_methods[] = {
 	{"closeport",		al_closeport},
 	{"getfd",		al_getfd},
+        {"fileno",		al_getfd},
 	{"getfilled",		al_getfilled},
 	{"getfillable",		al_getfillable},
 	{"readsamps",		al_readsamps},