Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.189
 
1.190
 
MAIN:ragge:20080101171757
 
pftn.c
_>383383         p->sclass = class;
 384384         p->slevel = blevel;
 385385         p->soffset = NOOFFSET;
<>386 -        p->suse = lineno;
387386         if (class == STNAME || class == UNAME) {
 388387                 p->ssue = permalloc(sizeof(struct suedef));
 389388                 suedefcnt++;
     
 !
429428                 break;
 430429         case STATIC:
 431430         case EXTDEF:
<>432 -                p->soffset = getlab();
 433 -#ifdef GCC_COMPAT
 434 -                {       extern char *renname;
 435 -                        if (renname)
 436 -                                gcc_rename(p, renname);
 437 -                        renname = NULL;
 438 -                }
 439 -#endif
 440 -                break;
 441 -
442431         case EXTERN:
 443432         case UFORTRAN:
 444433         case FORTRAN:
 445434                 p->soffset = getlab();
<>446 -#ifdef notdef
 447 -                /* Cannot reset level here. What does the standard say??? */
 448 -                p->slevel = 0;
 449 -#endif
 450 -#ifdef GCC_COMPAT
 451 -                {       extern char *renname;
 452 -                        if (renname)
 453 -                                gcc_rename(p, renname);
 454 -                        renname = NULL;
 455 -                }
 456 -#endif
  435+                if (pragma_renamed)
  436+                        p->soname = pragma_renamed;
  437+                pragma_renamed = NULL;
457438                 break;
<> 439+
458440         case MOU:
 459441         case MOS:
 460442                 oalloc(p, &strucoff);
     
 !
469451                 stabs_newsym(p);
 470452 #endif
 471453 
<> 454+        fixdef(p);      /* Leave last word to target */
472455 #ifdef PCC_DEBUG
 473456         if (ddebug)
 474457                 printf( "       sdf, ssue, offset: %p, %p, %d\n",
 475458                     p->sdf, p->ssue, p->soffset);
 476459 #endif
<>477 -
478460 }
 479461 
 480462 void
     
 !
509491         if (retlab != NOLAB && nerrors == 0) { /* inside a real function */
 510492                 plabel(retlab);
 511493                 efcode(); /* struct return handled here */
<>512 -                c = cftnsp->sname;
 513 -#ifdef GCC_COMPAT
 514 -                c = gcc_findname(cftnsp);
 515 -#endif
  494+                c = cftnsp->soname;
516495                 SETOFF(maxautooff, ALCHAR);
 517496                 send_passt(IP_EPILOG, 0, maxautooff/SZCHAR, c,
 518497                     cftnsp->stype, cftnsp->sclass == EXTDEF, retlab);
     
 !
614593                 intcompare = 0;
 615594         }
 616595 done:   cendarg();
<>617 -        c = cftnsp->sname;
 618 -#ifdef GCC_COMPAT
 619 -        c = gcc_findname(cftnsp);
 620 -#endif
  596+        c = cftnsp->soname;
621597 #if 0
 622598         prolab = getlab();
 623599         send_passt(IP_PROLOG, -1, -1, c, cftnsp->stype,
     
 !
836812  * Called after a struct is declared to restore the environment.
 837813  */
 838814 NODE *
<>839 -dclstruct(struct rstack *r, int pa)
  815+dclstruct(struct rstack *r)
840816 {
 841817         NODE *n;
 842818         struct params *l, *m;
     
 !
876852         sue->suelem = permalloc(sizeof(struct symtab *) * i);
 877853 
 878854         coff = 0;
<>879 -        if (pa == PRAG_PACKED || pa == PRAG_ALIGNED)
  855+        if (pragma_packed || pragma_aligned)
880856                 strucoff = 0; /* must recount it */
 881857 
 882858         for (i = 0; l != NULL; l = l->next) {
     
 !
890866                 else
 891867                         sz = tsize(p->stype, p->sdf, p->ssue);
 892868 
<>893 -                if (pa == PRAG_PACKED || pa == PRAG_ALIGNED) {
  869+                if (pragma_packed || pragma_aligned) {
  870+                        /* XXX check pack/align sizes */
894871                         p->soffset = coff;
<>895 -                        if (pa == PRAG_ALIGNED)
  872+                        if (pragma_aligned)
896873                                 coff += ALLDOUBLE;
 897874                         else
 898875                                 coff += sz;
     
 !
913890         sue->suesize = strucoff;
 914891         sue->suealign = al;
 915892 
<> 893+        pragma_packed = pragma_aligned = 0;
  894+
916895 #ifdef STABS
 917896         if (gflag)
 918897                 stabs_struct(r->rsym, sue);
     
 !
26552634                 s = permalloc(sizeof(struct symtab));
 26562635                 symtabcnt++;
 26572636         }
<>2658 -        s->sname = name;
  2637+        s->sname = s->soname = name;
26592638         s->snext = NULL;
 26602639         s->stype = UNDEF;
 26612640         s->squal = 0;
     
 !
26652644         s->slevel = blevel;
 26662645         s->sdf = NULL;
 26672646         s->ssue = NULL;
<>2668 -        s->suse = 0;
<_26692647         return s;
 26702648 }
 26712649 
FishEye: Open Source License registered to PCC.
Atlassian FishEye, CVS analysis. (Version:1.6.3 Build:build-336 2008-11-04) - Administration - Page generated 2014-12-18 06:48 +0100