godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Gave coroutine more stack space

Browse Source
This commit is contained in:
ceriel 1991-09-25 09:14:25 +00:00
parent cae8164263
commit a78a8b6038
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lang/m2/test/Thalmann/StoreFetch.mod
View File

@ -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.