Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.104
 
1.105
 
MAIN:ragge:20040621081946
 
reader.c
_>140140         }
 141141 #endif
 142142 
<>143 -# ifdef MYREADER
 144 -        MYREADER(p);  /* do your own laundering of the input */
 145 -# endif
146143         nrecur = 0;
 147144         deli = 0;
 148145         delay(p);
     
 !
283280                 if (ip->ip_node == NULL)
 284281                         return;
 285282 
<> 283+# ifdef MYREADER
  284+        MYREADER(ip->ip_node);  /* do your own laundering of the input */
  285+# endif
286286                 mkhardops(ip->ip_node);
<>287 -                gencall(ip->ip_node);
  287+//printf("gencall...\n");
  288+//fwalk(ip->ip_node, e2print, 0);
  289+                gencall(ip->ip_node, NIL);
288290 #ifdef notyet
 289291                 optim1(ip->ip_node);
 290292 #endif
     
 !
14961498         fprintf(stderr, "\n");
 14971499         va_end(ap);
 14981500 
<>1499 -        fwalk(nodepole, e2print, 0);
  1501+        if (nodepole && nodepole->n_op != FREE)
  1502+                fwalk(nodepole, e2print, 0);
15001503         exit(1);
 15011504 }
 15021505 
     
 !
16101613 
 16111614         /* Done! */
 16121615 }
<_ 1616+
  1617+NODE *
  1618+mklnode(int op, CONSZ lval, int rval, TWORD type)
  1619+{
  1620+        NODE *p = talloc();
  1621+
  1622+        p->n_name = "";
  1623+        p->n_qual = 0;
  1624+        p->n_op = op;
  1625+        p->n_lval = lval;
  1626+        p->n_rval = rval;
  1627+        p->n_type = type;
  1628+        return p;
  1629+}
  1630+
  1631+NODE *
  1632+mkbinode(int op, NODE *left, NODE *right, TWORD type)
  1633+{
  1634+        NODE *p = talloc();
  1635+
  1636+        p->n_name = "";
  1637+        p->n_qual = 0;
  1638+        p->n_op = op;
  1639+        p->n_left = left;
  1640+        p->n_right = right;
  1641+        p->n_type = type;
  1642+        return p;
  1643+}
  1644+
  1645+NODE *
  1646+mkunode(int op, NODE *left, int rval, TWORD type)
  1647+{
  1648+        NODE *p = talloc();
  1649+
  1650+        p->n_name = "";
  1651+        p->n_qual = 0;
  1652+        p->n_op = op;
  1653+        p->n_left = left;
  1654+        p->n_rval = rval;
  1655+        p->n_type = type;
  1656+        return p;
  1657+}
  1658+
  1659+struct interpass *
  1660+ipnode(NODE *p)
  1661+{
  1662+        struct interpass *ip = tmpalloc(sizeof(struct interpass));
  1663+
  1664+        ip->ip_node = p;
  1665+        ip->type = IP_NODE;
  1666+        ip->lineno = thisline;
  1667+        return ip;
  1668+}
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-10-01 18:16 +0200