Explorar el Código

Gave coroutine more stack space

ceriel hace 33 años
padre
commit
309edc74b0
Se han modificado 1 ficheros con 3 adiciones y 3 borrados
  1. 3 3
      lang/m2/test/Thalmann/StoreFetch.mod

+ 3 - 3
lang/m2/test/Thalmann/StoreFetch.mod

@@ -46,7 +46,7 @@ MODULE StoreFetch;
 	Init(NonEmpty);
   END SharedBuffer;
 
-  CONST	Max = 80;
+  CONST	Max = 256;
 	eos = 0C;
 
   TYPE	StringType = ARRAY[0..Max-1] OF CHAR;
@@ -85,7 +85,7 @@ MODULE StoreFetch;
 
 BEGIN
 	Init(EndOfTransfer);
-	StartProcess(Store, 500);
-	StartProcess(Fetch, 500);
+	StartProcess(Store, 2000);
+	StartProcess(Fetch, 2000);
 	WAIT(EndOfTransfer);
 END StoreFetch.