From 02d253d81017a4da5ba323aa2391c1e9f8f81a54 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Thu, 25 Apr 1991 10:49:28 +0000
Subject: [PATCH] fixed

---
 mach/m68k2/libem/shp.s | 1 +
 mach/m68k4/libem/shp.s | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/mach/m68k2/libem/shp.s b/mach/m68k2/libem/shp.s
index a0e6b6a05..1e2f29135 100644
--- 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 2ff291b42..ed3146822 100644
--- 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
-- 
2.34.1