Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.48
 
1.49
 
MAIN:ragge:20030610122927
 
pftn.c
_>18291829         return mkty(INT, 0, 0);
 18301830 }
 18311831 
<> 1832+static struct tylnk {
  1833+        struct tylnk *next;
  1834+        int dim;
  1835+} tylnk, *tylkp;
  1836+
  1837+static void
  1838+tylkadd(int dim)
  1839+{
  1840+        tylkp->next = tmpalloc(sizeof(struct tylnk));
  1841+        tylkp = tylkp->next;
  1842+        tylkp->next = NULL;
  1843+        tylkp->dim = dim;
  1844+}
  1845+
18321846 /* merge type typ with identifier idp  */
 18331847 NODE *
 18341848 tymerge(NODE *typ, NODE *idp)
 18351849 {
<> 1850+        struct tylnk *base;
18361851         unsigned int t;
 18371852         int i;
 18381853 
     
 !
18471862 
 18481863         idp->n_type = typ->n_type;
 18491864         idp->n_cdim = curdim;
<> 1865+
  1866+        tylkp = &tylnk;
  1867+        tylkp->next = NULL;
  1868+
18501869         tyreduce(idp);
 18511870         idp->n_sue = typ->n_sue;
 18521871 
 18531872         for (t=typ->n_type, i=typ->n_cdim; t&TMASK; t = DECREF(t))
 18541873                 if (ISARY(t))
<>1855 -                        dstash(dimtab[i++]);
  1874+                        tylkadd(dimtab[i++]);
18561875 
<> 1876+        for (base = tylnk.next; base; base = base->next)
  1877+                dstash(base->dim);
  1878+
18571879         /* now idp is a single node: fix up type */
 18581880 
 18591881         idp->n_type = ctype(idp->n_type);
     
 !
19061928         tyreduce(p->n_left);
 19071929 
 19081930         if (o == LB)
<>1909 -                dstash(temp);
  1931+                tylkadd(temp);
19101932         if (o == RB) {
<>1911 -                dstash(-1);
  1933+                tylkadd(-1);
<_19121934                 arrstk[arrstkp++] = q;
 19131935         }
 19141936 
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 05:10 +0100