MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Accept both 'model' and '__model__' as attribute names.

Browse Source 
Ref: CR 100400-990301-CR-1

From-SVN: r25948
This commit is contained in:
Nick Clifton 1999-03-24 15:47:29 +00:00 committed by Nick Clifton
parent d676f55c32
commit 6aa489b470
2 changed files with 54 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ChangeLog
View File

@ -1,3 +1,10 @@
Wed Mar 24 15:44:12 1999 Nick Clifton <nickc@cygnus.com>
* config/m32r/m32r.c (init_idents): Accept both NAME and __NAME__
versions of attribute names and values.
(m32r_valid_machine_decl_attribute): Ditto.
(m32r_encode_section_info): Ditto.
Wed Mar 24 21:42:15 1999 J"orn Rennecke <amylaar@cygnus.co.uk> Wed Mar 24 21:42:15 1999 J"orn Rennecke <amylaar@cygnus.co.uk>
* reload1.c (choose_reload_regs): If output-reloading for a * reload1.c (choose_reload_regs): If output-reloading for a

75
gcc/config/m32r/m32r.c
View File

@ -190,25 +190,6 @@ init_reg_tables ()
} }
} }
static tree interrupt_ident;
static tree model_ident;
static tree small_ident;
static tree medium_ident;
static tree large_ident;
static void
init_idents ()
{
if (interrupt_ident == 0)
{
interrupt_ident = get_identifier ("interrupt");
model_ident = get_identifier ("model");
small_ident = get_identifier ("small");
medium_ident = get_identifier ("medium");
large_ident = get_identifier ("large");
}
}
/* M32R specific attribute support. /* M32R specific attribute support.
interrupt - for interrupt functions interrupt - for interrupt functions
@ -222,6 +203,35 @@ init_idents ()
Grep for MODEL in m32r.h for more info. Grep for MODEL in m32r.h for more info.
*/ */
static tree interrupt_ident1;
static tree interrupt_ident2;
static tree model_ident1;
static tree model_ident2;
static tree small_ident1;
static tree small_ident2;
static tree medium_ident1;
static tree medium_ident2;
static tree large_ident1;
static tree large_ident2;
static void
init_idents PROTO ((void))
{
if (interrupt_ident1 == 0)
{
interrupt_ident1 = get_identifier ("interrupt");
interrupt_ident2 = get_identifier ("__interrupt__");
model_ident1 = get_identifier ("model");
model_ident2 = get_identifier ("__model__");
small_ident1 = get_identifier ("small");
small_ident2 = get_identifier ("__small__");
medium_ident1 = get_identifier ("medium");
medium_ident2 = get_identifier ("__medium__");
large_ident1 = get_identifier ("large");
large_ident2 = get_identifier ("__large__");
}
}
/* Return nonzero if IDENTIFIER is a valid decl attribute. */ /* Return nonzero if IDENTIFIER is a valid decl attribute. */
int int
@ -233,15 +243,20 @@ m32r_valid_machine_decl_attribute (type, attributes, identifier, args)
{ {
init_idents (); init_idents ();
if (identifier == interrupt_ident if ((identifier == interrupt_ident1
|| identifier == interrupt_ident2)
&& list_length (args) == 0) && list_length (args) == 0)
return 1; return 1;
if (identifier == model_ident if ((identifier == model_ident1
|| identifier == model_ident2)
&& list_length (args) == 1 && list_length (args) == 1
&& (TREE_VALUE (args) == small_ident && (TREE_VALUE (args) == small_ident1
|| TREE_VALUE (args) == medium_ident || TREE_VALUE (args) == small_ident2
|| TREE_VALUE (args) == large_ident)) || TREE_VALUE (args) == medium_ident1
|| TREE_VALUE (args) == medium_ident2
|| TREE_VALUE (args) == large_ident1
|| TREE_VALUE (args) == large_ident2))
return 1; return 1;
return 0; return 0;
@ -380,13 +395,17 @@ m32r_encode_section_info (decl)
{ {
if (model) if (model)
{ {
init_idents (); tree id;
if (TREE_VALUE (TREE_VALUE (model)) == small_ident) init_idents ();
id = TREE_VALUE (TREE_VALUE (model));
if (id == small_ident1 || id == small_ident2)
; /* don't mark the symbol specially */ ; /* don't mark the symbol specially */
else if (TREE_VALUE (TREE_VALUE (model)) == medium_ident) else if (id == medium_ident1 || id == medium_ident2)
prefix = MEDIUM_FLAG_CHAR; prefix = MEDIUM_FLAG_CHAR;
else if (TREE_VALUE (TREE_VALUE (model)) == large_ident) else if (id == large_ident1 || id == large_ident2)
prefix = LARGE_FLAG_CHAR; prefix = LARGE_FLAG_CHAR;
else else
abort (); /* shouldn't happen */ abort (); /* shouldn't happen */