* gcc-interface/trans.c (Subprogram_Body_to_gnu): Pop the stack of

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-except.adb

diff --git a/gcc/ada/s-except.adb b/gcc/ada/s-except.adb
old mode 100755 (executable)
new mode 100644 (file)
index 3d04b4b..9e0b27c
--- a/gcc/ada/s-except.adb
+++ b/gcc/ada/s-except.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---         Copyright (C) 2006-2009, Free Software Foundation, Inc.          --
+--         Copyright (C) 2006-2011, 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- --
@@ -29,47 +29,17 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Compiler_Unit;
+--  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.
 
-package body System.Exceptions is
-
-   ---------------------------
-   -- Debug_Raise_Exception --
-   ---------------------------
-
-   procedure Debug_Raise_Exception (E : SSL.Exception_Data_Ptr) is
-      pragma Inspection_Point (E);
-   begin
-      null;
-   end Debug_Raise_Exception;
-
-   -------------------------------
-   -- Debug_unhandled_Exception --
-   -------------------------------
-
-   procedure Debug_Unhandled_Exception (E : SSL.Exception_Data_Ptr) is
-      pragma Inspection_Point (E);
-   begin
-      null;
-   end Debug_Unhandled_Exception;
+--  pragma No_Body;
 
-   --------------------------------
-   -- Debug_Raise_Assert_Failure --
-   --------------------------------
-
-   procedure Debug_Raise_Assert_Failure is
-   begin
-      null;
-   end Debug_Raise_Assert_Failure;
-
-   -----------------
-   -- Local_Raise --
-   -----------------
-
-   procedure Local_Raise (Excep : System.Address) is
-      pragma Warnings (Off, Excep);
-   begin
-      return;
-   end Local_Raise;
+--  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;