adapted to new semantics of the EHEAP error: no longer fatal

This commit is contained in:
ceriel 1988-04-11 09:52:48 +00:00
parent 474a3b4584
commit b05198c6bf

View file

@ -8,8 +8,11 @@
strhp:
popl RR2, *RR14
pop R0, *RR14
ld reghp, R0 !heappointer must be < stackpointer.
cp R0, R15
jp ULT, *RR2
jp ULT, 1f
push *RR14, $EHEAP
jr fatal
calr trp
jp *RR2
1:
ld reghp, R0
jp *RR2