diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-08-14 11:03:24 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-08-14 11:03:24 +0200 |
commit | da15c1cd888129d937bd2ddaff35803bfbf56676 (patch) | |
tree | 159c59d9e7763052adb6a7a010f97770f9c73672 /gcc | |
parent | d58fb3be4284dcbfbf423a8df4fa3736e6f5fb61 (diff) | |
download | gcc-da15c1cd888129d937bd2ddaff35803bfbf56676.zip gcc-da15c1cd888129d937bd2ddaff35803bfbf56676.tar.gz gcc-da15c1cd888129d937bd2ddaff35803bfbf56676.tar.bz2 |
(Task_Cont, Task_Stop): New functions, thin binding to the VxWorks routines which have changed between VxWorks 5 and 6.
(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.
From-SVN: r127473
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/s-osinte-vxworks6.ads | 26 |
1 files changed, 24 insertions, 2 deletions
diff --git a/gcc/ada/s-osinte-vxworks6.ads b/gcc/ada/s-osinte-vxworks6.ads index f8a39de..d3a8cbd 100644 --- a/gcc/ada/s-osinte-vxworks6.ads +++ b/gcc/ada/s-osinte-vxworks6.ads @@ -6,8 +6,8 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1991-1994, Florida State University -- +-- Copyright (C) 1995-2007, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -201,6 +201,28 @@ package System.OS_Interface is function getpid return t_id; pragma Inline (getpid); + function Task_Stop (tid : t_id) return int; + pragma Inline (Task_Stop); + -- If we are in the kernel space, continue the task whose t_id is + -- given in parameter if it has been stopped previously to be examined + -- by the debugger (e.g. by taskStop). It typically maps to taskResume + -- on VxWorks 5 and to taskCont on VxWorks 6. + + function Task_Cont (tid : t_id) return int; + pragma Inline (Task_Cont); + -- If we are in the kernel space, lock interrupts. It typically maps to + -- intLock. + + function Int_Lock return int; + pragma Inline (Int_Lock); + -- If we are in the kernel space, lock interrupts. It typically maps to + -- intLock. + + function Int_Unlock return int; + pragma Inline (Int_Unlock); + -- If we are in the kernel space, unlock interrupts. It typically maps to + -- intUnlock. + ---------- -- Time -- ---------- |