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-2010, 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 kernel version of this package
36 package System
.VxWorks
.Ext
is
39 subtype SEM_ID
is Long_Integer;
40 -- typedef struct semaphore *SEM_ID;
42 type sigset_t
is mod 2 ** Long_Long_Integer'Size;
44 type t_id
is new Long_Integer;
45 subtype int
is Interfaces
.C
.int
;
47 type Interrupt_Handler
is access procedure (parameter
: System
.Address
);
48 pragma Convention
(C
, Interrupt_Handler
);
50 type Interrupt_Vector
is new System
.Address
;
52 function Int_Lock
return int
;
53 pragma Convention
(C
, Int_Lock
);
55 function Int_Unlock
return int
;
56 pragma Convention
(C
, Int_Unlock
);
58 function Interrupt_Connect
59 (Vector
: Interrupt_Vector
;
60 Handler
: Interrupt_Handler
;
61 Parameter
: System
.Address
:= System
.Null_Address
) return int
;
62 pragma Import
(C
, Interrupt_Connect
, "intConnect");
64 function Interrupt_Number_To_Vector
65 (intNum
: int
) return Interrupt_Vector
;
66 pragma Import
(C
, Interrupt_Number_To_Vector
, "__gnat_inum_to_ivec");
68 function semDelete
(Sem
: SEM_ID
) return int
;
69 pragma Convention
(C
, semDelete
);
71 function Task_Cont
(tid
: t_id
) return int
;
72 pragma Import
(C
, Task_Cont
, "taskCont");
74 function Task_Stop
(tid
: t_id
) return int
;
75 pragma Convention
(C
, Task_Stop
);
77 function kill
(pid
: t_id
; sig
: int
) return int
;
78 pragma Import
(C
, kill
, "kill");
80 function getpid
return t_id
;
81 pragma Import
(C
, getpid
, "taskIdSelf");
83 function Set_Time_Slice
(ticks
: int
) return int
;
84 pragma Import
(C
, Set_Time_Slice
, "kernelTimeSlice");
86 type UINT64
is mod 2 ** Long_Long_Integer'Size;
88 function tickGet
return UINT64
;
89 -- Needed for ravenscar-cert
90 pragma Import
(C
, tickGet
, "tick64Get");
92 --------------------------------
93 -- Processor Affinity for SMP --
94 --------------------------------
96 function taskCpuAffinitySet
(tid
: t_id
; CPU
: int
) return int
;
97 pragma Convention
(C
, taskCpuAffinitySet
);
98 -- For SMP run-times set the CPU affinity.
99 -- For uniprocessor systems return ERROR status.
101 end System
.VxWorks
.Ext
;