From 0c137374ae5b09db257bf2a95b8b1b49fe973b61 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Thu, 25 Apr 1991 10:54:44 +0000
Subject: [PATCH] fixed

---
 mach/m68020/libem/shp.s | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/mach/m68020/libem/shp.s b/mach/m68020/libem/shp.s
index d814ff553..16fcf8fef 100644
--- a/mach/m68020/libem/shp.s
+++ b/mach/m68020/libem/shp.s
@@ -13,10 +13,14 @@ EHEAP=17
 	blt	1f
 	add.l	#0x400, d1
 	and.l	#~0x3ff, d1
+	move.l	a0,-(sp)
 	move.l	d1, -(sp)
+	move.l	d1,(.limhp)
 	jsr	(__brk)		! allocate 1K bytes of extra storage
-	bcs	2f
-	move.l	(sp)+,(.limhp)
+	add.l	#4,sp
+	move.l	(sp)+,a0
+	tst.l	d0
+	bne	2f
 1:
 	move.l	(sp)+, (.reghp)	! store new value
 	jmp	(a0)		! return
-- 
2.34.1