Return to ltoc.c CVS log

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

Annotation of coherent/b/lib/libc/gen/ltoc.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Convert long to comp_t style number.
        !             3:  * A comp_t contains 3 bits of base-8 exponent
        !             4:  * and a 13-bit mantissa.  Only unsigned
        !             5:  * numbers can be comp_t numbers.
        !             6:  */
        !             7: 
        !             8: #include <acct.h>
        !             9: #include <sys/types.h>
        !            10: 
        !            11: #define        MAXMANT         017777          /* 2^13-1 = largest mantissa */
        !            12: 
        !            13: comp_t
        !            14: ltoc(l)
        !            15: long l;
        !            16: {
        !            17:        register exp;
        !            18: 
        !            19:        if (l < 0)
        !            20:                return (0);
        !            21:        for (exp = 0; l > MAXMANT; exp++)
        !            22:                l >>= 3;
        !            23:        return ((exp<<13) | l);
        !            24: }

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