home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / g-format / part4 / gfloat / f77 / src / f77pass1 / optloop.c.diff < prev    next >
Encoding:
Text File  |  1986-11-30  |  998 b   |  42 lines
  1. *** ../f77/src/f77pass1/optloop.c.orig    Tue Oct 29 15:16:09 1985
  2. --- ../f77/src/f77pass1/optloop.c    Wed Oct 30 20:26:44 1985
  3. ***************
  4. *** 660,665
  5.         return YES;
  6.   
  7.     if (ISREAL(p->constblock.vtype))
  8.       if (abs(p->constblock.const.cd[0]) <= 1.0)
  9.         return YES;
  10.   
  11.  
  12. --- 660,666 -----
  13.         return YES;
  14.   
  15.     if (ISREAL(p->constblock.vtype))
  16. + #ifndef GFLOAT
  17.       if (abs(p->constblock.const.cd[0]) <= 1.0)
  18.   #else GFLOAT
  19.       if (p->constblock.vtype==TYREAL) {
  20. ***************
  21. *** 661,666
  22.   
  23.     if (ISREAL(p->constblock.vtype))
  24.       if (abs(p->constblock.const.cd[0]) <= 1.0)
  25.         return YES;
  26.   
  27.     return NO;
  28.  
  29. --- 662,673 -----
  30.     if (ISREAL(p->constblock.vtype))
  31.   #ifndef GFLOAT
  32.       if (abs(p->constblock.const.cd[0]) <= 1.0)
  33. + #else GFLOAT
  34. +     if (p->constblock.vtype==TYREAL) {
  35. +       if (abs(p->constblock.const.cr[0]) <= 1.0) return YES;
  36. +       }
  37. +     else if (abs(p->constblock.const.cd[0]) <= 1.0)
  38. + #endif GFLOAT
  39.         return YES;
  40.   
  41.     return NO;
  42.