Return to fops.s CVS log

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

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

1.1     ! root        1: //////////
        !             2: / libc/crt/i386/fops.s
        !             3: / i386 C runtime library.
        !             4: / IEEE software floating point support.
        !             5: //////////
        !             6: 
        !             7: //////////
        !             8: / double _fadd(float f)
        !             9: / Return f + %edx:eax in %edx:%eax.
        !            10: /
        !            11: / double _fdiv(float f)
        !            12: / Return f / %edx:eax in %edx:%eax.
        !            13: /
        !            14: / double _fmul(float f)
        !            15: / Return f * %edx:eax in %edx:%eax.
        !            16: /
        !            17: / double _fsub(float f)
        !            18: / Return f - %edx:eax in %edx:%eax.
        !            19: //////////
        !            20: 
        !            21:        .globl  _fadd
        !            22:        .globl  _fdiv
        !            23:        .globl  _fmul
        !            24:        .globl  _fsub
        !            25:        .globl  _dadd
        !            26:        .globl  _drdiv
        !            27:        .globl  _dmul
        !            28:        .globl  _drsub
        !            29:        .globl  _dsub
        !            30:        .globl  _dfcvt
        !            31: 
        !            32: _fadd:                                 / Stack: f ra
        !            33:        push    %ecx                    / f ra ECX
        !            34:        mov     %ecx, $_dadd            / function to execute fn to ECX
        !            35:        jmp     .L0
        !            36: 
        !            37: _fdiv:
        !            38:        push    %ecx
        !            39:        mov     %ecx, $_drdiv
        !            40:        jmp     .L0
        !            41: 
        !            42: _fmul:
        !            43:        push    %ecx
        !            44:        mov     %ecx, $_dmul
        !            45:        jmp     .L0
        !            46: 
        !            47: _fsub:
        !            48:        push    %ecx
        !            49:        mov     %ecx, $_drsub
        !            50: 
        !            51: .L0:                                   / Stack: f ra ECX; fn in ECX
        !            52:        push    %edx                    / f ra ECX hi(d)
        !            53:        push    %eax                    / f ra ECX hi(d) lo(d)
        !            54:        movl    %eax, 16(%esp)          / f to EAX
        !            55:        call    _dfcvt                  / (double)f to EDX:EAX
        !            56:        icall   %ecx                    / execute fn(d), result to EDX:EAX
        !            57:        addl    %esp, $8                / f ra ECX
        !            58:        pop     %ecx                    / restore ECX
        !            59:        ret                             / and return
        !            60:        
        !            61: / end of libc/crt/i386/fops.s

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