Return to ltoc.c CVS log

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

Annotation of coherent/d/lib/libc/gen/ltoc.c, revision 1.1.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 <sys/types.h>
                      9: 
                     10: #define        MAXMANT         017777          /* 2^13-1 = largest mantissa */
                     11: 
                     12: comp_t
                     13: ltoc(l)
                     14: long l;
                     15: {
                     16:        register exp;
                     17: 
                     18:        if (l < 0)
                     19:                return (0);
                     20:        for (exp = 0; l > MAXMANT; exp++)
                     21:                l >>= 3;
                     22:        return ((exp<<13) | l);
                     23: }

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