From 7e5e5cc7c4f75b465e1bcb0e4e5037297c5ce38e Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 26 Mar 2008 08:43:59 +0100 Subject: tbuild.ads, [...] (N_Pragma): Chars field removed, use Chars (Pragma_Identifier (.. 2008-03-26 Robert Dewar * 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 --- gcc/ada/trans.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gcc/ada/trans.c') 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. */ -- cgit v1.1