OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(chainon): Detect more circularities. 

From-SVN: r6266
This commit is contained in:
Richard Kenner 1993-12-22 14:18:06 -05:00
parent b60e974d79
commit 1810c3fa48
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gcc/tree.c
View File

@ -1571,14 +1571,18 @@ tree
chainon (op1, op2)
tree op1, op2;
{
tree t;
if (op1)
{
for (t = op1; TREE_CHAIN (t); t = TREE_CHAIN (t))
if (t == op2) abort (); /* Circularity being created */
if (t == op2) abort (); /* Circularity being created */
TREE_CHAIN (t) = op2;
register tree t1;
register tree t2;
for (t1 = op1; TREE_CHAIN (t1); t1 = TREE_CHAIN (t1))
;
TREE_CHAIN (t1) = op2;
for (t2 = op2; t2; t2 = TREE_CHAIN (t2))
if (t2 == t1)
abort (); /* Circularity created. */
return op1;
}
else return op2;