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/sprint.adb | |
| 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/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index e37ba36..7db69e4 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -2387,7 +2387,7 @@ package body Sprint is when N_Pragma => Write_Indent_Str_Sloc ("pragma "); - Write_Name_With_Col_Check (Chars (Node)); + Write_Name_With_Col_Check (Pragma_Name (Node)); if Present (Pragma_Argument_Associations (Node)) then Sprint_Opt_Paren_Comma_List |