Return to decode.c CVS log

Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mips

Annotation of researchv10no/cmd/lcc/gen2/mips/decode.c, revision 1.1.1.1

1.1       root        1: /* C compiler: MIPS float/double decoding */
                      2: 
                      3: #include "c.h"
                      4: 
                      5: struct real decode(ty, x) double x; {
                      6:        struct real r;
                      7: 
                      8:        if (ty == D) {
                      9: #ifdef MIPSEL
                     10:                struct d { unsigned fract2, fract1:20, exp:11, sign:1;  }
                     11: #else
                     12:                struct d { unsigned sign:1, exp:11, fract1:20, fract2; }
                     13: #endif
                     14:                        *p = (struct d *) &x;
                     15:                r.sign = p->sign;
                     16:                r.exp = x ? p->exp - 1023 : 0;
                     17:                r.msb = (p->fract1<<12) | (p->fract2>>20);
                     18:                r.lsb = p->fract2<<12;
                     19:        } else {
                     20:                float f = x;
                     21: #ifdef MIPSEL
                     22:                struct f { unsigned fract:23, exp:8, sign:1; }
                     23: #else
                     24:                struct f { unsigned sign:1, exp:8, fract:23; }
                     25: #endif
                     26:                        *p = (struct f *) &f;
                     27:                r.sign = p->sign;
                     28:                r.exp = f ? p->exp - 127 : 0;
                     29:                r.msb = p->fract<<9;
                     30:                r.lsb = 0;
                     31:        }
                     32:        return r;
                     33: }

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