From ed18d8583b01ea9b8053162d3bb6dc0714921530 Mon Sep 17 00:00:00 2001 From: Jerome Guitton Date: Wed, 26 Sep 2007 12:41:47 +0200 Subject: s-taprop-lynxos.adb, [...] (Stop_Task): New function, dummy implementation. 2007-09-26 Jerome Guitton * s-taprop-lynxos.adb, s-taprop-tru64.adb, s-taprop-irix.adb, s-taprop-hpux-dce.adb, s-taprop-linux.adb, s-taprop-dummy.adb, s-taprop-solaris.adb, s-taprop-vms.adb, s-taprop-mingw.adb, s-taprop-posix.adb (Stop_Task): New function, dummy implementation. * s-taprop.ads, s-taprop-vxworks.adb (Stop_Task): New function. * s-tasdeb.adb (Stop_All_Tasks): New function, implementing a run-time function which can be called by the debugger to interrupt the tasks of an Ada application asynchronously, as needed on VxWorks. (Stop_All_Tasks_Handler): Renamed from Stop_All_Tasks. * s-tasdeb.ads (Stop_All_Tasks_Handler): New function declaration, renamed from Stop_All_Tasks. Update comments. (Stop_All_tasks): New function declaration. From-SVN: r128781 --- gcc/ada/s-taprop-vms.adb | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'gcc/ada/s-taprop-vms.adb') diff --git a/gcc/ada/s-taprop-vms.adb b/gcc/ada/s-taprop-vms.adb index 9652ce6..0647b21 100644 --- a/gcc/ada/s-taprop-vms.adb +++ b/gcc/ada/s-taprop-vms.adb @@ -1218,6 +1218,16 @@ package body System.Task_Primitives.Operations is null; end Stop_All_Tasks; + --------------- + -- Stop_Task -- + --------------- + + function Stop_Task (T : ST.Task_Id) return Boolean is + pragma Unreferenced (T); + begin + return False; + end Stop_Task; + ------------------- -- Continue_Task -- ------------------- -- cgit v1.1