home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / g-format / part4 / gfloat / f77 / src / f77pass1 / conv.h.diff next >
Encoding:
Text File  |  1986-11-30  |  2.2 KB  |  142 lines
  1. *** ../f77/src/f77pass1/conv.h.orig    Tue Oct 29 15:15:46 1985
  2. --- ../f77/src/f77pass1/conv.h    Tue Oct 29 15:22:26 1985
  3. ***************
  4. *** 20,25
  5.   #define MINWORD -32768
  6.   
  7.   typedef
  8.     struct Dreal
  9.       {
  10.         unsigned fract1: 7;
  11.  
  12. --- 20,26 -----
  13.   #define MINWORD -32768
  14.   
  15.   typedef
  16. + #ifndef GFLOAT
  17.     struct Dreal
  18.       {
  19.         unsigned fract1: 7;
  20. ***************
  21. *** 24,29
  22.       {
  23.         unsigned fract1: 7;
  24.         unsigned exp: 8;
  25.         unsigned sign: 1;
  26.         unsigned fract2: 16;
  27.         unsigned fract3: 16;
  28.  
  29. --- 25,36 -----
  30.       {
  31.         unsigned fract1: 7;
  32.         unsigned exp: 8;
  33. + #else GFLOAT
  34. +   struct Greal
  35. +     {
  36. +       unsigned fract1: 4;
  37. +       unsigned exp: 11;
  38. + #endif GFLOAT
  39.         unsigned sign: 1;
  40.         unsigned fract2: 16;
  41.         unsigned fract3: 16;
  42. ***************
  43. *** 29,34
  44.         unsigned fract3: 16;
  45.         unsigned fract4: 16;
  46.       }
  47.     dreal;
  48.   
  49.   typedef
  50.  
  51. --- 36,42 -----
  52.         unsigned fract3: 16;
  53.         unsigned fract4: 16;
  54.       }
  55. + #ifndef GFLOAT
  56.     dreal;
  57.   #else GFLOAT
  58.     greal;
  59. ***************
  60. *** 30,35
  61.         unsigned fract4: 16;
  62.       }
  63.     dreal;
  64.   
  65.   typedef
  66.     struct Quad
  67.  
  68. --- 38,46 -----
  69.       }
  70.   #ifndef GFLOAT
  71.     dreal;
  72. + #else GFLOAT
  73. +   greal;
  74. + #endif GFLOAT
  75.   
  76.   typedef
  77.     struct Quad
  78. ***************
  79. *** 40,45
  80.     quad;
  81.   
  82.   typedef
  83.     union RealValue
  84.       {
  85.         double d;
  86.  
  87. --- 51,69 -----
  88.     quad;
  89.   
  90.   typedef
  91. + #ifdef GFLOAT
  92. +   struct Freal
  93. +     {
  94. +       unsigned fract1: 7;
  95. +       unsigned exp: 8;
  96. +       unsigned sign: 1;
  97. +       unsigned fract2: 16;
  98. +       unsigned fract3: 16;
  99. +       unsigned fract4: 16;
  100. +     }
  101. +   freal;
  102. + typedef
  103. + #endif GFLOAT
  104.     union RealValue
  105.       {
  106.         double d;
  107. ***************
  108. *** 44,49
  109.       {
  110.         double d;
  111.         quad   q;
  112.         dreal  f;
  113.       }
  114.     realvalue;
  115.  
  116. --- 68,74 -----
  117.       {
  118.         double d;
  119.         quad   q;
  120. + #ifndef GFLOAT
  121.         dreal  f;
  122.   #else GFLOAT
  123.         freal  f;
  124. ***************
  125. *** 45,49
  126.         double d;
  127.         quad   q;
  128.         dreal  f;
  129.       }
  130.     realvalue;
  131.  
  132. --- 70,78 -----
  133.         quad   q;
  134.   #ifndef GFLOAT
  135.         dreal  f;
  136. + #else GFLOAT
  137. +       freal  f;
  138. +       greal  g;
  139. + #endif GFLOAT
  140.       }
  141.     realvalue;
  142.