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

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;