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

calls.c (calls_function_1): Propertly handle TREE_LIST expressions; use special_function_p to detect alloca. 

* calls.c (calls_function_1):  Propertly handle TREE_LIST expressions;
	use special_function_p to detect alloca.

From-SVN: r33528
This commit is contained in:
Jan Hubicka 2000-04-28 23:17:41 +00:00 committed by Jan Hubicka
parent e67466053b
commit 0c4c16df3e
2 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ChangeLog
View File

@ -1,3 +1,8 @@
Sat Apr 29 01:15:27 MET DST 2000 Jan Hubicka <jh@suse.cz>
* calls.c (calls_function_1): Propertly handle TREE_LIST expressions;
use special_function_p to detect alloca.
Fri Apr 28 16:30:33 2000 Marc Espie <espie@cvs.openbsd.org>
* gcc.texi: Fixes for makeinfo 4.0 --html.

25
gcc/calls.c
View File

@ -254,11 +254,6 @@ calls_function_1 (exp, which)
if ((int) code >= NUM_TREE_CODES)
return 1;
/* Only expressions and references can contain calls. */
if (type != 'e' && type != '<' && type != '1' && type != '2' && type != 'r'
&& type != 'b')
return 0;
switch (code)
{
case CALL_EXPR:
@ -269,12 +264,8 @@ calls_function_1 (exp, which)
== FUNCTION_DECL))
{
tree fndecl = TREE_OPERAND (TREE_OPERAND (exp, 0), 0);
if ((DECL_BUILT_IN (fndecl)
&& DECL_BUILT_IN_CLASS (fndecl) == BUILT_IN_NORMAL
&& DECL_FUNCTION_CODE (fndecl) == BUILT_IN_ALLOCA)
|| (DECL_SAVED_INSNS (fndecl)
&& DECL_SAVED_INSNS (fndecl)->calls_alloca))
int flags = special_function_p (fndecl, 0);
if (flags & ECF_MAY_BE_ALLOCA)
return 1;
}
@ -311,6 +302,11 @@ calls_function_1 (exp, which)
return 1;
}
return 0;
case TREE_LIST:
for (; exp != 0; exp = TREE_CHAIN (exp))
if (calls_function_1 (TREE_VALUE (exp), which))
return 1;
return 0;
case METHOD_CALL_EXPR:
length = 3;
@ -322,11 +318,16 @@ calls_function_1 (exp, which)
case RTL_EXPR:
return 0;
default:
break;
}
/* Only expressions and references can contain calls. */
if (type != 'e' && type != '<' && type != '1' && type != '2' && type != 'r'
&& type != 'b')
return 0;
for (i = 0; i < length; i++)
if (TREE_OPERAND (exp, i) != 0
&& calls_function_1 (TREE_OPERAND (exp, i), which))