1------------------------------------------------------------------------------ 2-- -- 3-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- 4-- -- 5-- S Y S T E M . V X W O R K S . E X T -- 6-- -- 7-- B o d y -- 8-- -- 9-- Copyright (C) 2008-2015, Free Software Foundation, Inc. -- 10-- -- 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. -- 17-- -- 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. -- 21-- -- 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/>. -- 26-- -- 27------------------------------------------------------------------------------ 28 29-- This package provides vxworks specific support functions needed 30-- by System.OS_Interface. 31 32-- This is the VxWorks <= 6.5 kernel version of this package 33-- Also works for 6.6 uniprocessor 34 35package body System.VxWorks.Ext is 36 37 ERROR : constant := -1; 38 39 -------------- 40 -- Int_Lock -- 41 -------------- 42 43 function intLock return int; 44 pragma Import (C, intLock, "intLock"); 45 46 function Int_Lock return int renames intLock; 47 48 ---------------- 49 -- Int_Unlock -- 50 ---------------- 51 52 function intUnlock (Old : int) return int; 53 pragma Import (C, intUnlock, "intUnlock"); 54 55 function Int_Unlock (Old : int) return int renames intUnlock; 56 57 --------------- 58 -- semDelete -- 59 --------------- 60 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"); 64 begin 65 return Os_Sem_Delete (Sem); 66 end semDelete; 67 68 ------------------------ 69 -- taskCpuAffinitySet -- 70 ------------------------ 71 72 function taskCpuAffinitySet (tid : t_id; CPU : int) return int is 73 pragma Unreferenced (tid, CPU); 74 begin 75 return ERROR; 76 end taskCpuAffinitySet; 77 78 ------------------------- 79 -- taskMaskAffinitySet -- 80 ------------------------- 81 82 function taskMaskAffinitySet (tid : t_id; CPU_Set : unsigned) return int is 83 pragma Unreferenced (tid, CPU_Set); 84 begin 85 return ERROR; 86 end taskMaskAffinitySet; 87 88 -------------- 89 -- taskCont -- 90 -------------- 91 92 function Task_Cont (tid : t_id) return int is 93 function taskCont (tid : t_id) return int; 94 pragma Import (C, taskCont, "taskCont"); 95 begin 96 return taskCont (tid); 97 end Task_Cont; 98 99 -------------- 100 -- taskStop -- 101 -------------- 102 103 function Task_Stop (tid : t_id) return int is 104 function taskStop (tid : t_id) return int; 105 pragma Import (C, taskStop, "taskStop"); 106 begin 107 return taskStop (tid); 108 end Task_Stop; 109 110end System.VxWorks.Ext; 111