PR ada/52494
* s-taprop-dummy.adb (Specific): New package.
From-SVN: r187562
+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
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 --
----------------------------------