From c1e0259c98fc2fa1ee6a5e21da63db1320afc04a Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 13 Dec 2007 11:37:00 +0100 Subject: [PATCH] tbuild.ads, tbuild.adb: Fix location of flag for unrecognized pragma message 2007-12-06 Robert Dewar * tbuild.ads, tbuild.adb: Fix location of flag for unrecognized pragma message From-SVN: r130868 --- gcc/ada/tbuild.adb | 19 +++++++++++++++++++ gcc/ada/tbuild.ads | 28 ++++++++++++++++++---------- 2 files changed, 37 insertions(+), 10 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 -- --------------------------------- diff --git a/gcc/ada/tbuild.ads b/gcc/ada/tbuild.ads index 081b304..886bb1c 100644 --- a/gcc/ada/tbuild.ads +++ b/gcc/ada/tbuild.ads @@ -48,17 +48,17 @@ package Tbuild is procedure Discard_Node (N : Node_Or_Entity_Id); pragma Inline (Discard_Node); - -- This is a dummy procedure that simply returns and does nothing. - -- It is used when a function returning a Node_Id value is called - -- for its side effect (e.g. a call to Make to construct a node) - -- but the Node_Id value is not required. + -- This is a dummy procedure that simply returns and does nothing. It is + -- used when a function returning a Node_Id value is called for its side + -- effect (e.g. a call to Make to construct a node) but the Node_Id value + -- is not required. procedure Discard_List (L : List_Id); pragma Inline (Discard_List); - -- This is a dummy procedure that simply returns and does nothing. - -- It is used when a function returning a Node_Id value is called - -- for its side effect (e.g. a call to the pareser to parse a list - -- of compilation units), but the List_Id value is not required. + -- This is a dummy procedure that simply returns and does nothing. It is + -- used when a function returning a Node_Id value is called for its side + -- effect (e.g. a call to the pareser to parse a list of compilation + -- units), but the List_Id value is not required. function Make_Byte_Aligned_Attribute_Reference (Sloc : Source_Ptr; @@ -71,8 +71,8 @@ package Tbuild is function Make_DT_Access (Loc : Source_Ptr; Rec : Node_Id; Typ : Entity_Id) return Node_Id; - -- Create an access to the Dispatch Table by using the Tag field - -- of a tagged record : Acc_Dt (Rec.tag).all + -- Create an access to the Dispatch Table by using the Tag field of a + -- tagged record : Acc_Dt (Rec.tag).all function Make_Implicit_Exception_Handler (Sloc : Source_Ptr; @@ -136,6 +136,14 @@ package Tbuild is -- Construct a Linker_Section pragma for entity Ent, using string Sec as -- the section name. Loc is the Sloc value to use in building the 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; + -- A convenient form of Make_Pragma not requiring a Pragma_Identifier + -- argument (this argument is built from the value given for Chars). + function Make_Raise_Constraint_Error (Sloc : Source_Ptr; Condition : Node_Id := Empty; -- 2.7.4