4 lines
86 B
Text
4 lines
86 B
Text
|
[666]MYSTRUCT pool;
|
||
|
|
INT new pool := LWB pool-1;
|
||
|
|
REF MYSTRUCT p = pool[new pool +:=1];
|