diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-09-26 10:41:47 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-09-26 10:41:47 +0000 |
| commit | 9a325a5c3568ca32843610902eccc46857855ce4 (patch) | |
| tree | 05a5e060297260b64422c6a981c2b97e9a3e07c2 /gcc/ada/s-tasdeb.ads | |
| parent | a30d9e99bbb225ba5c99d684a86fceb65a1d2615 (diff) | |
| download | gcc-9a325a5c3568ca32843610902eccc46857855ce4.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@128781 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-tasdeb.ads')
| -rw-r--r-- | gcc/ada/s-tasdeb.ads | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gcc/ada/s-tasdeb.ads b/gcc/ada/s-tasdeb.ads index 6f167386935..72f3954a9d5 100644 --- a/gcc/ada/s-tasdeb.ads +++ b/gcc/ada/s-tasdeb.ads @@ -95,15 +95,18 @@ package System.Tasking.Debug is -- Thread_Self by traversing All_Tasks_Lists and calling -- System.Task_Primitives.Operations.Continue_Task. - procedure Stop_All_Tasks; + procedure Stop_All_Tasks_Handler; -- Stop all the tasks by traversing All_Tasks_Lists and calling - -- System.Task_Primitives.Operations.Stop_Task. This function + -- System.Task_Primitives.Operations.Stop_All_Task. This function -- can be used in a interrupt handler. + procedure Stop_All_Tasks; + -- Stop all the tasks by traversing All_Tasks_Lists and calling + -- System.Task_Primitives.Operations.Stop_Task. + procedure Continue_All_Tasks; -- Continue all the tasks by traversing All_Tasks_Lists and calling - -- System.Task_Primitives.Operations.Continue_Task. This function - -- can be used in a interrupt handler. + -- System.Task_Primitives.Operations.Continue_Task. ------------------------------- -- Run-time tracing routines -- |