Browse Source

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

ceriel 36 years ago
parent
commit
b05198c6bf
1 changed files with 6 additions and 3 deletions
  1. 6 3
      mach/z8000/libem/strhp.s

+ 6 - 3
mach/z8000/libem/strhp.s

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