Return to cmpf.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / lib / libc / tahoe / gen

Annotation of cci/usr/src/lib/libc/tahoe/gen/cmpf.s, revision 1.1.1.1

1.1       root        1: /*       
                      2: /*     
                      3: /*       The assembler version is the output of cct for this whith minor editing
                      4: /*       (_cmpf --> cmpf 8(fp) --> 12(fp)).
                      5: /*      
                      6: /*     
                      7: /*       cmpf(hi1, hi2 )
                      8: /*       {
                      9: /*             if ( hi1 == hi2 ) return (0);
                     10: /*             if(hi1 < 0) {
                     11: /*                     hi1 ^= 0x80000000;
                     12: /*                     hi1 = -hi1;
                     13: /*             }
                     14: /*             if(hi2 < 0) {
                     15: /*                     hi2 ^= 0x80000000;
                     16: /*                     hi2 = -hi2;
                     17: /*             }
                     18: /*                     return(hi1>hi2 ? 1 : -1);
                     19: /*       }
                     20: /*     
                     21: /*     
                     22: /*      */
                     23: .data
                     24: .text
                     25: LL0:.align     1
                     26: .globl _cmpf
                     27: .globl Xcmpf
                     28: .set   L12,0x0
                     29: .data
                     30: .text
                     31: _cmpf:
                     32: Xcmpf:.word    L12
                     33: cmpl   4(fp),12(fp)
                     34: jneq   L16
                     35: clrl   r0
                     36: ret
                     37: L16:tstl       4(fp)
                     38: jgeq   L17
                     39: xorl2  $-2147483648,4(fp)
                     40: mnegl  4(fp),4(fp)
                     41: L17:tstl       12(fp)
                     42: jgeq   L18
                     43: xorl2  $-2147483648,12(fp)
                     44: mnegl  12(fp),12(fp)
                     45: L18:cmpl       4(fp),12(fp)
                     46: jleq   L9999
                     47: movl   $1,r0
                     48: jbr    L9998
                     49: L9999:mnegl    $1,r0
                     50: L9998:ret
                     51: 

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