2006-10-31 Javier Miranda <miranda@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-tasini.ads

diff --git a/gcc/ada/s-tasini.ads b/gcc/ada/s-tasini.ads
index c4928d8..bacde3c 100644 (file)
--- a/gcc/ada/s-tasini.ads
+++ b/gcc/ada/s-tasini.ads
@@ -120,14 +120,6 @@ package System.Tasking.Initialization is
    procedure Undefer_Abort_Nestable (Self_ID : Task_Id);
    pragma Inline (Undefer_Abort_Nestable);
 
-   --  NON-INLINE versions without Self_ID for code generated by the
-   --  expander and for soft links
-
-   procedure Defer_Abortion;
-   procedure Undefer_Abortion;
-
-   --  Try to phase out all uses of the above versions ???
-
    procedure Do_Pending_Action (Self_ID : Task_Id);
    --  Only call with no locks, and when Self_ID.Pending_Action = True Perform
    --  necessary pending actions (e.g. abort, priority change). This procedure