浏览代码

Gave coroutine more stack space

ceriel 33 年之前
父节点
当前提交
309edc74b0
共有 1 个文件被更改,包括 3 次插入3 次删除
  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.