From: ceriel <none@none>
Date: Mon, 11 Apr 1988 09:52:48 +0000 (+0000)
Subject: adapted to new semantics of the EHEAP error: no longer fatal
X-Git-Tag: release-5-5~3470
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=b05198c6bf30152ea9a303f64cc12c7d8e21b541;p=ack.git

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

diff --git a/mach/z8000/libem/strhp.s b/mach/z8000/libem/strhp.s
index db6bc5a09..d2eb72920 100644
--- a/mach/z8000/libem/strhp.s
+++ b/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