diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 19:11:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 19:11:54 +0200 |
| commit | 879e23f05867aed40198a68fcd3ba8df62ee104c (patch) | |
| tree | 141d2277fcef0319ec39cd5f3d34a697ef848949 /gcc/ada/cstand.adb | |
| parent | 153b6955c8f5cc3bd4253aa9f656d1a90a21b5d1 (diff) | |
| download | gcc-879e23f05867aed40198a68fcd3ba8df62ee104c.zip gcc-879e23f05867aed40198a68fcd3ba8df62ee104c.tar.gz gcc-879e23f05867aed40198a68fcd3ba8df62ee104c.tar.bz2 | |
[multiple changes]
2010-06-22 Doug Rupp <rupp@adacore.com>
* system-vms.ads, system-vms-zcx.ads: Remove old unused VMS system
packages.
* system-vms_64.ads, system-vms-ia64.ads: Minor reformatting.
(pragma Ident): Add a default ident string in the private part.
2010-06-22 Robert Dewar <dewar@adacore.com>
* cstand.adb: Minor reformatting.
2010-06-22 Ed Schonberg <schonberg@adacore.com>
* freeze.adb (Build_And_Analyze_Renamed_Body): For expansion purposes,
recognize the Shift and Rotation intrinsics that are known to the
compiler but have no interface name.
2010-06-22 Geert Bosch <bosch@adacore.com>
* a-ngcoty.adb ("*"): Rewrite complex multiplication to use proper
scaling in case of overflow or NaN results.
From-SVN: r161210
Diffstat (limited to 'gcc/ada/cstand.adb')
| -rw-r--r-- | gcc/ada/cstand.adb | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index 0a74be8..7cabe91b 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -287,11 +287,10 @@ package body CStand is Set_Etype (Last_Entity (Standard_Op_Concatw), Standard_Wide_String); Set_Etype (First_Entity (Standard_Op_Concatww), - Standard_Wide_Wide_String); + Standard_Wide_Wide_String); Set_Etype (Last_Entity (Standard_Op_Concatww), - Standard_Wide_Wide_String); - + Standard_Wide_Wide_String); end Create_Operators; --------------------- @@ -350,13 +349,13 @@ package body CStand is 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)))); - + 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); |