mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2025-01-02 00:43:44 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix arm_comp_type_attributes

Browse Source 
From-SVN: r32118
This commit is contained in:
Nick Clifton 2000-02-23 18:29:25 +00:00 committed by Nick Clifton
parent 8bacb3d967
commit bd7fc26f04
2 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ChangeLog
View File

@ -1,3 +1,8 @@
2000-02-23 Nick Clifton <nickc@cygnus.com>
* config/arm/arm.c (arm_comp_type_attributes): Simply and
comment tests on type attributes.
Wed Feb 23 16:42:21 2000 J"orn Rennecke <amylaar@cygnus.co.uk>
* final.c (shorten_branches): Make value passed to LABEL_ALIGN

28
gcc/config/arm/arm.c
View File

@ -1545,7 +1545,10 @@ current_file_function_operand (sym_ref)
/* XXX FIXME - we need some way to determine if SYMREF has already been
compiled. We wanted to used SYMBOL_REF_FLAG but this is already in use
by the constant pool generation code. */
return sym_ref == XEXP (DECL_RTL (current_function_decl), 0);
return
GET_CODE (sym_ref) == SYMBOL_REF
&& sym_ref == XEXP (DECL_RTL (current_function_decl), 0)
&& ! DECL_WEAK (current_function_decl);
}
/* Return non-zero if a 32 bit "long call" should be generated for this
@ -1639,17 +1642,30 @@ arm_comp_type_attributes (type1, type2)
tree type2;
{
int l1, l2, s1, s2;
/* Check for mismatch of non-default calling convention. */
if (TREE_CODE (type1) != FUNCTION_TYPE)
return 1;
/* Check for mismatched call attributes. */
l1 = ! lookup_attribute ("long_call", TYPE_ATTRIBUTES (type1));
l2 = ! lookup_attribute ("long_call", TYPE_ATTRIBUTES (type2));
s1 = ! lookup_attribute ("short_call", TYPE_ATTRIBUTES (type1));
s2 = ! lookup_attribute ("short_call", TYPE_ATTRIBUTES (type2));
l1 = lookup_attribute ("long_call", TYPE_ATTRIBUTES (type1));
l2 = lookup_attribute ("long_call", TYPE_ATTRIBUTES (type2));
s1 = lookup_attribute ("short_call", TYPE_ATTRIBUTES (type1));
s2 = lookup_attribute ("short_call", TYPE_ATTRIBUTES (type2));
return ! ((l1 ^ l2) || (s1 ^s2) || (l1 | s2) || (s1 | l2));
/* Only bother to check if an attribute is defined. */
if (l1 | l2 | s1 | s2)
{
/* If one type has an attribute, the other must have the same attribute. */
if ((!l1 != !l2) || (!s1 != !s2))
return 0;
/* Disallow mixed attributes. */
if ((l1 & s2) || (l2 & s1))
return 0;
}
return 1;
}