(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
This commit is contained in:
Arnaud Charlet 2007-08-14 11:03:24 +02:00
parent d58fb3be42
commit da15c1cd88

View File

@ -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 --
----------