Return to conv.h CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.bin / f77 / src / f77pass1

Annotation of 42BSD/usr.bin/f77/src/f77pass1/conv.h, revision 1.1.1.1

1.1       root        1: 
                      2: #if (HERE != VAX || TARGET != VAX)
                      3:        }}}}}   WRONG MACHINE!!!        }}}}}
                      4: #endif
                      5: 
                      6: /*  The code for converting the types of constants is not  */
                      7: /*  portable.  The problems involved in dealing with       */
                      8: /*  features such as reserved operands and byte orderings  */
                      9: /*  have proven very difficult to deal with in a portable  */
                     10: /*  manner.  Because of impending deadlines, I have put    */
                     11: /*  off trying to achieve portability.                     */
                     12: /*                                                         */
                     13: /*                             -Robert Paul Corbett        */
                     14: /*                              1983 May 1                 */
                     15: 
                     16: 
                     17: #define        BLANK   ' '
                     18: 
                     19: #define MAXWORD  32767
                     20: #define MINWORD -32768
                     21: 
                     22: typedef
                     23:   struct Dreal
                     24:     {
                     25:       unsigned fract1: 7;
                     26:       unsigned exp: 8;
                     27:       unsigned sign: 1;
                     28:       unsigned fract2: 16;
                     29:       unsigned fract3: 16;
                     30:       unsigned fract4: 16;
                     31:     }
                     32:   dreal;
                     33: 
                     34: typedef
                     35:   struct Quad
                     36:     {
                     37:       long word1;
                     38:       long word2;
                     39:     }
                     40:   quad;
                     41: 
                     42: typedef
                     43:   union RealValue
                     44:     {
                     45:       double d;
                     46:       quad   q;
                     47:       dreal  f;
                     48:     }
                     49:   realvalue;

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