diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-03-26 08:43:59 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:43:59 +0100 |
| commit | 7e5e5cc7c4f75b465e1bcb0e4e5037297c5ce38e (patch) | |
| tree | 6950f932ec7e2043a54a277a6f82a9c5c322856a /gcc/ada/decl.c | |
| parent | bc9bb02d4ec4130e7e6ffdbb29f6fc57b4137a6c (diff) | |
| download | gcc-7e5e5cc7c4f75b465e1bcb0e4e5037297c5ce38e.zip gcc-7e5e5cc7c4f75b465e1bcb0e4e5037297c5ce38e.tar.gz gcc-7e5e5cc7c4f75b465e1bcb0e4e5037297c5ce38e.tar.bz2 | |
tbuild.ads, [...] (N_Pragma): Chars field removed, use Chars (Pragma_Identifier (..
2008-03-26 Robert Dewar <dewar@adacore.com>
* tbuild.ads, tbuild.adb, trans.c, sprint.adb, exp_prag.adb, decl.c,
par-ch2.adb, sem_elab.adb, sem_util.ads (N_Pragma): Chars field
removed, use Chars (Pragma_Identifier (.. instead, adjustments
throughout to accomodate this change.
* s-pooglo.ads, s-pooloc.ads: Minor comment updates
* exp_dbug.adb: Use Sem_Util.Set_Debug_Info_Needed (not
Einfo.Set_Needs_Debug_Info)
From-SVN: r133587
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index f7b51d5..0db79b5 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -5035,7 +5035,7 @@ prepend_attributes (Entity_Id gnat_entity, struct attrib ** attr_list) (First (gnat_assoc))))))); } - switch (Get_Pragma_Id (Chars (gnat_temp))) + switch (Get_Pragma_Id (Pragma_Identifier (Chars (gnat_temp)))) { case Pragma_Machine_Attribute: etype = ATTR_MACHINE_ATTRIBUTE; @@ -7068,10 +7068,11 @@ check_ok_for_atomic (tree object, Entity_Id gnat_entity, bool comp_p) gnat_node = Next_Rep_Item (gnat_node)) { if (!comp_p && Nkind (gnat_node) == N_Pragma - && Get_Pragma_Id (Chars (gnat_node)) == Pragma_Atomic) + && (Get_Pragma_Id (Chars (Pragma_Identifier (gnat_node))) + == Pragma_Atomic)) gnat_error_point = First (Pragma_Argument_Associations (gnat_node)); else if (comp_p && Nkind (gnat_node) == N_Pragma - && (Get_Pragma_Id (Chars (gnat_node)) + && (Get_Pragma_Id (Chars (Pragma_Identifier (gnat_node))) == Pragma_Atomic_Components)) gnat_error_point = First (Pragma_Argument_Associations (gnat_node)); } |