Return to ldexp.c CVS log

Up to [CSRG BSD Unix] / 3BSD / libc / gen

Annotation of 3BSD/libc/gen/ldexp.c, revision 1.1

1.1     ! root        1: double
        !             2: ldexp(fr,exp) double fr; int exp;{
        !             3: double huge    = 1.701411834604692293e38;
        !             4:        int neg;
        !             5:        int i;
        !             6:        double frexp();
        !             7: 
        !             8:        neg = 0;
        !             9:        if(fr<0){
        !            10:                fr = -fr;
        !            11:                neg = 1;
        !            12:                }
        !            13:        fr = frexp(fr,&i);
        !            14:        while(fr<.5){
        !            15:                fr = 2*fr;
        !            16:                i = i-1;
        !            17:                }
        !            18:        exp = exp+i;
        !            19:        if(exp>127)
        !            20:                if(neg)
        !            21:                        return(-huge);
        !            22:                else
        !            23:                        return(huge);
        !            24:        if(exp<-127)
        !            25:                return(0);
        !            26:        while(exp>30){
        !            27:                fr = fr*(1L<<30);
        !            28:                exp = exp-30;
        !            29:                }
        !            30:        while(exp<-30){
        !            31:                fr = fr/(1L<<30);
        !            32:                exp = exp+30;
        !            33:                }
        !            34:        if(exp>0)
        !            35:                fr = fr*(1L<<exp);
        !            36:        if(exp<0)
        !            37:                fr = fr/(1L<<-exp);
        !            38:        if(neg) fr = -fr;
        !            39:        return(fr);
        !            40:        }

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