From ee2ba85639333f03774668c5a4b25d7ae08b1036 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 6 Nov 2012 12:28:27 +0100 Subject: [multiple changes] 2012-11-06 Tristan Gingold * sem_ch9.adb (Analyze_Protected_Type_Declaration): Fix thinko in previous commit. 2012-11-06 Jose Ruiz * ali.adb (Scan_ALI): Fix parsing mechanism for -fstack-check. 2012-11-06 Thomas Quinot * atree.adb, atree.ads, einfo.adb, errout.adb, errout.ads, erroutc.adb, erroutc.ads, errutil.adb, errutil.ads, err_vars.ads, expander.adb, exp_ch13.adb, exp_ch2.adb, exp_ch6.adb, exp_dist.adb, fe.h, fmap.adb, fmap.ads, gprep.adb, makeutl.adb, osint.adb, osint.ads, par_sco.adb, prepcomp.adb, prj-part.adb, prj-proc.adb, scng.adb, sdefault.ads, sem_ch10.adb, sem_ch13.adb, sem_ch2.adb, sem_ch3.adb, sem_ch4.adb, sem_ch5.adb, sem_dim.adb, sem_elab.adb, sem_eval.adb, sem_intr.adb, sem_prag.adb, sem_type.adb, sem_warn.adb, stylesw.adb, stylesw.ads, targparm.adb, targparm.ads (Cascaded_Error): Rename to more descriptive name 'Check_Error_Detected'. Add calls to Check_Error_Detected at places where semantic analysis is abandoned assuming a previously detected error. From-SVN: r193235 --- gcc/ada/ali.adb | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'gcc/ada/ali.adb') diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index a85fa4b..0386c05 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -970,9 +970,16 @@ package body ALI is Add_Char_To_Name_Buffer (Getc); end loop; - -- If -fstack-check, record that it occurred - - if Name_Buffer (1 .. Name_Len) = "-fstack-check" then + -- If -fstack-check, record that it occurred. Note that an + -- additional string parameter can be specified, in the form of + -- -fstack-check={no|generic|specific}. "no" means no checking, + -- "generic" means force the use of old-style checking, and + -- "specific" means use the best checking method. + + if Name_Len >= 13 + and then Name_Buffer (1 .. 13) = "-fstack-check" + and then Name_Buffer (1 .. Name_Len) /= "-fstack-check=no" + then Stack_Check_Switch_Set := True; end if; -- cgit v1.1