From 57c9dc678fc0ec109a7c16a31e4bf06c6acad422 Mon Sep 17 00:00:00 2001 From: Andris Pavenis Date: Wed, 16 May 2012 01:33:58 +0300 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/s-taprop-dummy.adb | 22 ++++++++++++++++++++++ 2 files changed, 27 insertions(+) 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 + + PR ada/52494 + * s-taprop-dummy.adb (Specific): New package. + 2012-05-15 Olivier Hainque * 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 -- ---------------------------------- -- 2.47.2