Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.40
 
1.41
 
MAIN:ragge:20030608180336
 
pftn.c
_>4242 void inforce(OFFSZ n);
 4343 void vfdalign(int n);
 4444 static void instk(struct symtab *p, TWORD t, int d, int s, OFFSZ off);
<>45 -static struct symtab *hide(struct symtab *p);
4645 void gotscal(void);
 4746 
 4847 int ddebug = 0;
     
 !
357356                 break;
 358357         }
 359358 
<> 359+        if (p->slevel > 0 && (p->sflags & SMASK) == SNORMAL)
  360+                schedremove(p);
  361+#if 0
360362         {
 361363                 int l = p->slevel;
 362364 
     
 !
368370                 if( l >= chaintop )
 369371                         chaintop = l + 1;
 370372         }
<> 373+#endif
371374 
 372375         /* user-supplied routine to fix up new definitions */
 373376 
     
 !
696699 {
 697700         struct symtab *s = lookup(name, 0);
 698701 
<> 702+        blevel = 1; /* Always */
  703+
699704         switch (s->stype) {
 700705         case UNDEF:
 701706                 /* this parameter, entered at scan */
     
 !
20882093 struct symtab *
 20892094 lookup(char *name, int s)
 20902095 {
<>2091 -        char *p, *q;
 2092 -        int i, ii;
 2093 -        struct symtab *sp;
  2096+//      char *p, *q;
  2097+//      int i, ii;
  2098+//      struct symtab *sp;
20942099 
 20952100         /* compute initial hash index */
 20962101 # ifndef BUG1
     
 !
20992104                     name, s, instruct);
 21002105 # endif
 21012106 
<>2102 -        if (s == STAGNAME || s == SLBLNAME)
  2107+//      if (s == STAGNAME || s == SLBLNAME)
21032108                 return symbol_add(name, s);
<>2104 -
  2109+#if 0
21052110         i = (int)name;
 21062111         i = i%SYMTSZ;
 21072112         sp = &stab[ii=i];
     
 !
21342139                 if (i == ii)
 21352140                         cerror("symbol table full");
 21362141         }
<> 2142+#endif
21372143 }
 21382144 
 21392145 #ifdef PCC_DEBUG
     
 !
21602166 }
 21612167 #endif
 21622168 
<> 2169+#if 0
21632170 /*
 21642171  * look up p again, and see where it lies
 21652172  */
     
 !
21822189         }
 21832190         return(q);
 21842191 }
<> 2192+#endif
21852193 
 21862194 void
 21872195 clearst(int lev)
 21882196 {
<>2189 -        struct symtab *p, *q;
  2197+//      struct symtab *p, *q;
21902198         int temp;
<>2191 -        struct symtab *clist = 0;
  2199+//      struct symtab *clist = 0;
21922200 
 21932201         temp = lineno;
 21942202         aobeg();
 21952203 
<> 2204+#if 0
21962205         /* step 1: remove entries */
 21972206         while( chaintop-1 > lev ){
 21982207                 p = schain[--chaintop];
     
 !
22482257                         }
 22492258                 p = next;
 22502259                 }
<> 2260+#endif
22512261 
 22522262         symclear(lev); /* Clean ut the symbol table */
 22532263 
 22542264         lineno = temp;
 22552265         aoend();
 22562266 }
 22572267 
<> 2268+#if 0
22582269 /*
 22592270  * Hide an earlier symbol p by creating a new one.
 22602271  * Return the new symbol.
     
 !
23152326                 }
 23162327         cerror( "unhide fails" );
 23172328         }
<> 2329+#endif
23182330 
 23192331 struct symtab *
 23202332 getsymtab(char *name, int flags)
 23212333 {
 23222334         struct symtab *s;
 23232335 
<>2324 -        if (flags == SLBLNAME)
  2336+        if (flags & STEMP)
23252337                 s = tmpalloc(sizeof(struct symtab));
 23262338         else
 23272339                 s = permalloc(sizeof(struct symtab));
 23282340         s->sname = name;
 23292341         s->snext = NULL;
 23302342         s->stype = UNDEF;
 23312343         s->sclass = SNULL;
<>2332 -        s->sflags = flags;
  2344+        s->sflags = flags & SMASK;
<_23332345         s->soffset = 0;
 23342346         s->s_argn = 0;
 23352347         return s;
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-11-01 09:27 +0100