From 35fc0bf99d35fde104eca97db8669ce09fb9cf76 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 22 Jun 2010 17:04:37 +0000 Subject: 2010-06-22 Robert Dewar * cstand.adb: Complete previous change. * g-dirope.ads: Add comment. * s-stchop.adb, sfn_scan.adb: Minor reformatting. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161206 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/cstand.adb | 38 +++++++++++++++++++++----------------- 1 file changed, 21 insertions(+), 17 deletions(-) (limited to 'gcc/ada/cstand.adb') diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index ec409d6ecb8..0a74be8ea59 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -119,10 +119,6 @@ package body CStand is (New_Node_Kind : Node_Kind := N_Defining_Identifier) return Entity_Id; -- Builds a new entity for Standard - procedure Pack_String_Type (String_Type : Entity_Id); - -- Generate the proper tree for the pragma Pack that applies to each - -- string type. - procedure Print_Standard; -- Print representation of package Standard if switch set @@ -328,6 +324,9 @@ package body CStand is procedure Build_Exception (S : Standard_Entity_Type); -- Procedure to declare given entity as an exception + procedure Pack_String_Type (String_Type : Entity_Id); + -- Generate proper tree for pragma Pack that applies to given type + --------------------- -- Build_Exception -- --------------------- @@ -345,6 +344,24 @@ package body CStand is Append (Decl, Decl_S); end Build_Exception; + ---------------------- + -- Pack_String_Type -- + ---------------------- + + procedure Pack_String_Type (String_Type : Entity_Id) is + Prag : constant Node_Id := + Make_Pragma (Stloc, + Chars => Name_Pack, + Pragma_Argument_Associations => + New_List ( + Make_Pragma_Argument_Association (Stloc, + Expression => New_Occurrence_Of (String_Type, Stloc)))); + + begin + Append (Prag, Decl_S); + Record_Rep_Item (String_Type, Prag); + end Pack_String_Type; + -- Start of processing for Create_Standard begin @@ -1631,19 +1648,6 @@ package body CStand is return E; end New_Standard_Entity; - ---------------------- - -- Pack_String_Type -- - ---------------------- - - procedure Pack_String_Type (String_Type : Entity_Id) is - begin - Record_Rep_Item (String_Type, - Make_Pragma (Stloc, - Chars => Name_Pack, - Pragma_Argument_Associations => - New_List (New_Occurrence_Of (String_Type, Stloc)))); - end Pack_String_Type; - -------------------- -- Print_Standard -- -------------------- -- cgit v1.2.1