home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / g-format / part4 / gfloat / f77 / src / f77pass1 / optcse.c.diff < prev    next >
Encoding:
Text File  |  1986-11-30  |  1.1 KB  |  47 lines
  1. *** ../f77/src/f77pass1/optcse.c.orig    Tue Oct 29 15:16:07 1985
  2. --- ../f77/src/f77pass1/optcse.c    Tue Oct 29 15:22:56 1985
  3. ***************
  4. *** 477,483
  5.               case TYLONG:
  6.                   if(ap->ci == bp->ci) return(TRUE);
  7.                   break;
  8. !             case TYREAL:
  9.               case TYDREAL:
  10.                   if(ap->cd[0] == bp->cd[0]) return(TRUE);
  11.                   break;
  12.  
  13. --- 477,487 -----
  14.               case TYLONG:
  15.                   if(ap->ci == bp->ci) return(TRUE);
  16.                   break;
  17. !             case TYREAL: 
  18. ! #ifdef GFLOAT
  19. !                 if(ap->cr[0] == bp->cr[0]) return(TRUE);
  20. !                 break;
  21. ! #endif GFLOAT
  22.               case TYDREAL:
  23.                   if(ap->cd[0] == bp->cd[0]) return(TRUE);
  24.                   break;
  25. ***************
  26. *** 482,487
  27.                   if(ap->cd[0] == bp->cd[0]) return(TRUE);
  28.                   break;
  29.               case TYCOMPLEX:
  30.               case TYDCOMPLEX:
  31.                   if(ap->cd[0] == bp->cd[0] &&
  32.                       ap->cd[1] == bp->cd[1] )
  33.  
  34. --- 486,497 -----
  35.                   if(ap->cd[0] == bp->cd[0]) return(TRUE);
  36.                   break;
  37.               case TYCOMPLEX:
  38. + #ifdef GFLOAT
  39. +                 if(ap->cr[0] == bp->cr[0] &&
  40. +                     ap->cr[1] == bp->cr[1] )
  41. +                     return(TRUE);
  42. +                 break;
  43. + #endif GFLOAT
  44.               case TYDCOMPLEX:
  45.                   if(ap->cd[0] == bp->cd[0] &&
  46.                       ap->cd[1] == bp->cd[1] )
  47.