From 59e6b23c684bd7b2024faef3ac1b29279bdf2db2 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 29 Aug 2011 15:21:45 +0200 Subject: [multiple changes] 2011-08-29 Yannick Moy * 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 * 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 * Makefile.rtl (GNATRTL_NONTASKING_OBJECTS): Add a-nllrar.o, a-nlrear.o and a-nurear.o. 2011-08-29 Robert Dewar * 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 * s-except.ads, s-except.adb: Provide dummy body. 2011-08-29 Yannick Moy * sem_warn.adb (Within_Postcondition): Take into account the case of an Ensures component in a Test_Case. From-SVN: r178222 --- gcc/ada/s-except.adb | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'gcc/ada/s-except.adb') diff --git a/gcc/ada/s-except.adb b/gcc/ada/s-except.adb index 0d3f9d4..9e0b27c 100755 --- a/gcc/ada/s-except.adb +++ b/gcc/ada/s-except.adb @@ -29,4 +29,17 @@ -- -- ------------------------------------------------------------------------------ -pragma No_Body; +-- This package does not require a body, since it is a package renaming. We +-- provide a dummy file containing a No_Body pragma so that previous versions +-- of the body (which did exist) will not interfere. + +-- pragma No_Body; + +-- The above pragma is commented out, since for now we can't use No_Body in +-- a unit marked as a Compiler_Unit, since this requires GNAT 6.1, and we +-- do not yet require this for bootstrapping. So instead we use a dummy Taft +-- amendment type to require the body: + +package body System.Exceptions is + type Require_Body is new Integer; +end System.Exceptions; -- cgit v1.1