Imported Upstream version 4.8.1

[platform/upstream/gcc48.git] / gcc / ada / s-taprop-dummy.adb

diff --git a/gcc/ada/s-taprop-dummy.adb b/gcc/ada/s-taprop-dummy.adb
index 96bcc3c..61cb294 100644 (file)
--- a/gcc/ada/s-taprop-dummy.adb
+++ b/gcc/ada/s-taprop-dummy.adb
@@ -46,27 +46,30 @@ package body System.Task_Primitives.Operations is
    pragma Warnings (Off);
    --  Turn off warnings since so many unreferenced parameters
 
-   --------------------
-   -- Local Packages --
-   --------------------
+   --------------
+   -- Specific --
+   --------------
 
-   package Specific is
+   --  Package Specific contains target specific routines, and the body of
+   --  this package is target specific.
 
+   package Specific is
       procedure Set (Self_Id : Task_Id);
       pragma Inline (Set);
       --  Set the self id for the current task
-
    end Specific;
 
    package body Specific is
 
+      ---------
+      -- Set --
+      ---------
+
       procedure Set (Self_Id : Task_Id) is
       begin
          null;
       end Set;
-
    end Specific;
-   --  The body of this package is target specific
 
    ----------------------------------
    -- ATCB allocation/deallocation --