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-2011, 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 RTP version of this package
34 package body System
.VxWorks
.Ext
is
36 ERROR
: constant := -1;
42 function Int_Lock
return int
is
51 function Int_Unlock
return int
is
56 -----------------------
57 -- Interrupt_Connect --
58 -----------------------
60 function Interrupt_Connect
61 (Vector
: Interrupt_Vector
;
62 Handler
: Interrupt_Handler
;
63 Parameter
: System
.Address
:= System
.Null_Address
) return int
65 pragma Unreferenced
(Vector
, Handler
, Parameter
);
68 end Interrupt_Connect
;
70 -----------------------
71 -- Interrupt_Context --
72 -----------------------
74 function Interrupt_Context
return int
is
76 -- For RTPs, never in an interrupt context
79 end Interrupt_Context
;
81 --------------------------------
82 -- Interrupt_Number_To_Vector --
83 --------------------------------
85 function Interrupt_Number_To_Vector
86 (intNum
: int
) return Interrupt_Vector
88 pragma Unreferenced
(intNum
);
91 end Interrupt_Number_To_Vector
;
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");
101 return OS_semDelete
(Sem
);
108 function Set_Time_Slice
(ticks
: int
) return int
is
109 pragma Unreferenced
(ticks
);
114 ------------------------
115 -- taskCpuAffinitySet --
116 ------------------------
118 function taskCpuAffinitySet
(tid
: t_id
; CPU
: int
) return int
is
119 pragma Unreferenced
(tid
, CPU
);
122 end taskCpuAffinitySet
;
124 -------------------------
125 -- taskMaskAffinitySet --
126 -------------------------
128 function taskMaskAffinitySet
(tid
: t_id
; CPU_Set
: unsigned
) return int
is
129 pragma Unreferenced
(tid
, CPU_Set
);
132 end taskMaskAffinitySet
;
134 end System
.VxWorks
.Ext
;