From: Arnaud Charlet Date: Tue, 14 Aug 2007 09:03:24 +0000 (+0200) Subject: (Task_Cont, Task_Stop): New functions, thin binding to the VxWorks routines which... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=da15c1cd888129d937bd2ddaff35803bfbf56676;p=gcc.git (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 --- diff --git a/gcc/ada/s-osinte-vxworks6.ads b/gcc/ada/s-osinte-vxworks6.ads index f8a39def3c4..d3a8cbd422a 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 -- ----------