From 29bcb9f38edbe5878155ca43495b010771c793c9 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 14 Aug 2007 09:03:24 +0000 Subject: [PATCH] (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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127473 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/s-osinte-vxworks6.ads | 26 ++++++++++++++++++++++++-- 1 file 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 -- ---------- -- 2.7.4