From: ceriel <none@none>
Date: Fri, 25 Jul 1986 14:17:23 +0000 (+0000)
Subject: Bug fix
X-Git-Tag: release-5-5~5250
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=c422c4e1308a2b15aa61e854a1376716334b781d;p=ack.git

Bug fix
---

diff --git a/mach/m68k4/libem/inn.s b/mach/m68k4/libem/inn.s
index 2e7452879..2bc4c6e08 100644
--- a/mach/m68k4/libem/inn.s
+++ b/mach/m68k4/libem/inn.s
@@ -15,13 +15,11 @@
 	move.l	sp,a0
 	add.l	#4,a0
 	move.l	d1,d2
-	asr.l	#4,d2
-	!bchg.l	#0,d2
+	asr.l	#3,d2
 	cmp.l	d0,d2
 	bcc	1f
 	add.l	d2,a0
-	move.l	(a0),d2
-	btst	d1,d2	!eigenlijk .l
+	btst	d1,(a0)
 	beq	1f
 	move.l	#1,d0
 	bra	2f
@@ -30,5 +28,4 @@
 2:
 	move.l	(sp)+,d1
 	add.l	d1,sp
-	move.l	a1,-(sp)
-	rts
+	jmp	(a1)
diff --git a/mach/m68k4/libem/set.s b/mach/m68k4/libem/set.s
index 4091243a4..7a9287726 100644
--- a/mach/m68k4/libem/set.s
+++ b/mach/m68k4/libem/set.s
@@ -18,15 +18,12 @@
 	bgt	1b
 	move.l	sp,a1		! set base
 	move.l	d1,d2
-	asr.l	#4,d2
-	!bchg	#0,d2
+	asr.l	#3,d2
 	cmp.l	d0,d2
 	bcs	1f
 	move.w	#ESET,-(sp)
 	jsr	.trp
 1:
 	add.l	d2,a1
-	move.l	(a1),d2
-	bset	d1,d2
-	move.l	d2,(a1)
+	bset	d1,(a1)
 	jmp	(a0)