diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-22 17:04:37 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-22 17:04:37 +0000 |
| commit | 35fc0bf99d35fde104eca97db8669ce09fb9cf76 (patch) | |
| tree | ed4237b522227ac31434b5c88a3e0024c5cb738c /gcc/ada/cstand.adb | |
| parent | 3059277845c21c1a6e04f960a0c2c1c9ffe11ffa (diff) | |
| download | gcc-35fc0bf99d35fde104eca97db8669ce09fb9cf76.tar.gz | |
2010-06-22 Robert Dewar <dewar@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/cstand.adb')
| -rw-r--r-- | gcc/ada/cstand.adb | 38 |
1 files changed, 21 insertions, 17 deletions
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 -- -------------------- |