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-2011, 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 RTP version of this package 33 34package body System.VxWorks.Ext is 35 36 ERROR : constant := -1; 37 38 -------------- 39 -- Int_Lock -- 40 -------------- 41 42 function Int_Lock return int is 43 begin 44 return ERROR; 45 end Int_Lock; 46 47 ---------------- 48 -- Int_Unlock -- 49 ---------------- 50 51 function Int_Unlock return int is 52 begin 53 return ERROR; 54 end Int_Unlock; 55 56 ----------------------- 57 -- Interrupt_Connect -- 58 ----------------------- 59 60 function Interrupt_Connect 61 (Vector : Interrupt_Vector; 62 Handler : Interrupt_Handler; 63 Parameter : System.Address := System.Null_Address) return int 64 is 65 pragma Unreferenced (Vector, Handler, Parameter); 66 begin 67 return ERROR; 68 end Interrupt_Connect; 69 70 ----------------------- 71 -- Interrupt_Context -- 72 ----------------------- 73 74 function Interrupt_Context return int is 75 begin 76 -- For RTPs, never in an interrupt context 77 78 return 0; 79 end Interrupt_Context; 80 81 -------------------------------- 82 -- Interrupt_Number_To_Vector -- 83 -------------------------------- 84 85 function Interrupt_Number_To_Vector 86 (intNum : int) return Interrupt_Vector 87 is 88 pragma Unreferenced (intNum); 89 begin 90 return 0; 91 end Interrupt_Number_To_Vector; 92 93 --------------- 94 -- semDelete -- 95 --------------- 96 97 function semDelete (Sem : SEM_ID) return int is 98 function OS_semDelete (Sem : SEM_ID) return int; 99 pragma Import (C, OS_semDelete, "semDelete"); 100 begin 101 return OS_semDelete (Sem); 102 end semDelete; 103 104 -------------------- 105 -- Set_Time_Slice -- 106 -------------------- 107 108 function Set_Time_Slice (ticks : int) return int is 109 pragma Unreferenced (ticks); 110 begin 111 return ERROR; 112 end Set_Time_Slice; 113 114 ------------------------ 115 -- taskCpuAffinitySet -- 116 ------------------------ 117 118 function taskCpuAffinitySet (tid : t_id; CPU : int) return int is 119 pragma Unreferenced (tid, CPU); 120 begin 121 return ERROR; 122 end taskCpuAffinitySet; 123 124 ------------------------- 125 -- taskMaskAffinitySet -- 126 ------------------------- 127 128 function taskMaskAffinitySet (tid : t_id; CPU_Set : unsigned) return int is 129 pragma Unreferenced (tid, CPU_Set); 130 begin 131 return ERROR; 132 end taskMaskAffinitySet; 133 134end System.VxWorks.Ext; 135