From: sater <none@none>
Date: Thu, 20 Dec 1984 15:17:05 +0000 (+0000)
Subject: Routine was wrong, leaving things on the stack in the one bit case,
X-Git-Tag: release-5-5~5828
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=18dbfc024eaf503fb3ba100bfea1dddd34392876;p=ack.git

Routine was wrong, leaving things on the stack in the one bit case,
the inclusion of slu in this routine was bogus.
It is never called anyway, so slu is taken out.
---

diff --git a/mach/pdp/libem/sru.s b/mach/pdp/libem/sru.s
index c0481395d..7450c73dd 100644
--- a/mach/pdp/libem/sru.s
+++ b/mach/pdp/libem/sru.s
@@ -1,18 +1,17 @@
 / $Header$
 .text
-.globl sru~,slu~
+.globl sru~
 .globl unknown~
 
 sru~:
 	neg	2(sp)
-slu~:
 	mov	(sp)+,r3
 	cmp	r0,$02
 	bgt	1f
 	mov	2(sp),r1
 	clr	r0
 	ashc	(sp)+,r0
-2:	mov	r1,-(sp)
+	mov	r1,(sp)
 	jmp	(r3)
 1:	cmp	r0,$04
 	bgt	3f
@@ -23,9 +22,8 @@ slu~:
 	ashc	$-1,r0
 	bic	$0100000,r0
 	inc	(sp)
-	beq	4f
-	ashc	(sp)+,r0
-4:	mov	r0,(sp)
+4:	ashc	(sp)+,r0
+	mov	r0,(sp)
 	mov	r1,02(sp)
 	jmp	(r3)
 3:	jmp	unknown~