Quick Search:

Mode

Context

Displaying 3 lines of context. None | Less | More | Full

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.3
 
1.4
 
MAIN:ragge:20020502180353
 
pftn.c
_>6161         p = &stab[idp];
 6262 
 6363 # ifndef BUG1
<>64 -        if( ddebug ){
 65 -                printf( "defid( %s (%d), ", p->sname, idp );
 66 -                tprint( q->in.type );
 67 -                printf( ", %s, (%d,%d) ), level %d\n", scnames(class), q->fn.cdim, q->fn.csiz, blevel );
 68 -                }
  64+        if (ddebug) {
  65+                printf("defid(%s (%d), ", p->sname, idp);
  66+                tprint(q->in.type);
  67+                printf(", %s, (%d,%d)), level %d\n", scnames(class),
  68+                    q->fn.cdim, q->fn.csiz, blevel);
  69+        }
6970 # endif
 7071 
 7172         fixtype( q, class );
     
 !
7778         slev = p->slevel;
 7879 
 7980 # ifndef BUG1
<>80 -        if( ddebug ){
 81 -                printf( "       modified to " );
 82 -                tprint( type );
 83 -                printf( ", %s\n", scnames(class) );
 84 -                printf( "       previous def'n: " );
 85 -                tprint( stp );
 86 -                printf( ", %s, (%d,%d) ), level %d\n", scnames(p->sclass), p->dimoff, p->sizoff, slev );
 87 -                }
  81+        if (ddebug) {
  82+                printf("        modified to ");
  83+                tprint(type);
  84+                printf(", %s\n", scnames(class));
  85+                printf("        previous def'n: ");
  86+                tprint(stp);
  87+                printf(", %s, (%d,%d)), level %d\n",
  88+                    scnames(p->sclass), p->dimoff, p->sizoff, slev);
  89+        }
8890 # endif
 8991 
 9092         if( stp == FTN && p->sclass == SNULL )goto enter;
<>91 -        if( blevel==1 && stp!=FARG ) switch( class ){
 92 -
  93+        if (blevel==1 && stp!=FARG)
  94+                switch( class ){
9395                 default:
<>94 -                        if(!(class&FIELD)) uerror( "declared argument %s is missing", p->sname );
  96+                        if (!(class&FIELD))
  97+                                uerror( "declared argument %s is missing",
  98+                                    p->sname );
9599                 case MOS:
 96100                 case STNAME:
 97101                 case MOU:
     
 !
100104                 case ENAME:
 101105                 case TYPEDEF:
 102106                         ;
<>103 -                        }
  107+        }
104108         if( stp == UNDEF|| stp == FARG ) goto enter;
 105109 
 106110         if( type != stp ) goto mismatch;
     
 !
17341738         switch( class ){
 17351739 
 17361740         case MOU:
<>1737 -                if( !(instruct&INUNION) ) uerror( "illegal class" );
  1741+                if( !(instruct&INUNION) ) uerror( "illegal MOU class" );
17381742                 return( class );
 17391743 
 17401744         case MOS:
<>1741 -                if( !(instruct&INSTRUCT) ) uerror( "illegal class" );
  1745+                if( !(instruct&INSTRUCT) ) uerror( "illegal MOS class" );
17421746                 return( class );
 17431747 
 17441748         case MOE:
<>1745 -                if( instruct & (INSTRUCT|INUNION) ) uerror( "illegal class" );
  1749+                if( instruct & (INSTRUCT|INUNION) ) uerror( "illegal MOE class" );
17461750                 return( class );
 17471751 
 17481752         case REGISTER:
     
 !
17541758         case AUTO:
 17551759         case LABEL:
 17561760         case ULABEL:
<>1757 -                if( blevel < 2 ) uerror( "illegal class" );
  1761+                if( blevel < 2 ) uerror( "illegal ULABEL class" );
17581762                 return( class );
 17591763 
 17601764         case PARAM:
<>1761 -                if( blevel != 1 ) uerror( "illegal class" );
  1765+                if( blevel != 1 ) uerror( "illegal PARAM class" );
17621766                 return( class );
 17631767 
 17641768         case UFORTRAN:
     
 !
17791783         case TYPEDEF:
 17801784         case USTATIC:
 17811785                 if( blevel == 1 ){
<>1782 -                        uerror( "illegal class" );
  1786+                        uerror( "illegal USTATIC class" );
<_17831787                         return( PARAM );
 17841788                         }
 17851789         case STNAME:
FishEye: Open Source License registered to PCC.
Your maintenance has expired. You can renew your license at http://www.atlassian.com/fisheye/renew
Atlassian FishEye, CVS analysis. (Version:1.6.3 Build:build-336 2008-11-04) - Administration - Page generated 2014-09-23 06:20 +0200