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 c048139..7450c73 100644 (file)
--- 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~