mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 12:30:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

tree.c (equal_functions): New function.

Browse Source 
* tree.c (equal_functions): New function.
	(ovl_member): Call it.

From-SVN: r24861
This commit is contained in:
Martin v. Löwis 1999-01-25 16:09:05 +00:00 committed by Martin v. Löwis
parent bdf32ae50a
commit 89ae2c8c42
2 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/cp/ChangeLog
View File

@ -1,3 +1,8 @@
1999-01-25 Martin von Löwis <loewis@informatik.hu-berlin.de>
* tree.c (equal_functions): New function.
(ovl_member): Call it.
1999-01-24 Jason Merrill <jason@yorick.cygnus.com>
* cvt.c (cp_convert_to_pointer): Fix conversion of 0 to pmf.

19
gcc/cp/tree.c
View File

@ -41,6 +41,7 @@ static tree list_hash_lookup PROTO((int, int, int, int, tree, tree,
static void propagate_binfo_offsets PROTO((tree, tree));
static int avoid_overlap PROTO((tree, tree));
static int lvalue_p_1 PROTO((tree, int));
static int equal_function PROTO((tree, tree));
#define CEIL(x,y) (((x) + (y) - 1) / (y))
@ -1395,6 +1396,20 @@ build_overload (decl, chain)
return ovl_cons (decl, chain);
}
/* Returns true iff functions are equivalent. Equivalent functions are
not identical only if one is a function-local extern function.
This assumes that function-locals don't have TREE_PERMANENT. */
static int
equal_functions (fn1, fn2)
tree fn1;
tree fn2;
{
if (!TREE_PERMANENT (fn1) || !TREE_PERMANENT (fn2))
return decls_match (fn1, fn2);
return fn1 == fn2;
}
/* True if fn is in ovl. */
int
@ -1405,9 +1420,9 @@ ovl_member (fn, ovl)
if (ovl == NULL_TREE)
return 0;
if (TREE_CODE (ovl) != OVERLOAD)
return decls_match (ovl, fn);
return equal_functions (ovl, fn);
for (; ovl; ovl = OVL_CHAIN (ovl))
if (decls_match (OVL_FUNCTION (ovl), fn))
if (equal_functions (OVL_FUNCTION (ovl), fn))
return 1;
return 0;
}