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

fixes and squeezing

Browse Source
This commit is contained in:
ceriel
1987-12-02 10:41:38 +00:00
parent 9cc60526b7
commit a61d36ff49
6 changed files with 61 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -61,6 +61,14 @@ dot2leaf(class)
return MkLeaf(class, &dot);
}
FreeLR(nd)
register t_node *nd;
{
FreeNode(nd->nd_left);
FreeNode(nd->nd_right);
nd->nd_left = nd->nd_right = 0;
}
FreeNode(nd)
register t_node *nd;
{
@@ -68,8 +76,7 @@ FreeNode(nd)
list
*/
if (!nd) return;
FreeNode(nd->nd_left);
FreeNode(nd->nd_right);
FreeLR(nd);
free_node(nd);
}