Return to Kcmpf.s CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / sys / tahoemath

Annotation of 43BSDTahoe/sys/tahoemath/Kcmpf.s, revision 1.1.1.1

1.1       root        1: /*     Kcmpf.s 1.3     86/01/05        */
                      2: 
                      3: #include "../tahoe/SYS.h"
                      4: 
                      5: /*
                      6:  * cmpf(o1, o2)
                      7:  *     register o1, o2;
                      8:  *{
                      9:  *     if(o1 < 0) {
                     10:  *             o1 ^= 0x80000000;
                     11:  *             o1 = -o1;
                     12:  *     }
                     13:  *     if(o2 < 0) {
                     14:  *             o2 ^= 0x80000000;
                     15:  *             o2 = -o2;
                     16:  *     }
                     17:  *     if(o1 != o2)
                     18:  *             return(o1>o2 ? 1 : -1);
                     19:  *     return(0);
                     20:  *}
                     21:  */
                     22:        .text
                     23: ENTRY(Kcmpf, 0)
                     24:        movl    4(fp),r12
                     25:        jgeq    1f
                     26:        xorl2   $0x80000000,r12
                     27:        mnegl   r12,r12
                     28: 1:
                     29:        movl    12(fp),r11
                     30:        jgeq    1f
                     31:        xorl2   $0x80000000,r11
                     32:        mnegl   r11,r11
                     33: 1:
                     34:        cmpl    r12,r11
                     35:        jneq    1f
                     36:        clr     r0; ret
                     37: 1:
                     38:        jleq    1f
                     39:        movl    $1,r0; ret
                     40: 1:
                     41:        mnegl   $1,r0; ret

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.