diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-23 18:03:41 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-23 18:03:41 +0100 |
| commit | 19992053df788e3280ae25dc272a43e8384b8db1 (patch) | |
| tree | f698d9e3c90e8f644532770d9a43ebd40def33db /gcc/ada/opt.adb | |
| parent | 40f14e9f103d3bcd1216304919b568dd48e471bc (diff) | |
| download | gcc-19992053df788e3280ae25dc272a43e8384b8db1.zip gcc-19992053df788e3280ae25dc272a43e8384b8db1.tar.gz gcc-19992053df788e3280ae25dc272a43e8384b8db1.tar.bz2 | |
[multiple changes]
2014-01-23 Ed Schonberg <schonberg@adacore.com>
* exp_util.adb (Make_Invqriant_Call): If type of expression is
a private extension, get invariant from base type.
2014-01-23 Robert Dewar <dewar@adacore.com>
* sem_util.adb, sem_attr.adb: Minor reformatting.
2014-01-23 Robert Dewar <dewar@adacore.com>
* opt.adb (Save_Opt_Config_Switches): Save SPARK_Mode_Pragma
(Restore_Opt_Config_Switches): Restore SPARK_Mode_Pragma.
* sem.adb (Semantics): Remove save/restore of
SPARK_Mode[_Pragma]. Not needed since already done in
Save/Restore_Opt_Config_Switches.
2014-01-23 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi, einfo.adb, einfo.ads, sem_prag.adb, gnat_ugn.texi,
freeze.adb, repinfo.adb, aspects.adb, aspects.ads, sem_ch13.adb:
Linker_Section enhancements.
From-SVN: r206992
Diffstat (limited to 'gcc/ada/opt.adb')
| -rw-r--r-- | gcc/ada/opt.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/opt.adb b/gcc/ada/opt.adb index 636829c..20ecb4f5 100644 --- a/gcc/ada/opt.adb +++ b/gcc/ada/opt.adb @@ -100,6 +100,7 @@ package body Opt is Polling_Required := Save.Polling_Required; Short_Descriptors := Save.Short_Descriptors; SPARK_Mode := Save.SPARK_Mode; + SPARK_Mode_Pragma := Save.SPARK_Mode_Pragma; Use_VADS_Size := Save.Use_VADS_Size; -- Update consistently the value of Init_Or_Norm_Scalars. The value of @@ -137,6 +138,7 @@ package body Opt is Save.Polling_Required := Polling_Required; Save.Short_Descriptors := Short_Descriptors; Save.SPARK_Mode := SPARK_Mode; + Save.SPARK_Mode_Pragma := SPARK_Mode_Pragma; Save.Use_VADS_Size := Use_VADS_Size; end Save_Opt_Config_Switches; |