OSDN Git Service

PR ada/52494
authorebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 15 May 2012 22:35:33 +0000 (22:35 +0000)
committerebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 15 May 2012 22:35:33 +0000 (22:35 +0000)
* s-taprop-dummy.adb (Specific): New package.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_7-branch@187564 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/s-taprop-dummy.adb

index 9e4475b..3699586 100644 (file)
@@ -1,3 +1,8 @@
+2012-05-15  Andris Pavenis  <andris.pavenis@iki.fi>
+
+       PR ada/52494
+       * s-taprop-dummy.adb (Specific): New package.
+
 2012-05-15  Eric Botcazou  <ebotcazou@adacore.com>
 
        * sem_prag.adb (Process_Atomic_Shared_Volatile): Propagate
index f6e9a64..96bcc3c 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---         Copyright (C) 1992-2011, Free Software Foundation, Inc.          --
+--         Copyright (C) 1992-2012, Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNARL 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- --
@@ -46,6 +46,28 @@ package body System.Task_Primitives.Operations is
    pragma Warnings (Off);
    --  Turn off warnings since so many unreferenced parameters
 
+   --------------------
+   -- Local Packages --
+   --------------------
+
+   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
+
+      procedure Set (Self_Id : Task_Id) is
+      begin
+         null;
+      end Set;
+
+   end Specific;
+   --  The body of this package is target specific
+
    ----------------------------------
    -- ATCB allocation/deallocation --
    ----------------------------------