1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
5 -- S Y S T E M . V X W O R K S . E X T --
9 -- Copyright (C) 2008-2009, Free Software Foundation, Inc. --
11 -- GNARL is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. --
18 -- As a special exception under Section 7 of GPL version 3, you are granted --
19 -- additional permissions described in the GCC Runtime Library Exception, --
20 -- version 3.1, as published by the Free Software Foundation. --
22 -- You should have received a copy of the GNU General Public License and --
23 -- a copy of the GCC Runtime Library Exception along with this program; --
24 -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
25 -- <http://www.gnu.org/licenses/>. --
27 ------------------------------------------------------------------------------
29 -- This package provides vxworks specific support functions needed
30 -- by System.OS_Interface.
32 -- This is the VxWorks <= 6.5 kernel version of this package
33 -- Also works for 6.6 uniprocessor
35 package body System.VxWorks.Ext is
37 ERROR : constant := -1;
43 function intLock return int;
44 pragma Import (C, intLock, "intLock");
46 function Int_Lock return int renames intLock;
52 function intUnlock return int;
53 pragma Import (C, intUnlock, "intUnlock");
55 function Int_Unlock return int renames intUnlock;
61 function semDelete (Sem : SEM_ID) return int is
62 function Os_Sem_Delete (Sem : SEM_ID) return int;
63 pragma Import (C, Os_Sem_Delete, "semDelete");
65 return Os_Sem_Delete (Sem);
68 ------------------------
69 -- taskCpuAffinitySet --
70 ------------------------
72 function taskCpuAffinitySet (tid : t_id; CPU : int) return int is
73 pragma Unreferenced (tid, CPU);
76 end taskCpuAffinitySet;
82 function Task_Stop (tid : t_id) return int is
83 function taskStop (tid : t_id) return int;
84 pragma Import (C, taskStop, "taskStop");
86 return taskStop (tid);
89 end System.VxWorks.Ext;