Return to cmpf.s CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / lib / libc / tahoe / fpe

Annotation of 43BSDTahoe/lib/libc/tahoe/fpe/cmpf.s, revision 1.1.1.1

1.1       root        1: #ifdef LIBC_SCCS
                      2:        .asciz  "@(#)cmpf.s     1.1 (Berkeley/CCI) 7/2/86"
                      3: #endif LIBC_SCCS
                      4: 
                      5: /*
                      6:  * cmpf(f1, f2)
                      7:  *     float f1, f2;
                      8:  * return -1, 0, 1 as f1 <, ==, > f2
                      9:  */
                     10: #include "DEFS.h"
                     11: 
                     12: XENTRY(cmpf, 0)
                     13:        cmpl    4(fp),12(fp)
                     14:        jneq    1f
                     15:        clrl    r0
                     16:        ret
                     17: 1:
                     18:        movl    4(fp),r0
                     19:        jgeq    1f
                     20:        xorl2   $0x80000000,r0
                     21:        mnegl   r0,r0
                     22: 1:
                     23:        movl    12(fp),r1
                     24:        jgeq    1f
                     25:        xorl2   $0x80000000,r1
                     26:        mnegl   r1,r1
                     27: 1:
                     28:        cmpl    r0,r1
                     29:        jleq    1f
                     30:        movl    $1,r0
                     31:        ret
                     32: 1:
                     33:        mnegl   $1,r0
                     34:        ret

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