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/trans.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/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 9fc77ba..a6440d5 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -691,7 +691,7 @@ Pragma_to_gnu (Node_Id gnat_node) || !Is_Pragma_Name (Chars (Pragma_Identifier (gnat_node)))) return gnu_result; - switch (Get_Pragma_Id (Pragma_Identifier (Chars (gnat_node)))) + switch (Get_Pragma_Id (Chars (Pragma_Identifier (gnat_node)))) { case Pragma_Inspection_Point: /* Do nothing at top level: all such variables are already viewable. */ @@ -3673,7 +3673,6 @@ gnat_to_gnu (Node_Id gnat_node) /* If the result is a pointer type, see if we are improperly converting to a stricter alignment. */ - if (STRICT_ALIGNMENT && POINTER_TYPE_P (gnu_result_type) && IN (Ekind (Etype (gnat_node)), Access_Kind)) { |