From 972fb59e54c1df4e076e113721be78ff6ce1c391 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 31 Jul 2014 11:51:11 +0200 Subject: [multiple changes] 2014-07-31 Ed Schonberg * sem_util.adb (Has_Preelaborable_Initialization): Check that type is tagged before checking whether a user-defined Initialize procedure is present. 2014-07-31 Gary Dismukes * a-ngelfu.ads (Sqrt): Augment postcondition. 2014-07-31 Pascal Obry * prj-nmsc.adb (Check_Library_Attributes): An aggegate library directory and ALI directory must be different than all object and library directories of aggregated projects. 2014-07-31 Vincent Celier * prj-pars.adb, prj-conf.ads, prj-conf.adb (Locate_Runtime): Move spec to package body, as it is not called from outside. Remove argument Project_Tree, no longer used. When runtime cannot be found, call Raise_Invalid_Config instead of failing the program. From-SVN: r213330 --- gcc/ada/prj-pars.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/prj-pars.adb') diff --git a/gcc/ada/prj-pars.adb b/gcc/ada/prj-pars.adb index 7fbce49..a37e13a 100644 --- a/gcc/ada/prj-pars.adb +++ b/gcc/ada/prj-pars.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -103,8 +103,8 @@ package body Prj.Pars is Success := The_Project /= No_Project; exception - when Invalid_Config => - Success := False; + when E : Invalid_Config => + Osint.Fail (Exception_Message (E)); end; Prj.Err.Finalize; -- cgit v1.1