diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-12-13 11:37:00 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:37:00 +0100 |
| commit | c1e0259c98fc2fa1ee6a5e21da63db1320afc04a (patch) | |
| tree | bcf560edc563eb199d362e316be5dd641372a85e /gcc/ada/tbuild.adb | |
| parent | 543b4428214232de8bf9d0377a99b137756b0451 (diff) | |
| download | gcc-c1e0259c98fc2fa1ee6a5e21da63db1320afc04a.zip gcc-c1e0259c98fc2fa1ee6a5e21da63db1320afc04a.tar.gz gcc-c1e0259c98fc2fa1ee6a5e21da63db1320afc04a.tar.bz2 | |
tbuild.ads, tbuild.adb: Fix location of flag for unrecognized pragma message
2007-12-06 Robert Dewar <dewar@adacore.com>
* tbuild.ads, tbuild.adb:
Fix location of flag for unrecognized pragma message
From-SVN: r130868
Diffstat (limited to 'gcc/ada/tbuild.adb')
| -rw-r--r-- | gcc/ada/tbuild.adb | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb index acbbb7d..ce9159b 100644 --- a/gcc/ada/tbuild.adb +++ b/gcc/ada/tbuild.adb @@ -347,6 +347,25 @@ package body Tbuild is return LS; end Make_Linker_Section_Pragma; + ----------------- + -- Make_Pragma -- + ----------------- + + function Make_Pragma + (Sloc : Source_Ptr; + Chars : Name_Id; + Pragma_Argument_Associations : List_Id := No_List; + Debug_Statement : Node_Id := Empty) return Node_Id + is + begin + return + Make_Pragma (Sloc, + Chars => Chars, + Pragma_Argument_Associations => Pragma_Argument_Associations, + Debug_Statement => Debug_Statement, + Pragma_Identifier => Make_Identifier (Sloc, Chars)); + end Make_Pragma; + --------------------------------- -- Make_Raise_Constraint_Error -- --------------------------------- |