d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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); Init(NonEmpty);
END SharedBuffer; END SharedBuffer;
CONST Max = 80; CONST Max = 256;
eos = 0C; eos = 0C;
TYPE StringType = ARRAY[0..Max-1] OF CHAR; TYPE StringType = ARRAY[0..Max-1] OF CHAR;
@ -85,7 +85,7 @@ MODULE StoreFetch;
BEGIN BEGIN
Init(EndOfTransfer); Init(EndOfTransfer);
StartProcess(Store, 500); StartProcess(Store, 2000);
StartProcess(Fetch, 500); StartProcess(Fetch, 2000);
WAIT(EndOfTransfer); WAIT(EndOfTransfer);
END StoreFetch. END StoreFetch.