1*47951Sbostic /*- 2*47951Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47951Sbostic * All rights reserved. 4*47951Sbostic * 5*47951Sbostic * %sccs.include.proprietary.c% 6*47951Sbostic * 7*47951Sbostic * @(#)conv.h 5.2 (Berkeley) 04/12/91 8*47951Sbostic */ 9*47951Sbostic 1043204Sbostic #if TARGET != TAHOE 1143204Sbostic }}}}} WRONG MACHINE!!! }}}}} 1243204Sbostic #endif 1343204Sbostic 1443204Sbostic /* The code for converting the types of constants is not */ 1543204Sbostic /* portable. The problems involved in dealing with */ 1643204Sbostic /* features such as reserved operands and byte orderings */ 1743204Sbostic /* have proven very difficult to deal with in a portable */ 1843204Sbostic /* manner. */ 1943204Sbostic 2043204Sbostic #define BLANK ' ' 2143204Sbostic 2243204Sbostic #define MAXWORD 0x7fff 2343204Sbostic #define MINWORD -0x8000 2443204Sbostic 2543204Sbostic typedef 2643204Sbostic struct Dreal 2743204Sbostic { 2843204Sbostic #if HERE == VAX 2943204Sbostic unsigned fract1: 7; 3043204Sbostic unsigned exp: 8; 3143204Sbostic unsigned sign: 1; 3243204Sbostic #else 3343204Sbostic #if HERE == TAHOE 3443204Sbostic unsigned sign: 1; 3543204Sbostic unsigned exp: 8; 3643204Sbostic unsigned fract1: 7; 3743204Sbostic #else 3843204Sbostic }}}}} WRONG MACHINE!!! }}}}} 3943204Sbostic #endif 4043204Sbostic #endif 4143204Sbostic unsigned fract2: 16; 4243204Sbostic unsigned short fract3; 4343204Sbostic unsigned short fract4; 4443204Sbostic } 4543204Sbostic dreal; 4643204Sbostic 4743204Sbostic typedef 4843204Sbostic struct Quad 4943204Sbostic { 5043204Sbostic long word1; 5143204Sbostic long word2; 5243204Sbostic } 5343204Sbostic quad; 5443204Sbostic 5543204Sbostic typedef 5643204Sbostic union RealValue 5743204Sbostic { 5843204Sbostic double d; 5943204Sbostic quad q; 6043204Sbostic dreal f; 6143204Sbostic } 6243204Sbostic realvalue; 63