diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-23 06:31:57 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-23 06:31:57 +0000 |
| commit | 9116df93caf54602aeac10557553ba5e52c39cb3 (patch) | |
| tree | 894847d28e65a7dd99ebd10c39fd1215e393b7d1 /gcc/ada/cstand.adb | |
| parent | c8da6114f2d7cdca5368f9bdcc3227a21b3fd7a2 (diff) | |
| download | gcc-9116df93caf54602aeac10557553ba5e52c39cb3.tar.gz | |
2010-06-23 Jose Ruiz <ruiz@adacore.com>
* a-reatim.adb, a-retide.adb: Move the initialization of the tasking
run time from Ada.Real_Time.Delays to Ada.Real_Time. This way, calls to
Clock (without delays) use a run time which is properly initialized.
2010-06-23 Vincent Celier <celier@adacore.com>
* make.adb: Do not set Check_Readonly_Files when setting Must_Compile,
when -f -u and a main is specified on the command line. However,
attempt to compile even when the ALI file is read-only when
Must_Compile is True.
2010-06-23 Thomas Quinot <quinot@adacore.com>
* checks.adb, g-pehage.adb, cstand.adb: Minor code factorization.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161248 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/cstand.adb')
| -rw-r--r-- | gcc/ada/cstand.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index 7cabe91b902..9f9332b7241 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -324,7 +324,8 @@ package body CStand is -- 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 + -- Generate proper tree for pragma Pack that applies to given type, and + -- mark type as having the pragma. --------------------- -- Build_Exception -- @@ -359,6 +360,7 @@ package body CStand is begin Append (Prag, Decl_S); Record_Rep_Item (String_Type, Prag); + Set_Has_Pragma_Pack (String_Type, True); end Pack_String_Type; -- Start of processing for Create_Standard @@ -714,7 +716,6 @@ package body CStand is Set_Component_Size (Standard_String, Uint_8); Init_Size_Align (Standard_String); Set_Alignment (Standard_String, Uint_1); - Set_Has_Pragma_Pack (Standard_String, True); Pack_String_Type (Standard_String); -- On targets where a storage unit is larger than a byte (such as AAMP), @@ -758,7 +759,6 @@ package body CStand is Set_Component_Type (Standard_Wide_String, Standard_Wide_Character); Set_Component_Size (Standard_Wide_String, Uint_16); Init_Size_Align (Standard_Wide_String); - Set_Has_Pragma_Pack (Standard_Wide_String, True); Pack_String_Type (Standard_Wide_String); -- Set index type of Wide_String @@ -796,7 +796,6 @@ package body CStand is Set_Component_Size (Standard_Wide_Wide_String, Uint_32); Init_Size_Align (Standard_Wide_Wide_String); Set_Is_Ada_2005_Only (Standard_Wide_Wide_String); - Set_Has_Pragma_Pack (Standard_Wide_Wide_String, True); Pack_String_Type (Standard_Wide_Wide_String); -- Set index type of Wide_Wide_String |