Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.46
 
1.47
 
MAIN:ragge:20030610103209
 
pftn.c
_>2727 };
 2828 
 2929 /*
<>30 - * Linked list for parameter declaration.
  30+ * Linked list for parameter (and struct elements) declaration.
3131  */
 3232 static struct params {
 3333         struct params *next, *prev;
 3434         struct symtab *sym;
<>35 -} *parampole, *lpole, *lparam;
  35+} *lpole, *lparam;
3636 static int nparams;
 3737 
 3838 /*
     
 !
455455                 printf("dclargs()\n");
 456456 # endif
 457457 
<> 458+        /* Generate a list for bfcode() */
458459         parr = tmpalloc(sizeof(struct symtab *) * nparams);
<>459 -        for (a = parampole, i = nparams; a && i; a = a->next)
 460 -                parr[--i] = a->sym;
 461 -
 462 -        for (i = 0; i < nparams; i++) {
 463 -                p = parr[i];
  460+        for (a = lparam, i = 0; a != NULL && a != (struct params *)&lpole;
  461+            a = a->prev) {
  462+                p = parr[i++] = a->sym;
464463 # ifndef BUG1
 465464                 if (ddebug > 2) {
 466465                         printf("\t%s (%p) ",p->sname, p);
     
 !
482481         defalign(ALINT);
 483482         ftnno = getlab();
 484483         bfcode(parr, nparams);
<> 484+        lparam = NULL;
485485         nparams = 0;
 486486 }
 487487 
     
 !
714714 void
 715715 ftnarg(char *name)
 716716 {
<>717 -        struct params *p;
718717         struct symtab *s = lookup(name, 0);
 719718 
 720719         blevel = 1; /* Always */
     
 !
739738         s->stype = FARG;
 740739         s->sclass = PARAM;
 741740 
<>742 -        p = tmpalloc(sizeof(struct params));
 743 -        p->next = parampole;
 744 -        p->sym = s;
 745 -        parampole = p;
  741+        ssave(s);
<_746742         nparams++;
 747743 }
 748744 
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-07-11 08:54 +0200