diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 11:36:24 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 11:36:24 +0200 |
| commit | 39678b1cce476a8a661ff58632a2d3c74ceb2bd9 (patch) | |
| tree | 275adb1503ca3ea11102cee669ab69591c42a362 /gcc/ada/opt.adb | |
| parent | cf28c974d4868d94b6a5cee2c36c5dc617a7444d (diff) | |
| download | gcc-39678b1cce476a8a661ff58632a2d3c74ceb2bd9.zip gcc-39678b1cce476a8a661ff58632a2d3c74ceb2bd9.tar.gz gcc-39678b1cce476a8a661ff58632a2d3c74ceb2bd9.tar.bz2 | |
[multiple changes]
2014-07-18 Arnaud Charlet <charlet@adacore.com>
* gnat_ugn.texi: Doc clarification.
* sem_ch13.adb (Kill_Rep_Clause): Use Replace not Rewrite.
* sem_ch13.ads: Minor comment update.
2014-07-18 Robert Dewar <dewar@adacore.com>
* repinfo.ads: Minor comment fix.
2014-07-18 Robert Dewar <dewar@adacore.com>
* par-prag.adb: Add dummy entry for Default_Scalar_Storage_Order.
* sem_prag.adb: Add dummy implementation of
Default_Scalar_Storage_Order.
* snames.ads-tmpl: Add dummy entry for
Default_Scalar_Storage_Order pragma.
2014-07-18 Robert Dewar <dewar@adacore.com>
* opt.adb (Tree_Read): Read Address_Is_Private,
Ignore_Rep_Clauses, Ignore_Style_Check_Pragmas, Multiple_Unit_Index.
(Tree_Write): Corresponding writes
* opt.ads: Minor comment reformatting and fixes.
* tree_io.ads: Increment ASIS_Version_Number.
From-SVN: r212790
Diffstat (limited to 'gcc/ada/opt.adb')
| -rw-r--r-- | gcc/ada/opt.adb | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/gcc/ada/opt.adb b/gcc/ada/opt.adb index 0ff90a1..c8edad4 100644 --- a/gcc/ada/opt.adb +++ b/gcc/ada/opt.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -249,9 +249,13 @@ package body Opt is begin Tree_Read_Int (Tree_ASIS_Version_Number); + + Tree_Read_Bool (Address_Is_Private); Tree_Read_Bool (Brief_Output); Tree_Read_Bool (GNAT_Mode); Tree_Read_Char (Identifier_Character_Set); + Tree_Read_Bool (Ignore_Rep_Clauses); + Tree_Read_Bool (Ignore_Style_Checks_Pragmas); Tree_Read_Int (Maximum_File_Name_Length); Tree_Read_Data (Suppress_Options'Address, (Suppress_Options'Size + SU - 1) / SU); @@ -294,6 +298,7 @@ package body Opt is Tree_Read_Bool (Inline_Active); Tree_Read_Bool (Inline_Processing_Required); Tree_Read_Bool (List_Units); + Tree_Read_Int (Multiple_Unit_Index); Tree_Read_Bool (Configurable_Run_Time_Mode); Tree_Read_Data (Operating_Mode'Address, (Operating_Mode'Size + SU - 1) / Storage_Unit); @@ -314,9 +319,13 @@ package body Opt is begin Tree_Write_Int (ASIS_Version_Number); + + Tree_Write_Bool (Address_Is_Private); Tree_Write_Bool (Brief_Output); Tree_Write_Bool (GNAT_Mode); Tree_Write_Char (Identifier_Character_Set); + Tree_Write_Bool (Ignore_Rep_Clauses); + Tree_Write_Bool (Ignore_Style_Checks_Pragmas); Tree_Write_Int (Maximum_File_Name_Length); Tree_Write_Data (Suppress_Options'Address, (Suppress_Options'Size + SU - 1) / SU); @@ -339,6 +348,7 @@ package body Opt is Tree_Write_Bool (Inline_Active); Tree_Write_Bool (Inline_Processing_Required); Tree_Write_Bool (List_Units); + Tree_Write_Int (Multiple_Unit_Index); Tree_Write_Bool (Configurable_Run_Time_Mode); Tree_Write_Data (Operating_Mode'Address, (Operating_Mode'Size + SU - 1) / SU); |