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     ! 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.