From 043ce308074d55f57dbb05bb2e0253417f3d0174 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 10 Apr 2009 15:32:09 +0200 Subject: [multiple changes] 2009-04-10 Robert Dewar * mlib-tgt-specific-xi.adb: Minor reformatting 2009-04-10 Bob Duff * einfo.ads: Minor comment fixes 2009-04-10 Vincent Celier * 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 * init.c: Adjust EH support code on Alpha/Tru64. 2009-04-10 Bob Duff * 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 * 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 * sem_aux.adb: Minor reformatting 2009-04-10 Vincent Celier * 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 --- gcc/ada/sinput-l.adb | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'gcc/ada/sinput-l.adb') 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. -- cgit v1.1