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/trans.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/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 8bec775..8bf93d2 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -687,10 +687,11 @@ Pragma_to_gnu (Node_Id gnat_node) /* Check for (and ignore) unrecognized pragma and do nothing if we are just annotating types. */ - if (type_annotate_only || !Is_Pragma_Name (Chars (gnat_node))) + if (type_annotate_only + || !Is_Pragma_Name (Chars (Pragma_Identifier (gnat_node)))) return gnu_result; - switch (Get_Pragma_Id (Chars (gnat_node))) + switch (Get_Pragma_Id (Pragma_Identifier (Chars (gnat_node)))) { case Pragma_Inspection_Point: /* Do nothing at top level: all such variables are already viewable. */ |