Return to Kcmpf.x CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe

Annotation of cci/sys/tahoe/Kcmpf.x, revision 1.1.1.1

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

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