From: Andris Pavenis <andris.pavenis@iki.fi>
Date: Tue, 15 May 2012 22:33:58 +0000 (+0300)
Subject: re PR ada/52494 (s-taprop-dummy.adb does not define subpackage Specific used in s... 
X-Git-Tag: releases/gcc-4.8.0~5460
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=57c9dc678fc0ec109a7c16a31e4bf06c6acad422;p=thirdparty%2Fgcc.git

re PR ada/52494 (s-taprop-dummy.adb does not define subpackage Specific used in s-tpoaal.sdb)

	PR ada/52494
	* s-taprop-dummy.adb (Specific): New package.

From-SVN: r187562
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f2727054d239..b67d659a1276 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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  Olivier Hainque  <hainque@adacore.com>
 
 	* gcc-interface/Make-lang.in (COMMON_FLAGS_TO_PASS): Use WARN_CFLAGS
diff --git a/gcc/ada/s-taprop-dummy.adb b/gcc/ada/s-taprop-dummy.adb
index f6e9a64cdc7a..d5e91d2f408a 100644
--- a/gcc/ada/s-taprop-dummy.adb
+++ b/gcc/ada/s-taprop-dummy.adb
@@ -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 --
    ----------------------------------