diff options
| author | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-04-08 12:48:53 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-04-08 12:48:53 +0000 |
| commit | e1da2b17fa1e397a0b12782881103bb764bce4cd (patch) | |
| tree | 1d03a24053e4c98ac73469d931b004e0cc538d65 /gcc/ada/decl.c | |
| parent | 2b3dffa66b6294bea45c75538efdf5fe9fd53293 (diff) | |
| download | gcc-e1da2b17fa1e397a0b12782881103bb764bce4cd.zip gcc-e1da2b17fa1e397a0b12782881103bb764bce4cd.tar.gz gcc-e1da2b17fa1e397a0b12782881103bb764bce4cd.tar.bz2 | |
decl.c (prepend_attributes): Fix typo.
* decl.c (prepend_attributes): Fix typo.
* trans.c (Pragma_to_gnu): Likewise.
* utils.c (gnat_genericize): Likewise.
From-SVN: r134094
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 2b2cf57..545730b 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -2183,7 +2183,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) gnu_type = gnat_to_gnu_type (Original_Array_Type (gnat_entity)); for (index = array_dim - 1; index >= 0; index--) gnu_type = TREE_TYPE (gnu_type); - + /* One of the above calls might have caused us to be elaborated, so don't blow up if so. */ if (present_gnu_tree (gnat_entity)) @@ -5107,7 +5107,7 @@ prepend_attributes (Entity_Id gnat_entity, struct attrib ** attr_list) (First (gnat_assoc))))))); } - switch (Get_Pragma_Id (Pragma_Identifier (Chars (gnat_temp)))) + switch (Get_Pragma_Id (Chars (Pragma_Identifier (gnat_temp)))) { case Pragma_Machine_Attribute: etype = ATTR_MACHINE_ATTRIBUTE; |