From b05198c6bf30152ea9a303f64cc12c7d8e21b541 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 11 Apr 1988 09:52:48 +0000
Subject: [PATCH] adapted to new semantics of the EHEAP error: no longer fatal

---
 mach/z8000/libem/strhp.s | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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