diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 13:21:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 13:21:45 +0000 |
| commit | cdfc6883f228e7847a470de615dfbd1bb0b591f8 (patch) | |
| tree | b8b8f6128e73d0fa5a4ba2d95e6338c5d22c6a2a /gcc/ada/s-except.ads | |
| parent | a644c671d51a05f7ad2202f5250e514d0c760c57 (diff) | |
| download | gcc-cdfc6883f228e7847a470de615dfbd1bb0b591f8.tar.gz | |
2011-08-29 Yannick Moy <moy@adacore.com>
* exp_ch13.adb (Expand_N_Freeze_Entity): Do nothing in Alfa mode.
* exp_ch9.adb: Do not expand tasking constructs in Alfa mode.
* gnat1drv.adb (Adjust_Global_Switches): Suppress the expansion of
tagged types and dispatching calls in Alfa mode.
2011-08-29 Javier Miranda <miranda@adacore.com>
* sem_ch3.adb (Process_Discriminants): Add missing check to ensure that
we do not report an error on an Empty node.
2011-08-29 Geert Bosch <bosch@adacore.com>
* Makefile.rtl (GNATRTL_NONTASKING_OBJECTS): Add a-nllrar.o,
a-nlrear.o and a-nurear.o.
2011-08-29 Robert Dewar <dewar@adacore.com>
* freeze.adb: Minor code reorganization.
Minor reformatting.
* sem_util.adb, errout.adb, exp_ch11.adb, a-ngrear.adb, s-gearop.adb,
sem_ch6.adb: Minor reformatting
2011-08-29 Tristan Gingold <gingold@adacore.com>
* s-except.ads, s-except.adb: Provide dummy body.
2011-08-29 Yannick Moy <moy@adacore.com>
* sem_warn.adb (Within_Postcondition): Take into account the case of
an Ensures component in a Test_Case.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178222 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-except.ads')
| -rw-r--r-- | gcc/ada/s-except.ads | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/ada/s-except.ads b/gcc/ada/s-except.ads index 8b40b15b56b..f0da1e520d3 100644 --- a/gcc/ada/s-except.ads +++ b/gcc/ada/s-except.ads @@ -40,6 +40,21 @@ package System.Exceptions is -- Visible copy to allow Ada.Exceptions to know the exception model. private + type Require_Body; + -- Dummy Taft-amendment type to make it legal (and required) to provide + -- a body for this package. + -- + -- We do this because this unit used to have a body in earlier versions + -- of GNAT, and it causes various bootstrap path problems etc if we remove + -- a body, since we may pick up old unwanted bodies. + -- + -- Note: we use this standard Ada method of requiring a body rather + -- than the cleaner pragma No_Body because System.Exceptions is a compiler + -- unit, and older bootstrap compilers do not support pragma No_Body. This + -- type can be removed, and s-except.adb can be replaced by a source + -- containing just that pragma, when we decide to move to a 2008 compiler + -- as the minimal bootstrap compiler version. ??? + ZCX_By_Default : constant Boolean := System.ZCX_By_Default; Foreign_Exception : exception; |