mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-02-22 08:59:10 +08:00
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:
parent
87fd4bbf20
commit
57c9dc678f
@ -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
|
||||
|
@ -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 --
|
||||
----------------------------------
|
||||
|
Loading…
Reference in New Issue
Block a user