diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-05 12:22:39 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-05 12:22:39 +0100 |
commit | ef2c20e73c8989e83863bdb05af0bf629faf5ff2 (patch) | |
tree | 8d9d3895dc4cbec40c32fe4e675a705399623c9c /gcc/ada/sem_ch10.adb | |
parent | c93f201145542240f9b197b17c06ddab696bbfd4 (diff) | |
download | gcc-ef2c20e73c8989e83863bdb05af0bf629faf5ff2.zip gcc-ef2c20e73c8989e83863bdb05af0bf629faf5ff2.tar.gz gcc-ef2c20e73c8989e83863bdb05af0bf629faf5ff2.tar.bz2 |
015-02-05 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb (Add_Invariants): Don't assume invariant is
standard Boolean.
* sem_prag.adb (Analyze_Pragma, case Check): Don't assume
condition is standard Boolean, it can be non-standard derived
Boolean.
2015-02-05 Robert Dewar <dewar@adacore.com>
* checks.adb (Enable_Range_Check): Disconnect attempted
optimization for the case of range check for subscript of
unconstrained array.
2015-02-05 Robert Dewar <dewar@adacore.com>
* par-ch13.adb (With_Present): New function
(Aspect_Specifications_Present): Handle WHEN in place of WITH
(Get_Aspect_Specifications): Comment update.
* par.adb: Comment updates.
2015-02-05 Robert Dewar <dewar@adacore.com>
* errout.adb (Handle_Serious_Error): New setting of Fatal_Error.
* frontend.adb (Frontend): New setting of Fatal_Error.
* lib-load.adb (Create_Dummy_Package_Unit): New setting of
Fatal_Error.
(Load_Main_Source): New setting of Fatal_Error
(Load_Unit): New setting of Fatal_Error.
* lib-writ.adb (Add_Preprocessing_Dependency): New setting of
Fatal_Error.
(Ensure_System_Dependency): New setting of Fatal_Error.
* lib.adb (Fatal_Error): New setting of Fatal_Error
(Set_Fatal_Error): New setting of Fatal_Error.
* lib.ads: New definition of Fatal_Error and associated routines.
* par-ch10.adb (P_Compilation_Unit): New setting of Fatal_Error.
* par-load.adb (Load): New setting of Fatal_Error.
* rtsfind.adb (Load_RTU): New setting of Fatal_Error.
* sem_ch10.adb (Analyze_Compilation_Unit): New setting of
Fatal_Error.
(Optional_Subunit): New setting of Fatal_Error.
(Analyze_Proper_Body): New setting of Fatal_Error.
(Load_Needed_Body): New setting of Fatal_Error.
2015-02-05 Ed Schonberg <schonberg@adacore.com>
* sem_res.adb (Resolve_Call): If the function being called has
out parameters do not check for language version if the function
comes from a predefined unit, as those are always compiled in
Ada 2012 mode.
2015-02-05 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Process_Full_View): Verify that the full view
of a type extension must carry an explicit limited keyword if
the partial view does (RM 7.3 (10.1)).
From-SVN: r220446
Diffstat (limited to 'gcc/ada/sem_ch10.adb')
-rw-r--r-- | gcc/ada/sem_ch10.adb | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 5e66316..d7df7eb 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, 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- -- @@ -936,7 +936,7 @@ package body Sem_Ch10 is and then (Distribution_Stub_Mode = Generate_Receiver_Stub_Body or else Distribution_Stub_Mode = Generate_Caller_Stub_Body) - and then not Fatal_Error (Main_Unit) + and then Fatal_Error (Main_Unit) /= Error_Detected then if Is_RCI_Pkg_Spec_Or_Body (N) then @@ -1096,7 +1096,7 @@ package body Sem_Ch10 is elsif not Analyzed (Cunit (Un)) and then Un /= Main_Unit - and then not Fatal_Error (Un) + and then Fatal_Error (Un) /= Error_Detected then Style_Check := False; Semantics (Cunit (Un)); @@ -1623,7 +1623,8 @@ package body Sem_Ch10 is -- All done if we successfully loaded the subunit if Unum /= No_Unit - and then (not Fatal_Error (Unum) or else Try_Semantics) + and then (Fatal_Error (Unum) /= Error_Detected + or else Try_Semantics) then Comp_Unit := Cunit (Unum); @@ -1860,7 +1861,9 @@ package body Sem_Ch10 is -- Analyze the unit if semantics active - if not Fatal_Error (Unum) or else Try_Semantics then + if Fatal_Error (Unum) /= Error_Detected + or else Try_Semantics + then Analyze_Subunit (Comp_Unit); end if; end if; @@ -5442,7 +5445,7 @@ package body Sem_Ch10 is else Compiler_State := Analyzing; -- reset after load - if not Fatal_Error (Unum) or else Try_Semantics then + if Fatal_Error (Unum) /= Error_Detected or else Try_Semantics then if Debug_Flag_L then Write_Str ("*** Loaded generic body"); Write_Eol; |