home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / g-format / part2 / gfloat / f77 / src / f1 / local2.c.diff next >
Encoding:
Text File  |  1986-11-30  |  4.2 KB  |  224 lines
  1. *** ../f77/src/f1/local2.c.orig    Tue Oct 29 15:16:24 1985
  2. --- ../f77/src/f1/local2.c    Tue Oct 29 15:21:37 1985
  3. ***************
  4. *** 77,82
  5.               printf( "%s", q->opstring );
  6.   /* tbl
  7.               if( f == 'F' ) printf( "e" );
  8.               else if( f == 'D' ) printf( "d" );
  9.      tbl */
  10.   /* tbl */
  11.  
  12. --- 77,83 -----
  13.               printf( "%s", q->opstring );
  14.   /* tbl
  15.               if( f == 'F' ) printf( "e" );
  16. + #ifndef GFLOAT
  17.               else if( f == 'D' ) printf( "d" );
  18.   #else GFLOAT
  19.               else if( f == 'D' ) printf( "g" );
  20. ***************
  21. *** 78,83
  22.   /* tbl
  23.               if( f == 'F' ) printf( "e" );
  24.               else if( f == 'D' ) printf( "d" );
  25.      tbl */
  26.   /* tbl */
  27.               switch( f ) {
  28.  
  29. --- 79,87 -----
  30.               if( f == 'F' ) printf( "e" );
  31.   #ifndef GFLOAT
  32.               else if( f == 'D' ) printf( "d" );
  33. + #else GFLOAT
  34. +             else if( f == 'D' ) printf( "g" );
  35. + #endif GFLOAT
  36.      tbl */
  37.   /* tbl */
  38.               switch( f ) {
  39. ***************
  40. *** 84,89
  41.                   case 'L':
  42.                   case 'W':
  43.                   case 'B':
  44.                   case 'D':
  45.                   case 'F':
  46.                       printf("%c", tolower(f));
  47.  
  48. --- 88,97 -----
  49.                   case 'L':
  50.                   case 'W':
  51.                   case 'B':
  52. + #ifdef GFLOAT
  53. +                     printf("%c", tolower(f));
  54. +                     break;
  55. + #endif GFLOAT
  56.                   case 'D':
  57.   #ifdef GFLOAT
  58.                       printf("g");
  59. ***************
  60. *** 85,90
  61.                   case 'W':
  62.                   case 'B':
  63.                   case 'D':
  64.                   case 'F':
  65.                       printf("%c", tolower(f));
  66.                       break;
  67.  
  68. --- 93,102 -----
  69.                       break;
  70.   #endif GFLOAT
  71.                   case 'D':
  72. + #ifdef GFLOAT
  73. +                     printf("g");
  74. +                     break;
  75. + #endif GFLOAT
  76.                   case 'F':
  77.                       printf("%c", tolower(f));
  78.                       break;
  79. ***************
  80. *** 143,148
  81.       tp = p->in.type;
  82.       tq = q->in.type;
  83.   
  84.       return( (tp==FLOAT || tp==DOUBLE) !=
  85.           (tq==FLOAT || tq==DOUBLE) );
  86.   }
  87.  
  88. --- 155,161 -----
  89.       tp = p->in.type;
  90.       tq = q->in.type;
  91.   
  92. + #ifndef GFLOAT
  93.       return( (tp==FLOAT || tp==DOUBLE) !=
  94.           (tq==FLOAT || tq==DOUBLE) );
  95.   #else GFLOAT
  96. ***************
  97. *** 145,150
  98.   
  99.       return( (tp==FLOAT || tp==DOUBLE) !=
  100.           (tq==FLOAT || tq==DOUBLE) );
  101.   }
  102.   
  103.   prtype(n) NODE *n;
  104.  
  105. --- 158,167 -----
  106.   #ifndef GFLOAT
  107.       return( (tp==FLOAT || tp==DOUBLE) !=
  108.           (tq==FLOAT || tq==DOUBLE) );
  109. + #else GFLOAT
  110. +     return( ((tp==FLOAT || tp==DOUBLE) != (tq==FLOAT || tq==DOUBLE)) ||
  111. +          (tp==FLOAT && tq==DOUBLE) || (tp==DOUBLE && tq==FLOAT) );
  112. + #endif GFLOAT
  113.   }
  114.   
  115.   prtype(n) NODE *n;
  116. ***************
  117. *** 152,157
  118.       switch (n->in.type)
  119.           {
  120.           case DOUBLE:
  121.               printf("d");
  122.               return;
  123.   
  124.  
  125. --- 169,175 -----
  126.       switch (n->in.type)
  127.           {
  128.           case DOUBLE:
  129. + #ifndef GFLOAT
  130.               printf("d");
  131.   #else GFLOAT
  132.               printf("g");
  133. ***************
  134. *** 153,158
  135.           {
  136.           case DOUBLE:
  137.               printf("d");
  138.               return;
  139.   
  140.           case FLOAT:
  141.  
  142. --- 171,179 -----
  143.           case DOUBLE:
  144.   #ifndef GFLOAT
  145.               printf("d");
  146. + #else GFLOAT
  147. +             printf("g");
  148. + #endif GFLOAT
  149.               return;
  150.   
  151.           case FLOAT:
  152. ***************
  153. *** 386,391
  154.   
  155.           if (xdebug) printf("->%d<-", ty);
  156.   
  157.           if ( ty==DOUBLE) printf("d");
  158.           else if ( ty==FLOAT ) printf("f");
  159.           else printf("l");
  160.  
  161. --- 407,413 -----
  162.   
  163.           if (xdebug) printf("->%d<-", ty);
  164.   
  165. + #ifndef GFLOAT
  166.           if ( ty==DOUBLE) printf("d");
  167.   #else GFLOAT
  168.           if ( ty==DOUBLE) printf("g");
  169. ***************
  170. *** 387,392
  171.           if (xdebug) printf("->%d<-", ty);
  172.   
  173.           if ( ty==DOUBLE) printf("d");
  174.           else if ( ty==FLOAT ) printf("f");
  175.           else printf("l");
  176.           return;
  177.  
  178. --- 409,417 -----
  179.   
  180.   #ifndef GFLOAT
  181.           if ( ty==DOUBLE) printf("d");
  182. + #else GFLOAT
  183. +         if ( ty==DOUBLE) printf("g");
  184. + #endif GFLOAT
  185.           else if ( ty==FLOAT ) printf("f");
  186.           else printf("l");
  187.           return;
  188. ***************
  189. *** 483,488
  190.   
  191.   rmove( rt, rs, t ){
  192.       printf( "    %s    %s,%s\n",
  193.           (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")),
  194.           rnames[rs], rnames[rt] );
  195.       }
  196.  
  197. --- 508,514 -----
  198.   
  199.   rmove( rt, rs, t ){
  200.       printf( "    %s    %s,%s\n",
  201. + #ifndef GFLOAT
  202.           (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")),
  203.   #else GFLOAT
  204.           (t==FLOAT ? "movf" : (t==DOUBLE ? "movg" : "movl")),
  205. ***************
  206. *** 484,489
  207.   rmove( rt, rs, t ){
  208.       printf( "    %s    %s,%s\n",
  209.           (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")),
  210.           rnames[rs], rnames[rt] );
  211.       }
  212.   
  213.  
  214. --- 510,518 -----
  215.       printf( "    %s    %s,%s\n",
  216.   #ifndef GFLOAT
  217.           (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")),
  218. + #else GFLOAT
  219. +         (t==FLOAT ? "movf" : (t==DOUBLE ? "movg" : "movl")),
  220. + #endif GFLOAT
  221.           rnames[rs], rnames[rt] );
  222.       }
  223.   
  224.