diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 12:52:57 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 12:52:57 +0000 |
commit | 8ef30a2395b23109b53f82de6f09143289aecce1 (patch) | |
tree | ac649f73e38def9883197d6f34e3b6007624c553 /gcc/ada/a-except.ads | |
parent | 65a805b200de577b88fde2afcbb07a3ce7540268 (diff) | |
download | ppe42-gcc-8ef30a2395b23109b53f82de6f09143289aecce1.tar.gz ppe42-gcc-8ef30a2395b23109b53f82de6f09143289aecce1.zip |
2011-08-29 Tristan Gingold <gingold@adacore.com>
* a-exstat.adb (String_To_EO): Do no set Cleanup_Flag.
* a-exexda.adb (Set_Exception_C_Msg): Ditto.
(Set_Exception_Msg): Ditto.
* a-exexpr-gcc.adb (Setup_Current_Excep): Ditto. Do not set
Private_Data.
* a-except.adb, a-except-2005.adb (Save_Occurrence_No_Private): Remove.
Use Save_Occurrence instead of Save_Occurrence_No_Private.
(Raise_With_Msg): Remove Cleanup_Flag.
* a-except.ads, a-except-2005.ads (Exception_Occurrence): Remove
Clean_Flag and Private_Data components.
2011-08-29 Yannick Moy <moy@adacore.com>
* freeze.adb (Freeze_Record_Type): Ignore packing in Alfa mode, like
in CodePeer mode.
* sem_ch3.adb (Signed_Integer_Type_Declaration): Correct the generation
of an explicitly declared type, so that the base types of the original
type and this generated type are the same, and a "type" (not a subtype
like previously).
* errout.adb (Special_Msg_Delete): Do not issue messages "Size too
small" in Alfa mode, like in CodePeer mode.
* sem_ch13.adb (Analyze_Attribute_Definition_Clause): Ignore rep
clauses in Alfa mode.
2011-08-29 Javier Miranda <miranda@adacore.com>
* exp_ch6.ads, exp_ch6.adb (Is_Null_Procedure): Move the spec of this
function to the package spec.
* sem_ch6.adb (Find_Corresponding_Spec, New_Overloaded_Entity): For
internally generated bodies of null procedures locate the internally
generated spec enforcing mode conformance.
(Is_Interface_Conformant): Ensure that the controlling formal of the
primitives match.
2011-08-29 Ed Schonberg <schonberg@adacore.com>
* sem_prag.adb (Analyze_Pragma, case Inline): In an instance, do not
reject the pragma if it appears to apply to a formal subprogram.
2011-08-29 Ed Schonberg <schonberg@adacore.com>
* exp_ch4.adb (Expand_Allocator_Expression): Use consistent name for
inner expression, to prevent double evaluation.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178216 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-except.ads')
-rw-r--r-- | gcc/ada/a-except.ads | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/gcc/ada/a-except.ads b/gcc/ada/a-except.ads index 0ff3ee6773d..22f0cee9beb 100644 --- a/gcc/ada/a-except.ads +++ b/gcc/ada/a-except.ads @@ -271,13 +271,6 @@ private Msg : String (1 .. Exception_Msg_Max_Length); -- Characters of message - Cleanup_Flag : Boolean := False; - -- The cleanup flag is normally False, it is set True for an exception - -- occurrence passed to a cleanup routine, and will still be set True - -- when the cleanup routine does a Reraise_Occurrence call using this - -- exception occurrence. This is used to avoid recording a bogus trace - -- back entry from this reraise call. - Exception_Raised : Boolean := False; -- Set to true to indicate that this exception occurrence has actually -- been raised. When an exception occurrence is first created, this is @@ -295,11 +288,6 @@ private Tracebacks : Tracebacks_Array; -- Stored tracebacks (in Tracebacks (1 .. Num_Tracebacks)) - - Private_Data : System.Address := System.Null_Address; - -- Field used by low level exception mechanism to store specific data. - -- Currently used by the GCC exception mechanism to store a pointer to - -- a GNAT_GCC_Exception. end record; function "=" (Left, Right : Exception_Occurrence) return Boolean @@ -317,11 +305,9 @@ private Id => null, Msg_Length => 0, Msg => (others => ' '), - Cleanup_Flag => False, Exception_Raised => False, Pid => 0, Num_Tracebacks => 0, - Tracebacks => (others => TBE.Null_TB_Entry), - Private_Data => System.Null_Address); + Tracebacks => (others => TBE.Null_TB_Entry)); end Ada.Exceptions; |