Return to float1.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin / db_400

Annotation of coherent/b/bin/db_400/float1.c, revision 1.1

1.1     ! root        1: /* float1.c - test of floating point */
        !             2: 
        !             3: #include <stdio.h>
        !             4: 
        !             5: #if 0
        !             6: #define FORCE(var,val)  {*(int *)(&var) = val;dumpl("FORCE ",var);}
        !             7: #else
        !             8: #define FORCE(var,val)
        !             9: #endif
        !            10: 
        !            11: main()
        !            12: {
        !            13:        float x = 1.0, y = 2.0, z;
        !            14: 
        !            15:        xpr(&x);
        !            16:        dumpl("x = ", x);
        !            17:        FORCE(x, 0x3F800000);
        !            18:        xpr(&y);
        !            19:        dumpl("y = ", y);
        !            20:        FORCE(y, 0x40000000);
        !            21:        fflush(stdout);
        !            22: 
        !            23:        z = x + y;
        !            24:        xpr(&z);
        !            25:        dumpl("z = ", z);
        !            26:        FORCE(z, 0x40400000);
        !            27:        fflush(stdout);
        !            28: 
        !            29:        printf("%f + %f = %f\n", x, y, z);
        !            30:        printf("that was formatted %%f output\n");
        !            31:        fflush(stdout);
        !            32: }
        !            33: 
        !            34: /* Dump a double as 16 hex digits */
        !            35: dumpl(name,flo,fhi)
        !            36: char * name;
        !            37: int flo, fhi;
        !            38: {
        !            39:        int exponent;
        !            40:        int schi;
        !            41:        char sgn;
        !            42: 
        !            43:        printf("%s%08x,%08x  ", name, fhi, flo);
        !            44: 
        !            45:        sgn = (fhi & 0x80000000) ? '-' : '+';
        !            46:        exponent = (fhi >> 20) & 0x7FF;
        !            47:        exponent -= 1023;
        !            48:        schi = fhi & 0xFFFFF;
        !            49: 
        !            50:        printf("%c1.%05x,%08xx2**%d\n", sgn, schi, flo, exponent);
        !            51: }
        !            52: 
        !            53: /* dump a float as 8 hex digits - called with address of the float */
        !            54: xpr(fa)
        !            55: int * fa;
        !            56: {
        !            57:        printf("%08x  ", *fa);
        !            58: }

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