godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cleaned up a bit

Browse Source
This commit is contained in:
ceriel
1991-03-13 13:49:56 +00:00
parent 17266fb373
commit 52842cd09a
13 changed files with 112 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lang/m2/comp/node.c
View File

@@ -95,22 +95,6 @@ dot2leaf(class)
return MkLeaf(class, &dot);
}
FreeLR(nd)
register t_node *nd;
{
switch(nsubnodes[nd->nd_class]) {
case 2:
FreeNode(nd->nd_LEFT);
FreeNode(nd->nd_RIGHT);
nd->nd_LEFT = nd->nd_RIGHT = 0;
break;
case 1:
FreeNode(nd->nd_NEXT);
nd->nd_NEXT = 0;
break;
}
}
FreeNode(nd)
register t_node *nd;
{
@@ -118,7 +102,15 @@ FreeNode(nd)
list
*/
if (!nd) return;
FreeLR(nd);
switch(nsubnodes[nd->nd_class]) {
case 2:
FreeNode(nd->nd_LEFT);
FreeNode(nd->nd_RIGHT);
break;
case 1:
FreeNode(nd->nd_NEXT);
break;
}
free_node(nd);
}