Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.114
 
1.115
 
MAIN:ragge:20040614163331
 
pftn.c
_>456456         case UFORTRAN:
 457457         case FORTRAN:
 458458                 p->soffset = getlab();
<> 459+#ifdef notdef
  460+                /* Cannot reset level here. What does the standard say??? */
459461                 p->slevel = 0;
<> 462+#endif
460463 #ifdef GCC_COMPAT
 461464                 {       extern char *renname;
 462465                         if (renname)
     
 !
14491452                 bccode();
 14501453                 send_passt(IP_NEWBLK, regvar, autooff);
 14511454                 spname = pstk->in_sym;
<>1452 -                p = buildtree( ASSIGN, buildtree( NAME, NIL, NIL ), p );
  1455+                u = buildtree(NAME, NIL, NIL);
  1456+#ifdef notdef
  1457+                /* Should allow for array init */
  1458+                if (ISARY(u->n_type))
  1459+                        u = buildtree(ADDROF, u, NIL);
  1460+#endif
  1461+                p = buildtree( ASSIGN, u, p );
14531462                 ecomp(p);
 14541463                 return;
 14551464                 }
     
 !
14971506                         uerror( "illegal initialization" );
 14981507                 else {
 14991508                         incode( p->n_left, sz );
<>1500 -                        nfree(p);
  1509+                        tfree(p);
15011510                 }
 15021511         } else if( o == FCON ){
 15031512                 fincode(p->n_left, sz );
<>1504 -                nfree(p);
  1513+                tfree(p);
<_15051514         } else {
 15061515                 cinit( optim(p), sz );
 15071516         }
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-21 22:10 +0200