diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:19:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:19:15 +0200 |
| commit | 489c6e198e9e78f635878bdec992ce4d9fa807a2 (patch) | |
| tree | dee6613608262bd3a26f31a89d7813d8d30eabc4 /gcc/ada/repinfo.adb | |
| parent | a7e68e7fa76aa33eab48a30186abcb4d3b291322 (diff) | |
| download | gcc-489c6e198e9e78f635878bdec992ce4d9fa807a2.zip gcc-489c6e198e9e78f635878bdec992ce4d9fa807a2.tar.gz gcc-489c6e198e9e78f635878bdec992ce4d9fa807a2.tar.bz2 | |
[multiple changes]
2013-04-12 Robert Dewar <dewar@adacore.com>
* checks.adb, sem_elab.adb, repinfo.adb, sem_ch4.adb, restrict.adb,
restrict.ads: Minor reformatting.
2013-04-12 Ed Schonberg <schonberg@adacore.com>
* lib-xref.adb: Retrieve original name of classwide type if any.
2013-04-12 Thomas Quinot <quinot@adacore.com>
* exp_ch11.ads: Minor reformatting.
From-SVN: r197910
Diffstat (limited to 'gcc/ada/repinfo.adb')
| -rw-r--r-- | gcc/ada/repinfo.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index e800859..37dd5e4 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -1041,11 +1041,13 @@ package body Repinfo is Write_Str ("for "); List_Name (Ent); Write_Str ("'" & Attr_Name & " use System."); + if Bytes_Big_Endian xor Reverse_Storage_Order (Ent) then Write_Str ("High"); else Write_Str ("Low"); end if; + Write_Line ("_Order_First;"); end List_Attr; @@ -1060,6 +1062,7 @@ package body Repinfo is if Is_Record_Type (Ent) then List_Attr ("Bit_Order"); end if; + List_Attr ("Scalar_Storage_Order"); end if; end List_Scalar_Storage_Order; |