diff options
| author | Jerome Guitton <guitton@adacore.com> | 2007-09-26 12:41:47 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-09-26 12:41:47 +0200 |
| commit | ed18d8583b01ea9b8053162d3bb6dc0714921530 (patch) | |
| tree | 05a5e060297260b64422c6a981c2b97e9a3e07c2 /gcc/ada/s-taprop-mingw.adb | |
| parent | fe8f5daf7b1effbcf60f9696f8f2bb138b7e446b (diff) | |
| download | gcc-ed18d8583b01ea9b8053162d3bb6dc0714921530.zip gcc-ed18d8583b01ea9b8053162d3bb6dc0714921530.tar.gz gcc-ed18d8583b01ea9b8053162d3bb6dc0714921530.tar.bz2 | |
s-taprop-lynxos.adb, [...] (Stop_Task): New function, dummy implementation.
2007-09-26 Jerome Guitton <guitton@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/s-taprop-mingw.adb')
| -rw-r--r-- | gcc/ada/s-taprop-mingw.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/ada/s-taprop-mingw.adb b/gcc/ada/s-taprop-mingw.adb index 603e243..b8ebc81 100644 --- a/gcc/ada/s-taprop-mingw.adb +++ b/gcc/ada/s-taprop-mingw.adb @@ -1301,6 +1301,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 -- ------------------- |