From 6a989c79d4ac94a8922e97523ff13965ed5b0283 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 7 Jan 2015 11:15:18 +0100 Subject: [PATCH] [multiple changes] 2015-01-07 Vincent Celier * clean.adb: Minor error message change. 2015-01-07 Tristan Gingold PR ada/64349 * env.c (__gnat_environ): Adjust for darwin9/darwin10. 2015-01-07 Javier Miranda * sem_ch10.adb (Analyze_With_Clause): Compiling under -gnatq protect the frontend against never ending recursion caused by circularities in the sources. From-SVN: r219290 --- gcc/ada/ChangeLog | 15 +++++++++++++++ gcc/ada/clean.adb | 2 +- gcc/ada/env.c | 8 ++++++++ gcc/ada/sem_ch10.adb | 12 ++++++++++++ 4 files changed, 36 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ed5e35202ee..47a8051b422 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,18 @@ +2015-01-07 Vincent Celier + + * clean.adb: Minor error message change. + +2015-01-07 Tristan Gingold + + PR ada/64349 + * env.c (__gnat_environ): Adjust for darwin9/darwin10. + +2015-01-07 Javier Miranda + + * sem_ch10.adb (Analyze_With_Clause): Compiling under -gnatq + protect the frontend against never ending recursion caused by + circularities in the sources. + 2015-01-07 Robert Dewar * a-reatim.adb, make.adb, exp_pakd.adb, i-cpoint.adb, sem_ch8.adb, diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index 5d892e32d73..a9dede587ba 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -1388,7 +1388,7 @@ package body Clean is if Project_File_Name /= null then Put_Line ("warning: gnatclean -P is obsolete and will not be available " & - "in the next release. Use gprclean instead."); + "in the next release; use gprclean instead."); end if; -- A project file was specified by a -P switch diff --git a/gcc/ada/env.c b/gcc/ada/env.c index 95308130cbc..f8608bcd38c 100644 --- a/gcc/ada/env.c +++ b/gcc/ada/env.c @@ -44,6 +44,12 @@ #include #endif +#if defined (__APPLE__) && !defined (__arm__) +/* On Darwin, _NSGetEnviron must be used for shared libraries; but it is not + available on iOS. */ +#include +#endif + #if defined (__vxworks) #if defined (__RTP__) /* On VxWorks 6 Real-Time process mode, environ is defined in unistd.h. */ @@ -212,6 +218,8 @@ __gnat_environ (void) #elif ! (defined (__vxworks)) extern char **environ; return environ; +#elif defined (__APPLE__) && !defined (__arm__) + return *_NSGetEnviron (); #else return environ; #endif diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 3f47deef43d..5e66316cdf5 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -2521,6 +2521,18 @@ package body Sem_Ch10 is return; end if; + -- If we are compiling under "don't quit" mode (-gnatq) and we have + -- already detected serious errors then we mark the with-clause nodes as + -- analyzed before the corresponding compilation unit is analyzed. This + -- is done here to protect the frontend against never ending recursion + -- caused by circularities in the sources (because the previous errors + -- may break the regular machine of the compiler implemented in + -- Load_Unit to detect circularities). + + if Serious_Errors_Detected > 0 and then Try_Semantics then + Set_Analyzed (N); + end if; + -- If the library unit is a predefined unit, and we are in high -- integrity mode, then temporarily reset Configurable_Run_Time_Mode -- for the analysis of the with'ed unit. This mode does not prevent -- 2.30.2