Return to dcmp.s CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / crt / i386

Annotation of coherent/b/lib/libc/crt/i386/dcmp.s, revision 1.1

1.1     ! root        1: //////////
        !             2: / libc/crt/i386/dcmp.s
        !             3: / i386 C runtime library.
        !             4: / IEEE software floating point support.
        !             5: //////////
        !             6: 
        !             7: //////////
        !             8: / _dcmp(d) double d;
        !             9: / 
        !            10: / Compare %edx:%eax to double d on stack, return flags set appropriately.
        !            11: / Pops argument d before returning!
        !            12: / Bogus for denormals.
        !            13: //////////
        !            14: 
        !            15: d      .equ    4
        !            16: SGNMASK        .equ    0x80000000
        !            17: 
        !            18:        .globl  _dcmp
        !            19: 
        !            20: _dcmp:                                 / Stack: hid lod ra
        !            21:        xchgl   %ebx, d(%esp)           / hid EBX ra, lod in EBX
        !            22:        xchgl   %ecx, (%esp)            / hid EBX ECX, ra in ECX
        !            23:        xchgl   %ecx, d+4(%esp)         / ra EBX ECX, d in ECX:EBX
        !            24:        push    %esi                    / ra EBX ECX ESI
        !            25:        movl    %esi, $1                / value for > to ESI
        !            26:        cmpl    %ecx, $SGNMASK          / be wary of arg -0.0
        !            27:        jnz     ?L1
        !            28:        subl    %ecx, %ecx              / replace arg -0.0 with 0.0
        !            29: 
        !            30: ?L1:   
        !            31:        orl     %edx, %edx
        !            32:        jns     ?lhspos
        !            33:        cmpl    %edx, $SGNMASK          / be wary of lhs -0.0
        !            34:        jnz     ?lhsneg
        !            35:        subl    %edx, %edx              / turn lhs -0.0 into 0.0
        !            36: 
        !            37: ?lhspos:                               / lhs is positive
        !            38:        orl     %ecx, %ecx
        !            39:        jns     ?samesign               / both positive
        !            40:                                        / else lhs positive, arg negative
        !            41: ?done:
        !            42:        orl     %esi, %esi
        !            43: 
        !            44: ?quit:
        !            45:        pop     %esi
        !            46:        pop     %ecx
        !            47:        pop     %ebx
        !            48:        ret
        !            49: 
        !            50: ?samesign:
        !            51:        cmpl    %edx, %ecx              / both positive, compare magnitudes
        !            52:        ja      ?done                   / lhs greater
        !            53:        jb      ?less                   / lhs less
        !            54:        cmpl    %eax, %ebx              / hi equal, compare lo mantissa words   
        !            55:        ja      ?done
        !            56:        jz      ?quit
        !            57: 
        !            58: ?less:
        !            59:        negl    %esi                    / negate result sense
        !            60:        jmp     ?quit
        !            61: 
        !            62: ?lhsneg:                               / lhs is negative
        !            63:        negl    %esi                    / negate result sense
        !            64:        orl     %ecx, %ecx
        !            65:        jns     ?done                   / lhs negative, arg positive, return less
        !            66:        jmp     ?samesign               / both negative, compare magnitudes
        !            67: 
        !            68: / end of libc/crt/i386/dcmp.s

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