Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.288
 
1.289
 
MAIN:ragge:20100812063922
 
pftn.c
_>289289                         break;
 290290                 case EXTDEF:
 291291                 case EXTERN:
<>292 -                case FORTRAN:
 293 -                case UFORTRAN:
294292                         goto done;
 295293                 case SNULL:
 296294                         if (p->sflags & SINLINE) {
     
 !
321319                         goto done;
 322320                 break;
 323321 
<>324 -        case UFORTRAN:
 325 -                if (scl == UFORTRAN || scl == FORTRAN)
 326 -                        goto done;
 327 -                break;
 328 -
 329 -        case FORTRAN:
 330 -                if (scl == UFORTRAN) {
 331 -                        p->sclass = FORTRAN;
 332 -                        goto done;
 333 -                }
 334 -                break;
 335 -
336322         case MOU:
 337323         case MOS:
 338324                 goto done;
     
 !
373359         /*
 374360          * Only allowed for automatic variables.
 375361          */
<>376 -        if (blevel == slev || class == EXTERN || class == FORTRAN ||
 377 -            class == UFORTRAN) {
  362+        if (blevel == slev || class == EXTERN) {
378363                 if (ISSOU(class) && !ISSOU(p->sclass)) {
 379364 redec:                  uerror("redeclaration of %s", p->sname);
 380365                         return;
     
 !
435420         case STATIC:
 436421         case EXTDEF:
 437422         case EXTERN:
<>438 -        case UFORTRAN:
 439 -        case FORTRAN:
440423                 p->soffset = getlab();
 441424                 if (pragma_renamed)
 442425                         p->soname = pragma_renamed;
     
 !
25142497                 return(EXTERN);
 25152498         else if (class == STATIC)
 25162499                 return(USTATIC);
<>2517 -        else if (class == FORTRAN)
 2518 -                return(UFORTRAN);
25192500         else
 25202501                 return(class);
 25212502 }
     
 !
25472528                         class = EXTERN;
 25482529                 case EXTERN:
 25492530                 case EXTDEF:
<>2550 -                case FORTRAN:
25512531                 case TYPEDEF:
 25522532                 case STATIC:
<>2553 -                case UFORTRAN:
25542533                 case USTATIC:
 25552534                         ;
 25562535                         }
     
 !
25822561                 if( blevel < 2 ) uerror( "illegal ULABEL class" );
 25832562                 return( class );
 25842563 
<>2585 -        case UFORTRAN:
 2586 -        case FORTRAN:
 2587 -# ifdef NOFORTRAN
 2588 -                NOFORTRAN;    /* a condition which can regulate the FORTRAN usage */
 2589 -# endif
 2590 -                if( !ISFTN(type) ) uerror( "fortran declaration must apply to function" );
 2591 -                else {
 2592 -                        type = DECREF(type);
 2593 -                        if( ISFTN(type) || ISARY(type) || ISPTR(type) ) {
 2594 -                                uerror( "fortran function has wrong type" );
 2595 -                                }
 2596 -                        }
<_25972564         case EXTERN:
 25982565         case STATIC:
 25992566         case EXTDEF:
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-10-01 20:23 +0200