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 db6bc5a..d2eb729 100644 (file)
--- 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