Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.33
 
1.34
 
MAIN:ragge:20030604200825
 
pftn.c
_>287287 
 288288         if( class==MOU || class==MOS || class & FIELD ){/* make a new entry */
 289289                 cerror("mismatch nonunique");
<>290 -#if 0
 291 -                int *memp;
 292 -                p->sflags |= SNONUNIQ/* old entry is nonunique */
 293 -                /* determine if name has occurred in this structure/union */
 294 -                if (paramno > 0) {
 295 -                        memp = &paramstk[paramno-1];
 296 -                        for (; *memp>=0; --memp) {
 297 -                                char *cname, *oname;
 298 -                                struct symtab *w;
 299 -
 300 -                                w = (struct symtab *)*memp;
 301 -                                if (w->sclass != STNAME && w->sclass != UNAME)
 302 -                                        break;
 303 -
 304 -                                if (w->sflags & SNONUNIQ ){
 305 -                                        cname=p->sname;
 306 -                                        oname=w->sname;
 307 -                                        if (cname != oname) goto diff;
 308 -                                        uerror("redeclaration of: %s",p->sname);
 309 -                                        break;
 310 -                                        diff: continue;
 311 -                                }
 312 -                        }
 313 -                }
 314 -                p = mknonuniq( &idp ); /* update p and idp to new entry */
 315 -                goto enter;
 316 -#endif
317290         }
 318291         if (blevel > slev && class != EXTERN && class != FORTRAN &&
 319292             class != UFORTRAN) {
     
 !
549522                 goto def;
 550523 
 551524         }
<>552 -        stwart = instruct;
553525         return(mkty(p->stype, 0, p->sizoff));
 554526 }
 555527 
     
 !
646618         }
 647619 # endif
 648620         temp = (instruct&INSTRUCT)?STRTY:((instruct&INUNION)?UNIONTY:ENUMTY);
<>649 -        stwart = instruct = paramstk[oparam];
  621+        instruct = paramstk[oparam];
650622         strunem = paramstk[oparam+1];
 651623         dimtab[szindex+1] = curdim;
 652624         al = ALSTRUCT;
     
 !
21572129         deflab(labelno[l]);
 21582130 }
 21592131 
<>2160 -#if 0
21612132 /*
<>2162 - * locate a symbol table entry for
 2163 - * an occurrence of a nonunique structure member name
 2164 - * or field
 2165 - */
 2166 -struct symtab *
 2167 -mknonuniq(int *idindex)
 2168 -{
 2169 -        extern int newsidx;
 2170 -        int i;
 2171 -        struct symtab * sp;
 2172 -        char *q;
 2173 -
 2174 -        sp = & stab[ i= *idindex ]; /* position search at old entry */
 2175 -        while( sp->stype != TNULL ){ /* locate unused entry */
 2176 -                if( ++i >= SYMTSZ ){/* wrap around symbol table */
 2177 -                        i = 0;
 2178 -                        sp = stab;
 2179 -                        }
 2180 -                else ++sp;
 2181 -                if( i == *idindex ) cerror("Symbol table full");
 2182 -                }
 2183 -        sp->sflags = SNONUNIQ | SMOS;
 2184 -        q = stab[*idindex].sname; /* old entry name */
 2185 -        sp->sname = stab[*idindex].sname;
 2186 -# ifndef BUG1
 2187 -        if( ddebug ){
 2188 -                printf("\tnonunique entry for %s from %d to %d\n",
 2189 -                        q, *idindex, i );
 2190 -                }
 2191 -# endif
 2192 -        *idindex = newsidx = i;
 2193 -        return ( sp );
 2194 -}
 2195 -#endif
 2196 -
 2197 -/*
21982133  * look up name: must agree with s w.r.t. STAG, SMOS and SHIDDEN
 21992134  */
 22002135 struct symtab *
     
 !
22072142         /* compute initial hash index */
 22082143 # ifndef BUG1
 22092144         if (ddebug > 2)
<>2210 -                printf("lookup(%s, %d), stwart=%d, instruct=%d\n",
 2211 -                    name, s, stwart, instruct);
  2145+                printf("lookup(%s, %d), instruct=%d\n",
  2146+                    name, s, instruct);
<_22122147 # endif
 22132148 
 22142149         if (s == STAG)
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-08-28 07:06 +0200