fixed

diff --git a/mach/m68k2/libem/shp.s b/mach/m68k2/libem/shp.s
index a0e6b6a..1e2f291 100644 (file)
--- a/mach/m68k2/libem/shp.s
+++ b/mach/m68k2/libem/shp.s
@@ -15,6 +15,7 @@
        and.l   #~0x3ff,d0
        move.l  a0,-(sp)
        move.l  d0,-(sp)
+       move.l  d0,.limhp
        jsr     _brk
        tst.l   (sp)+
        move.l  (sp)+,a0

diff --git a/mach/m68k4/libem/shp.s b/mach/m68k4/libem/shp.s
index 2ff291b..ed31468 100644 (file)
--- a/mach/m68k4/libem/shp.s
+++ b/mach/m68k4/libem/shp.s
@@ -12,9 +12,11 @@
        add.l   #0x400, d1
        and.l   #~0x3ff, d1
        move.l  d1, -(sp)
+       move.l  d1,.limhp
        jsr     _brk            ! allocate 1K bytes of extra storage
        add.l   #4, sp
-       bcs     2f
+       tst.l   d0
+       bne     2f
 1:
        move.l  4(sp), .reghp   ! store new value of heap pointer
        move.l  (sp)+,a0