home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / g-format / part4 / gfloat / f77 / src / f77pass1 / put.c.diff < prev    next >
Encoding:
Text File  |  1986-11-30  |  2.9 KB  |  151 lines
  1. *** ../f77/src/f77pass1/put.c.orig    Tue Oct 29 15:16:12 1985
  2. --- ../f77/src/f77pass1/put.c    Tue Oct 29 15:23:07 1985
  3. ***************
  4. *** 169,174
  5.   
  6.   if (ISCONST(p))
  7.       {
  8.       if (ISCOMPLEX(p->constblock.vtype))
  9.           return(mkrealcon(p->constblock.vtype == TYCOMPLEX ?
  10.                       TYREAL : TYDREAL,
  11.  
  12. --- 169,175 -----
  13.   
  14.   if (ISCONST(p))
  15.       {
  16. + #ifndef GFLOAT
  17.       if (ISCOMPLEX(p->constblock.vtype))
  18.           return(mkrealcon(p->constblock.vtype == TYCOMPLEX ?
  19.                       TYREAL : TYDREAL,
  20. ***************
  21. *** 173,178
  22.           return(mkrealcon(p->constblock.vtype == TYCOMPLEX ?
  23.                       TYREAL : TYDREAL,
  24.                   p->constblock.const.cd[1]));
  25.       else if (p->constblock.vtype == TYDREAL)
  26.           return(mkrealcon(TYDREAL, 0.0));
  27.       else
  28.  
  29. --- 174,186 -----
  30.           return(mkrealcon(p->constblock.vtype == TYCOMPLEX ?
  31.                       TYREAL : TYDREAL,
  32.                   p->constblock.const.cd[1]));
  33. + #else GFLOAT
  34. +     if (p->constblock.vtype == TYCOMPLEX) 
  35. +         return(mkrealcon( TYREAL, 
  36. +             (double) p->constblock.const.cr[1]));
  37. +     else if (p->constblock.vtype == TYDCOMPLEX)
  38. +         return(mkrealcon( TYDREAL, p->constblock.const.cd[1]));
  39. + #endif GFLOAT
  40.       else if (p->constblock.vtype == TYDREAL)
  41.           return(mkrealcon(TYDREAL, 0.0));
  42.       else
  43. ***************
  44. *** 340,345
  45.           k = 2;
  46.       case TYREAL:
  47.           type = TYREAL;
  48.           goto flpt;
  49.   
  50.       case TYDCOMPLEX:
  51.  
  52. --- 348,354 -----
  53.           k = 2;
  54.       case TYREAL:
  55.           type = TYREAL;
  56. + #ifndef GFLOAT
  57.           goto flpt;
  58.   #else GFLOAT
  59.           for(i = 0 ; i < k ; ++i) 
  60. ***************
  61. *** 341,346
  62.       case TYREAL:
  63.           type = TYREAL;
  64.           goto flpt;
  65.   
  66.       case TYDCOMPLEX:
  67.           k = 2;
  68.  
  69. --- 350,360 -----
  70.           type = TYREAL;
  71.   #ifndef GFLOAT
  72.           goto flpt;
  73. + #else GFLOAT
  74. +         for(i = 0 ; i < k ; ++i) 
  75. +             prconr(asmfile, type, &p->const.cr[i]); 
  76. +         break;
  77. + #endif GFLOAT
  78.   
  79.       case TYDCOMPLEX:
  80.           k = 2;
  81. ***************
  82. *** 346,351
  83.           k = 2;
  84.       case TYDREAL:
  85.           type = TYDREAL;
  86.   
  87.       flpt:
  88.           for(i = 0 ; i < k ; ++i)
  89.  
  90. --- 360,366 -----
  91.           k = 2;
  92.       case TYDREAL:
  93.           type = TYDREAL;
  94. + #ifndef GFLOAT
  95.   
  96.       flpt:
  97.   #endif GFLOAT
  98. ***************
  99. *** 348,353
  100.           type = TYDREAL;
  101.   
  102.       flpt:
  103.           for(i = 0 ; i < k ; ++i)
  104.               prconr(asmfile, type, p->const.cd[i]);
  105.           break;
  106.  
  107. --- 363,369 -----
  108.   #ifndef GFLOAT
  109.   
  110.       flpt:
  111. + #endif GFLOAT
  112.           for(i = 0 ; i < k ; ++i)
  113.   #ifndef GFLOAT
  114.               prconr(asmfile, type, p->const.cd[i]);
  115. ***************
  116. *** 349,354
  117.   
  118.       flpt:
  119.           for(i = 0 ; i < k ; ++i)
  120.               prconr(asmfile, type, p->const.cd[i]);
  121.           break;
  122.   
  123.  
  124. --- 365,371 -----
  125.       flpt:
  126.   #endif GFLOAT
  127.           for(i = 0 ; i < k ; ++i)
  128. + #ifndef GFLOAT
  129.               prconr(asmfile, type, p->const.cd[i]);
  130.   #else GFLOAT
  131.               prconr(asmfile, type, &p->const.cd[i]);
  132. ***************
  133. *** 350,355
  134.       flpt:
  135.           for(i = 0 ; i < k ; ++i)
  136.               prconr(asmfile, type, p->const.cd[i]);
  137.           break;
  138.   
  139.       case TYCHAR:
  140.  
  141. --- 367,375 -----
  142.           for(i = 0 ; i < k ; ++i)
  143.   #ifndef GFLOAT
  144.               prconr(asmfile, type, p->const.cd[i]);
  145. + #else GFLOAT
  146. +             prconr(asmfile, type, &p->const.cd[i]);
  147. + #endif GFLOAT
  148.           break;
  149.   
  150.       case TYCHAR:
  151.