From d0dcb2b1b9f1af8bb9be47c701c3d88f7513008b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 23 Nov 2011 15:05:26 +0100 Subject: [multiple changes] 2011-11-23 Thomas Quinot * thread.c, s-oscons-tmplt.c: Generate __gnat_pthread_condattr_setup only on platforms where this is required, as determined by s-oscons.h. 2011-11-23 Ed Schonberg * sem_ch9.adb: No check on entry index if error on index. 2011-11-23 Gary Dismukes * sem_ch6.adb (Analyze_Return_Statement): Improve error messages for return statements nested inside an extended_return_statement. * gcc-interface/Make-lang.in: Update dependencies. * gcc-interface/Makefile.in (MISCLIB): Add -lutil for BSD targets. From-SVN: r181670 --- gcc/ada/sem_ch9.adb | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gcc/ada/sem_ch9.adb') diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index 16b8087..35c4eee 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -924,8 +924,13 @@ package body Sem_Ch9 is UBR : Node_Id; begin + + -- No bounds checking if the type is generic or if previous error. + -- In an instance the check is dynamic. + if Is_Generic_Type (Etype (D_Sdef)) or else In_Instance + or else Error_Posted (D_Sdef) then goto Skip_LB; @@ -951,6 +956,7 @@ package body Sem_Ch9 is <> if Is_Generic_Type (Etype (D_Sdef)) or else In_Instance + or else Error_Posted (D_Sdef) then goto Skip_UB; -- cgit v1.1