diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 15:32:09 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 15:32:09 +0200 |
| commit | 043ce308074d55f57dbb05bb2e0253417f3d0174 (patch) | |
| tree | a9617cffdcd3216494b5d8f6d2f2e270b9735a5a /gcc/ada/sinput-l.adb | |
| parent | 72df3faaf84f0ae75620cd25ee6c96e0465cc156 (diff) | |
| download | gcc-043ce308074d55f57dbb05bb2e0253417f3d0174.zip gcc-043ce308074d55f57dbb05bb2e0253417f3d0174.tar.gz gcc-043ce308074d55f57dbb05bb2e0253417f3d0174.tar.bz2 | |
[multiple changes]
2009-04-10 Robert Dewar <dewar@adacore.com>
* mlib-tgt-specific-xi.adb: Minor reformatting
2009-04-10 Bob Duff <duff@adacore.com>
* einfo.ads: Minor comment fixes
2009-04-10 Vincent Celier <celier@adacore.com>
* snames.ads-tmpl: Remove names that are no longer used in the
Project Manager.
Mark specifically those that are used only in gprbuild
2009-04-10 Eric Botcazou <ebotcazou@adacore.com>
* init.c: Adjust EH support code on Alpha/Tru64.
2009-04-10 Bob Duff <duff@adacore.com>
* sem_ch6.adb (Process_PPCs): Add a call to the _Postconditions
procedure on every path that could return implicitly (not via a return
statement) from a procedure.
2009-04-10 Ed Schonberg <schonberg@adacore.com>
* exp_ch9.adb (Build_Master_Entity): An extended return statement is a
valid scope for a task declarations and therefore for a master id.
2009-04-10 Robert Dewar <dewar@adacore.com>
* sem_aux.adb: Minor reformatting
2009-04-10 Vincent Celier <celier@adacore.com>
* scn.adb (Obsolescent_Check_Flag): New Boolean flag, initialized to
True.
(Obsolescent_Check): Do nothing if Obsolescent_Check_Flag is False
(Set_Obsolescent_Check): New procedure to change the value of
Obsolescent_Check_Flag.
* scn.ads (Set_Obsolescent_Check): New procedure to control
Obsolescent_Check.
* sinput-l.adb (Load_File): Do not check for pragma Restrictions on
obsolescent features while preprocessing.
From-SVN: r145901
Diffstat (limited to 'gcc/ada/sinput-l.adb')
| -rw-r--r-- | gcc/ada/sinput-l.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sinput-l.adb b/gcc/ada/sinput-l.adb index 8bb6778..ac9877f 100644 --- a/gcc/ada/sinput-l.adb +++ b/gcc/ada/sinput-l.adb @@ -518,7 +518,12 @@ package body Sinput.L is Save_Style_Check := Opt.Style_Check; Opt.Style_Check := False; + -- Make sure that there will be no check of pragma Restrictions + -- for obsolescent features while preprocessing the source. + + Scn.Set_Obsolescent_Check (False); Preprocess (Modified); + Scn.Set_Obsolescent_Check (True); -- Reset the scanner to its standard behavior, and restore the -- Style_Checks flag. |