BSD 4 release

[unix-history] / usr / src / cmd / px / 02relset.s

diff --git a/usr/src/cmd/px/02relset.s b/usr/src/cmd/px/02relset.s
index 40d0e6e..bf47952 100644 (file)
--- a/usr/src/cmd/px/02relset.s
+++ b/usr/src/cmd/px/02relset.s
@@ -1,18 +1,19 @@
 #\f
 #\f

-# 02relset.s
+# Copyright (c) 1979 Regents of the University of California
+#
+# char sccsid[] = "@(#)02relset.s 4.1 10/10/80";

 #
 # RELATIONALS ON SETS
 #
 _RELT:
        cvtbl   (r10)+,r5       #r5 has jump opcode
 #
 # RELATIONALS ON SETS
 #
 _RELT:
        cvtbl   (r10)+,r5       #r5 has jump opcode

-       cvtwl   (r10)+,r1       #r1 has comparison length (bytes)
+       movzwl  (r10)+,r1       #r1 has comparison length (bytes)

        movl    r1,r4           #r4 has stack length
        blbc    r4,l0211
        incl    r4
 l0211:
        addl3   sp,r4,r3        #r3 has addr of lower operand
        addl2   r3,r4           #r4 points to cleared stack
        movl    r1,r4           #r4 has stack length
        blbc    r4,l0211
        incl    r4
 l0211:
        addl3   sp,r4,r3        #r3 has addr of lower operand
        addl2   r3,r4           #r4 points to cleared stack

-       ashl    $1,r5,r5        #maintain compatability

        jsb     *settab(r5)     #calc condition, return boolean in r0
        movl    r4,sp           #reset stack
        cmpl    r5,$20          #check for branch
        jsb     *settab(r5)     #calc condition, return boolean in r0
        movl    r4,sp           #reset stack
        cmpl    r5,$20          #check for branch


@@ -30,14 +31,14 @@ l0213:
        jmp     (r8)
 
        .align  1
        jmp     (r8)
 
        .align  1

-settab:                        #condition code branch table
-       .long   seteq   #generate boolean answer
+settab:                                #condition code branch table
+       .long   seteq           #generate boolean answer

        .long   setne
        .long   setlt
        .long   setgt
        .long   setle
        .long   setge
        .long   setne
        .long   setlt
        .long   setgt
        .long   setle
        .long   setge

-       .long   seteq   #branch on condition false
+       .long   seteq           #branch on condition false

        .long   setne
        .long   setlt
        .long   setgt
        .long   setne
        .long   setlt
        .long   setgt