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
This commit is contained in:
Andris Pavenis 2012-05-16 01:33:58 +03:00 committed by Eric Botcazou
parent 87fd4bbf20
commit 57c9dc678f
2 changed files with 27 additions and 0 deletions

View 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 Olivier Hainque <hainque@adacore.com>
* gcc-interface/Make-lang.in (COMMON_FLAGS_TO_PASS): Use WARN_CFLAGS

View File

@ -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 --
----------------------------------