Return to ceil87.s CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libm / i387

Annotation of coherent/b/lib/libm/i387/ceil87.s, revision 1.1

1.1     ! root        1: //////////
        !             2: / /usr/src/libm/i387/ceil87.s
        !             3: / i387 mathematics library
        !             4: / ceil(d), floor(d)
        !             5: //////////
        !             6: 
        !             7: RASIZE =       4
        !             8: 
        !             9:        .globl  ceil
        !            10:        .globl  floor
        !            11:        .globl  _floor
        !            12: 
        !            13: cwup   =       0xBFF           / round up NDP control word
        !            14: cwdown =       0x7FF           / round down NDP control word
        !            15: 
        !            16: d      =       RASIZE          / arg offset
        !            17: 
        !            18: //////////
        !            19: / double
        !            20: / ceil(d)
        !            21: / double d;
        !            22: //////////
        !            23: 
        !            24: 
        !            25: ceil:
        !            26:        fldl    d(%esp)         / Load argument d.
        !            27:        movw    %ax, $cwup      / New control word to AX.
        !            28:        jmp     .L0
        !            29: 
        !            30: //////////
        !            31: / double
        !            32: / floor(d)
        !            33: / double d;
        !            34: /
        !            35: / _floor() rounds the NDP stacktop %st down to the int below.
        !            36: / It saves and restores the current NDP control word.
        !            37: //////////
        !            38: 
        !            39: oldcw  =       0               / old NDP control word offset off %esp
        !            40: newcw  =       2               / new NDP control word offset off %esp
        !            41: 
        !            42: floor:
        !            43:        fldl    d(%esp)         / Load argument d.
        !            44: 
        !            45: _floor:                                / d
        !            46:        movw    %ax, $cwdown    / New control word to AX.
        !            47: 
        !            48: .L0:                           / d in %st, new control word in AX.
        !            49:        push    %eax            / Claim two words.
        !            50:        movw    newcw(%esp),%ax / Save new control word.
        !            51:        fstcw   oldcw(%esp)     / Save old control word.
        !            52:        fldcw   newcw(%esp)     / Load new control word.
        !            53:        frndint                 / int(d)
        !            54:        fldcw   oldcw(%esp)     / Restore saved control word.
        !            55:        pop     %eax            / Clean stack.
        !            56:        ret
        !            57: 
        !            58: / end of ceil87.s

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