diff options
| author | Jerome Guitton <guitton@adacore.com> | 2007-08-14 10:42:09 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-08-14 10:42:09 +0200 |
| commit | c9b9ec14ece5acf23bf0817633914e28c43c0678 (patch) | |
| tree | 480e56c181a323ef84183f901c56c0bb92ecf9df /gcc/ada/s-taprop-lynxos.adb | |
| parent | bd28782c2f0a7ed7c3ccb2381d1f688e1ffdd8f6 (diff) | |
| download | gcc-c9b9ec14ece5acf23bf0817633914e28c43c0678.tar.gz | |
s-taprop-lynxos.adb, [...] (Continue_Task, [...]): New functions; dummy implementations.
2007-08-14 Jerome Guitton <guitton@adacore.com>
* s-taprop-lynxos.adb, s-taprop-tru64.adb, s-taprop-irix.adb,
s-taprop-hpux-dce.adb, s-taprop-dummy.adb, s-taprop-solaris.adb,
s-taprop-vms.adb, s-taprop-posix.adb (Continue_Task, Stop_All_Tasks):
New functions; dummy implementations.
* s-osinte-vxworks.ads (Task_Stop, Task_Cont, Int_Lock, Int_Unlock): New
functions, used to implement the multi-tasks mode routines on VxWorks.
* s-osinte-vxworks.adb (Task_Cont, Task_Stop): New functions, thin
binding to the VxWorks routines which have changed between VxWorks 5
and 6.
(Int_Lock, Int_Unlock): New function, thin binding to kernel routines
which are not callable from a RTP.
* s-taprop-vxworks.adb (Stop_All_Tasks, Continue_Task): New functions,
implemented for the multi-tasks mode on VxWorks 5 and 6.
* s-taprop.ads (Stop_All_Tasks, Continue_Task): New functions.
* s-tasdeb.ads, s-tasdeb.adb (Continue_All_Tasks, Stop_All_Tasks): New
functions.
From-SVN: r127431
Diffstat (limited to 'gcc/ada/s-taprop-lynxos.adb')
| -rw-r--r-- | gcc/ada/s-taprop-lynxos.adb | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/ada/s-taprop-lynxos.adb b/gcc/ada/s-taprop-lynxos.adb index 361d6fa67fb..d6abf8abfed 100644 --- a/gcc/ada/s-taprop-lynxos.adb +++ b/gcc/ada/s-taprop-lynxos.adb @@ -1333,6 +1333,25 @@ package body System.Task_Primitives.Operations is return False; end Resume_Task; + -------------------- + -- Stop_All_Tasks -- + -------------------- + + procedure Stop_All_Tasks is + begin + null; + end Stop_All_Tasks; + + ------------------- + -- Continue_Task -- + ------------------- + + function Continue_Task (T : ST.Task_Id) return Boolean is + pragma Unreferenced (T); + begin + return False; + end Continue_Task; + ---------------- -- Initialize -- ---------------- |