Return to conv.h CVS log

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

Annotation of 43BSD/usr.bin/f77/src/f77pass1/conv.h, revision 1.1

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

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