Context Navigation

source: rtems/c/src/ada/rtems.ads @ 0f9e7f96

4.104.114.84.95

Last change on this file since 0f9e7f96 was e1fe652, checked in by Joel Sherrill <joel.sherrill@…>, on 01/03/03 at 22:44:40

2003-01-03 Joel Sherrill <joel@…>

rtems.ads: Corrected Configuration_Table record definition to match current RTEMS source. sp01 now runs.

Property mode set to 100644

File size: 44.5 KB

Line
1	--
2	-- RTEMS / Specification
3	--
4	-- DESCRIPTION:
5	--
6	-- This package provides the interface to the RTEMS API.
7	--
8	-- DEPENDENCIES:
9	--
10	--
11	--
12	-- COPYRIGHT (c) 1997.
13	-- On-Line Applications Research Corporation (OAR).
14	--
15	-- The license and distribution terms for this file may in
16	-- the file LICENSE in this distribution or at
17	-- http://www.OARcorp.com/rtems/license.html.
18	--
19	-- $Id$
20	--
21
22	with System;
23	with System.Storage_Elements; use System.Storage_Elements;
24	with Interfaces;
25	with Interfaces.C;
26
27	package RTEMS is
28	pragma Elaborate_Body (RTEMS);
29
30	Structure_Alignment : constant := 8;
31
32	--
33	-- RTEMS Base Types
34	--
35
36	subtype Unsigned8 is Interfaces.Unsigned_8;
37	subtype Unsigned16 is Interfaces.Unsigned_16;
38	subtype Unsigned32 is Interfaces.Unsigned_32;
39	subtype Signed32 is Interfaces.Integer_32;
40
41	type Unsigned32_Pointer is access all RTEMS.Unsigned32;
42	type Unsigned16_Pointer is access all RTEMS.Unsigned16;
43	type Unsigned8_Pointer is access all RTEMS.Unsigned8;
44	type Signed32_Pointer is access all RTEMS.Signed32;
45
46	subtype Boolean is RTEMS.Unsigned32;
47	subtype Address is System.Address;
48	subtype Single is Interfaces.C.C_float;
49	subtype Double is Interfaces.C.Double;
50
51	--
52	-- The following define the size of each of the base types in
53	-- both bits and system units.
54	--
55
56	Unsigned8_Bits : constant := 7;
57	Unsigned16_Bits : constant := 15;
58	Unsigned32_Bits : constant := 31;
59	Boolean_Bits : constant := 31;
60	Address_Bits : constant := 31;
61	Single_Bits : constant := 31;
62	Double_Bits : constant := 63;
63
64	Unsigned8_Units : constant := 1;
65	Unsigned16_Units : constant := 2;
66	Unsigned32_Units : constant := 4;
67	Boolean_Units : constant := 4;
68	Address_Units : constant := 4;
69	Single_Units : constant := 4;
70	Double_Units : constant := 8;
71
72	Null_Address : constant RTEMS.Address :=
73	System.Storage_Elements.To_Address(0);
74
75	True : constant RTEMS.Boolean := 1;
76	False : constant RTEMS.Boolean := 0;
77
78	-- More Types
79	--
80
81	subtype Name is RTEMS.Unsigned32;
82	subtype ID is RTEMS.Unsigned32;
83	subtype Interval is RTEMS.Unsigned32;
84	subtype Attribute is RTEMS.Unsigned32;
85	subtype Mode is RTEMS.Unsigned32;
86	subtype Option is RTEMS.Unsigned32;
87	subtype Task_Priority is RTEMS.Unsigned32;
88	subtype Notepad_Index is RTEMS.Unsigned32 range 0 .. 15;
89
90	subtype Event_Set is RTEMS.Unsigned32;
91	subtype Signal_Set is RTEMS.Unsigned32;
92	subtype Debug_Set is RTEMS.Unsigned32;
93	subtype Device_Major_Number is RTEMS.Unsigned32;
94	subtype Device_Minor_Number is RTEMS.Unsigned32;
95	subtype Vector_Number is RTEMS.Unsigned32;
96	subtype ISR_Level is RTEMS.Unsigned32;
97
98	subtype Node is RTEMS.Unsigned32;
99
100	--
101	-- Task Related Types
102	-- XXXX fix this
103	subtype Task_Argument is RTEMS.Unsigned32;
104	type Task_Argument_PTR is access all Task_Argument;
105
106	-- XXXX fix this
107	subtype TCB is RTEMS.Unsigned32;
108	type TCB_Pointer is access all RTEMS.TCB;
109
110	subtype Task_States is RTEMS.Unsigned32;
111
112	type Task_Entry is access procedure (
113	Argument : RTEMS.Unsigned32
114	);
115
116	--
117	-- Clock and Time of Day Types
118	--
119
120	type Time_Of_Day is
121	record
122	Year : RTEMS.Unsigned32; -- year, A.D.
123	Month : RTEMS.Unsigned32; -- month, 1 .. 12
124	Day : RTEMS.Unsigned32; -- day, 1 .. 31
125	Hour : RTEMS.Unsigned32; -- hour, 0 .. 23
126	Minute : RTEMS.Unsigned32; -- minute, 0 .. 59
127	Second : RTEMS.Unsigned32; -- second, 0 .. 59
128	Ticks : RTEMS.Unsigned32; -- elapsed ticks between seconds
129	end record;
130
131	type Clock_Time_Value is
132	record
133	Seconds : RTEMS.Unsigned32;
134	Microseconds : RTEMS.Unsigned32;
135	end record;
136
137	type Clock_Get_Options is (
138	Clock_Get_TOD,
139	Clock_Get_Seconds_Since_Epoch,
140	Clock_Get_Ticks_Since_Boot,
141	Clock_Get_Ticks_Per_Seconds,
142	Clock_Get_Time_Value
143	);
144
145	--
146	-- Device Driver Entry Prototype
147	--
148
149	type Device_Driver_Entry is access function (
150	Major : in RTEMS.Device_Major_Number;
151	Minor : in RTEMS.Device_Major_Number;
152	Argument : in RTEMS.Unsigned32;
153	ID : in RTEMS.Unsigned32
154	) return RTEMS.Unsigned32;
155
156	type Driver_Address_Table_Entry is
157	record
158	Initialization : RTEMS.Device_Driver_Entry;
159	Open : RTEMS.Device_Driver_Entry;
160	Close : RTEMS.Device_Driver_Entry;
161	Read : RTEMS.Device_Driver_Entry;
162	Write : RTEMS.Device_Driver_Entry;
163	Control : RTEMS.Device_Driver_Entry;
164	end record;
165
166	type Driver_Address_Table is array ( RTEMS.Unsigned32
167	range 1 .. RTEMS.Unsigned32'Last ) of RTEMS.Driver_Address_Table_Entry;
168
169	type Driver_Address_Table_Pointer is access all Driver_Address_Table;
170
171	type Driver_Name_t is
172	record
173	Device_Name : RTEMS.Address;
174	Device_Name_Length : RTEMS.Unsigned32;
175	Major : RTEMS.Device_Major_Number;
176	Minor : RTEMS.Device_Minor_Number;
177
178	end record;
179
180	--
181	-- Ident Options
182	--
183
184	Search_All_Nodes : constant RTEMS.Node := 0;
185
186	--
187	-- Options
188	--
189
190	Default_Options : constant RTEMS.Option := 16#0000#;
191
192	Wait : constant RTEMS.Option := 16#0000#;
193	No_Wait : constant RTEMS.Option := 16#0001#;
194
195	Event_All : constant RTEMS.Option := 16#0000#;
196	Event_Any : constant RTEMS.Option := 16#0002#;
197
198	--
199	-- Mode constants
200	--
201
202	Default_Modes : constant RTEMS.Mode := 16#0000#;
203
204	All_Mode_Masks : constant RTEMS.Mode := 16#0000_ffff#;
205	Current_Mode : constant RTEMS.Mode := 16#0000_0000#;
206	Preempt_Mask : constant RTEMS.Mode := 16#0000_0100#;
207	Timeslice_Mask : constant RTEMS.Mode := 16#0000_0200#;
208	ASR_Mask : constant RTEMS.Mode := 16#0000_0400#;
209	Interrupt_Mask : RTEMS.Mode;
210	Preempt : constant RTEMS.Mode := 16#0000_0000#;
211	No_Preempt : constant RTEMS.Mode := 16#0000_0100#;
212	No_Timeslice : constant RTEMS.Mode := 16#0000_0000#;
213	Timeslice : constant RTEMS.Mode := 16#0000_0200#;
214	ASR : constant RTEMS.Mode := 16#0000_0000#;
215	No_ASR : constant RTEMS.Mode := 16#0000_0400#;
216
217	pragma Import (C, Interrupt_Mask, "rtems_interrupt_mask");
218
219	--
220	-- Attribute constants
221	--
222
223	Default_Attributes : constant RTEMS.Attribute := 16#00000000#;
224	No_Floating_Point : constant RTEMS.Attribute := 16#00000000#;
225	Floating_Point : constant RTEMS.Attribute := 16#00000001#;
226	Local : constant RTEMS.Attribute := 16#00000000#;
227	Global : constant RTEMS.Attribute := 16#00000002#;
228	FIFO : constant RTEMS.Attribute := 16#00000000#;
229	Priority : constant RTEMS.Attribute := 16#00000004#;
230	Counting_Semaphore : constant RTEMS.Attribute := 16#00000000#;
231	Binary_Semaphore : constant RTEMS.Attribute := 16#00000010#;
232	No_Inherit_Priority : constant RTEMS.Attribute := 16#00000000#;
233	Inherit_Priority : constant RTEMS.Attribute := 16#00000020#;
234	No_Priority_Ceiling : constant RTEMS.Attribute := 16#00000000#;
235	Priority_Ceiling : constant RTEMS.Attribute := 16#00000040#;
236
237	function Interrupt_Level (
238	Level : in RTEMS.Unsigned32
239	) return RTEMS.Attribute;
240	pragma Import (C, Interrupt_Level, "rtems_interrupt_level_attribute");
241
242	Minimum_Stack_Size : RTEMS.Unsigned32;
243	pragma Import (C, Minimum_Stack_Size, "rtems_minimum_stack_size");
244
245
246	--
247	-- Notepad index constants
248	--
249
250	Notepad_0 : constant RTEMS.Unsigned32 := 0;
251	Notepad_1 : constant RTEMS.Unsigned32 := 1;
252	Notepad_2 : constant RTEMS.Unsigned32 := 2;
253	Notepad_3 : constant RTEMS.Unsigned32 := 3;
254	Notepad_4 : constant RTEMS.Unsigned32 := 4;
255	Notepad_5 : constant RTEMS.Unsigned32 := 5;
256	Notepad_6 : constant RTEMS.Unsigned32 := 6;
257	Notepad_7 : constant RTEMS.Unsigned32 := 7;
258	Notepad_8 : constant RTEMS.Unsigned32 := 8;
259	Notepad_9 : constant RTEMS.Unsigned32 := 9;
260	Notepad_10 : constant RTEMS.Unsigned32 := 10;
261	Notepad_11 : constant RTEMS.Unsigned32 := 11;
262	Notepad_12 : constant RTEMS.Unsigned32 := 12;
263	Notepad_13 : constant RTEMS.Unsigned32 := 13;
264	Notepad_14 : constant RTEMS.Unsigned32 := 14;
265	Notepad_15 : constant RTEMS.Unsigned32 := 15;
266
267	--
268	-- Miscellaneous
269	--
270
271	No_Timeout : constant RTEMS.Interval := 0;
272	Self : constant RTEMS.ID := 0;
273	Period_Status : constant RTEMS.Interval := 0;
274	Yield_Processor : constant RTEMS.Interval := 0;
275	Current_Priority : constant RTEMS.Task_Priority := 0;
276	No_Priority : constant RTEMS.Task_Priority := 0;
277
278
279	--
280	-- Extension Callouts and Table
281	--
282
283	type Thread_Create_Extension is access procedure (
284	Current_Task : in RTEMS.TCB_Pointer;
285	New_Task : in RTEMS.TCB_Pointer
286	);
287
288	type Thread_Start_Extension is access procedure (
289	Current_Task : in RTEMS.TCB_Pointer;
290	Started_Task : in RTEMS.TCB_Pointer
291	);
292
293	type Thread_Restart_Extension is access procedure (
294	Current_Task : in RTEMS.TCB_Pointer;
295	Restarted_Task : in RTEMS.TCB_Pointer
296	);
297
298	type Thread_Delete_Extension is access procedure (
299	Current_Task : in RTEMS.TCB_Pointer;
300	Deleted_Task : in RTEMS.TCB_Pointer
301	);
302
303	type Thread_Switch_Extension is access procedure (
304	Current_Task : in RTEMS.TCB_Pointer;
305	Heir_Task : in RTEMS.TCB_Pointer
306	);
307
308	type Thread_Post_Switch_Extension is access procedure (
309	Current_Task : in RTEMS.TCB_Pointer
310	);
311
312	type Thread_Begin_Extension is access procedure (
313	Current_Task : in RTEMS.TCB_Pointer
314	);
315
316	type Thread_Exitted_Extension is access procedure (
317	Current_Task : in RTEMS.TCB_Pointer
318	);
319
320	type Fatal_Error_Extension is access procedure (
321	Error : in RTEMS.Unsigned32
322	);
323
324	type Extensions_Table is
325	record
326	Thread_Create : RTEMS.Thread_Create_Extension;
327	Thread_Start : RTEMS.Thread_Start_Extension;
328	Thread_Restart : RTEMS.Thread_Restart_Extension;
329	Thread_Delete : RTEMS.Thread_Delete_Extension;
330	Thread_Switch : RTEMS.Thread_Switch_Extension;
331	Thread_Post_Switch : RTEMS.Thread_Post_Switch_Extension;
332	Thread_Begin : RTEMS.Thread_Begin_Extension;
333	Thread_Exitted : RTEMS.Thread_Exitted_Extension;
334	Fatal : RTEMS.Fatal_Error_Extension;
335	end record;
336
337	type Extensions_Table_Pointer is access all Extensions_Table;
338
339	--
340	-- The following type define a pointer to a watchdog/timer service routine.
341	--
342
343	type Timer_Service_Routine is access procedure (
344	ID : in RTEMS.ID;
345	User_Data : in RTEMS.Address
346	);
347
348	--
349	-- The following type define a pointer to a signal service routine.
350	--
351
352	type ASR_Handler is access procedure (
353	Signals : in RTEMS.Signal_Set
354	);
355
356	--
357	-- The following type defines the status information returned
358	-- about a period.
359	--
360
361	type Rate_Monotonic_Period_States is (
362	Inactive, -- off chain, never initialized
363	Owner_Is_Blocking, -- on chain, owner is blocking on it
364	Active, -- on chain, running continuously
365	Expired_While_Blocking, -- on chain, expired while owner was was blocking
366	Expired -- off chain, will be reset by next
367	-- rtems_rate_monotonic_period
368	);
369
370	for Rate_Monotonic_Period_States'Size use 32;
371
372	for Rate_Monotonic_Period_States use (
373	Inactive => 0,
374	Owner_Is_Blocking => 1,
375	Active => 2,
376	Expired_While_Blocking => 3,
377	Expired => 4
378	);
379
380	type Rate_Monotonic_Period_Status is
381	record
382	State : RTEMS.Rate_Monotonic_Period_States;
383	Ticks_Since_Last_Period : RTEMS.Unsigned32;
384	Ticks_Executed_Since_Last_Period : RTEMS.Unsigned32;
385	end record;
386
387	--
388	-- Method Completions Status Codes
389	--
390
391	type Status_Codes is (
392	Successful, -- successful completion
393	Task_Exitted, -- returned from a task
394	MP_Not_Configured, -- multiprocessing not configured
395	Invalid_Name, -- invalid object name
396	Invalid_ID, -- invalid object id
397	Too_Many, -- too many
398	Timeout, -- timed out waiting
399	Object_Was_Deleted, -- object deleted while waiting
400	Invalid_Size, -- specified size was invalid
401	Invalid_Address, -- address specified is invalid
402	Invalid_Number, -- number was invalid
403	Not_Defined, -- item has not been initialized
404	Resource_In_Use, -- resources still outstanding
405	Unsatisfied, -- request not satisfied
406	Incorrect_State, -- task is in wrong state
407	Already_Suspended, -- task already in state
408	Illegal_On_Self, -- illegal on calling task
409	Illegal_On_Remote_Object, -- illegal for remote object
410	Called_From_ISR, -- called from wrong environment
411	Invalid_Priority, -- invalid task priority
412	Invalid_Clock, -- invalid date/time
413	Invalid_Node, -- invalid node id
414	Not_Configured, -- directive not configured
415	Not_Owner_Of_Resource, -- not owner of resource
416	Not_Implemented, -- directive not implemented
417	Internal_Error, -- RTEMS inconsistency detected
418	No_Memory, -- no memory left in heap
419	IO_Error, -- driver IO error
420	Proxy_Blocking -- internal multiprocessing only
421	);
422
423	for Status_Codes'Size use 32;
424
425	for Status_Codes use (
426	Successful => 0,
427	Task_Exitted => 1,
428	MP_Not_Configured => 2,
429	Invalid_Name => 3,
430	Invalid_ID => 4,
431	Too_Many => 5,
432	Timeout => 6,
433	Object_Was_Deleted => 7,
434	Invalid_Size => 8,
435	Invalid_Address => 9,
436	Invalid_NumbeR => 10,
437	Not_Defined => 11,
438	Resource_In_Use => 12,
439	Unsatisfied => 13,
440	Incorrect_State => 14,
441	Already_Suspended => 15,
442	Illegal_On_Self => 16,
443	Illegal_On_Remote_Object => 17,
444	Called_From_ISR => 18,
445	Invalid_Priority => 19,
446	Invalid_Clock => 20,
447	Invalid_Node => 21,
448	Not_Configured => 22,
449	Not_Owner_Of_Resource => 23,
450	Not_ImplementeD => 24,
451	Internal_Error => 25,
452	No_Memory => 26,
453	IO_Error => 27,
454	Proxy_Blocking => 28
455	);
456
457	--
458	-- RTEMS Events
459	--
460
461	Pending_Events : constant RTEMS.Event_Set := 16#0000_0000#;
462	All_Events : constant RTEMS.Event_Set := 16#FFFF_FFFF#;
463	Event_0 : constant RTEMS.Event_Set := 16#0000_0001#;
464	Event_1 : constant RTEMS.Event_Set := 16#0000_0002#;
465	Event_2 : constant RTEMS.Event_Set := 16#0000_0004#;
466	Event_3 : constant RTEMS.Event_Set := 16#0000_0008#;
467	Event_4 : constant RTEMS.Event_Set := 16#0000_0010#;
468	Event_5 : constant RTEMS.Event_Set := 16#0000_0020#;
469	Event_6 : constant RTEMS.Event_Set := 16#0000_0040#;
470	Event_7 : constant RTEMS.Event_Set := 16#0000_0080#;
471	Event_8 : constant RTEMS.Event_Set := 16#0000_0100#;
472	Event_9 : constant RTEMS.Event_Set := 16#0000_0200#;
473	Event_10 : constant RTEMS.Event_Set := 16#0000_0400#;
474	Event_11 : constant RTEMS.Event_Set := 16#0000_0800#;
475	Event_12 : constant RTEMS.Event_Set := 16#0000_1000#;
476	Event_13 : constant RTEMS.Event_Set := 16#0000_2000#;
477	Event_14 : constant RTEMS.Event_Set := 16#0000_4000#;
478	Event_15 : constant RTEMS.Event_Set := 16#0000_8000#;
479	Event_16 : constant RTEMS.Event_Set := 16#0001_0000#;
480	Event_17 : constant RTEMS.Event_Set := 16#0002_0000#;
481	Event_18 : constant RTEMS.Event_Set := 16#0004_0000#;
482	Event_19 : constant RTEMS.Event_Set := 16#0008_0000#;
483	Event_20 : constant RTEMS.Event_Set := 16#0010_0000#;
484	Event_21 : constant RTEMS.Event_Set := 16#0020_0000#;
485	Event_22 : constant RTEMS.Event_Set := 16#0040_0000#;
486	Event_23 : constant RTEMS.Event_Set := 16#0080_0000#;
487	Event_24 : constant RTEMS.Event_Set := 16#0100_0000#;
488	Event_25 : constant RTEMS.Event_Set := 16#0200_0000#;
489	Event_26 : constant RTEMS.Event_Set := 16#0400_0000#;
490	Event_27 : constant RTEMS.Event_Set := 16#0800_0000#;
491	Event_28 : constant RTEMS.Event_Set := 16#1000_0000#;
492	Event_29 : constant RTEMS.Event_Set := 16#2000_0000#;
493	Event_30 : constant RTEMS.Event_Set := 16#4000_0000#;
494	Event_31 : constant RTEMS.Event_Set := 16#8000_0000#;
495
496	--
497	-- RTEMS Signals
498	--
499
500	All_Signals : constant RTEMS.Signal_Set := 16#7FFFFFFF#;
501	Signal_0 : constant RTEMS.Signal_Set := 16#00000001#;
502	Signal_1 : constant RTEMS.Signal_Set := 16#00000002#;
503	Signal_2 : constant RTEMS.Signal_Set := 16#00000004#;
504	Signal_3 : constant RTEMS.Signal_Set := 16#00000008#;
505	Signal_4 : constant RTEMS.Signal_Set := 16#00000010#;
506	Signal_5 : constant RTEMS.Signal_Set := 16#00000020#;
507	Signal_6 : constant RTEMS.Signal_Set := 16#00000040#;
508	Signal_7 : constant RTEMS.Signal_Set := 16#00000080#;
509	Signal_8 : constant RTEMS.Signal_Set := 16#00000100#;
510	Signal_9 : constant RTEMS.Signal_Set := 16#00000200#;
511	Signal_10 : constant RTEMS.Signal_Set := 16#00000400#;
512	Signal_11 : constant RTEMS.Signal_Set := 16#00000800#;
513	Signal_12 : constant RTEMS.Signal_Set := 16#00001000#;
514	Signal_13 : constant RTEMS.Signal_Set := 16#00002000#;
515	Signal_14 : constant RTEMS.Signal_Set := 16#00004000#;
516	Signal_15 : constant RTEMS.Signal_Set := 16#00008000#;
517	Signal_16 : constant RTEMS.Signal_Set := 16#00010000#;
518	Signal_17 : constant RTEMS.Signal_Set := 16#00020000#;
519	Signal_18 : constant RTEMS.Signal_Set := 16#00040000#;
520	Signal_19 : constant RTEMS.Signal_Set := 16#00080000#;
521	Signal_20 : constant RTEMS.Signal_Set := 16#00100000#;
522	Signal_21 : constant RTEMS.Signal_Set := 16#00200000#;
523	Signal_22 : constant RTEMS.Signal_Set := 16#00400000#;
524	Signal_23 : constant RTEMS.Signal_Set := 16#00800000#;
525	Signal_24 : constant RTEMS.Signal_Set := 16#01000000#;
526	Signal_25 : constant RTEMS.Signal_Set := 16#02000000#;
527	Signal_26 : constant RTEMS.Signal_Set := 16#04000000#;
528	Signal_27 : constant RTEMS.Signal_Set := 16#08000000#;
529	Signal_28 : constant RTEMS.Signal_Set := 16#10000000#;
530	Signal_29 : constant RTEMS.Signal_Set := 16#20000000#;
531	Signal_30 : constant RTEMS.Signal_Set := 16#40000000#;
532	Signal_31 : constant RTEMS.Signal_Set := 16#80000000#;
533
534	--
535	-- RTEMS API Configuration Information
536	--
537
538	type Initialization_Tasks_Table_Entry is
539	record
540	Name : RTEMS.Name; -- task name
541	Stack_Size : RTEMS.Unsigned32; -- task stack size
542	Initial_Priority : RTEMS.Task_priority; -- task priority
543	Attribute_Set : RTEMS.Attribute; -- task attributes
544	Entry_Point : RTEMS.Task_Entry; -- task entry point
545	Mode_Set : RTEMS.Mode; -- task initial mode
546	Argument : RTEMS.Unsigned32; -- task argument
547	end record;
548
549	type Initialization_Tasks_Table is array ( RTEMS.Unsigned32 range <> ) of
550	RTEMS.Initialization_Tasks_Table_Entry;
551
552	type Initialization_Tasks_Table_Pointer is access all
553	Initialization_Tasks_Table;
554
555	type API_Configuration_Table is
556	record
557	Maximum_Tasks : RTEMS.Unsigned32;
558	Maximum_Timers : RTEMS.Unsigned32;
559	Maximum_Semaphores : RTEMS.Unsigned32;
560	Maximum_Message_queues : RTEMS.Unsigned32;
561	Maximum_Partitions : RTEMS.Unsigned32;
562	Maximum_Regions : RTEMS.Unsigned32;
563	Maximum_Ports : RTEMS.Unsigned32;
564	Maximum_Periods : RTEMS.Unsigned32;
565	Number_Of_Initialization_Tasks : RTEMS.Unsigned32;
566	User_Initialization_Tasks_Table :
567	RTEMS.Initialization_Tasks_Table_Pointer;
568	end record;
569
570	type API_Configuration_Table_Pointer is access all API_Configuration_Table;
571
572	--
573	-- RTEMS POSIX API Configuration Information
574	--
575
576	type POSIX_Thread_Entry is access procedure (
577	Argument : in RTEMS.Address
578	);
579
580	type POSIX_Initialization_Threads_Table_Entry is
581	record
582	Thread_Entry : RTEMS.POSIX_Thread_Entry;
583	end record;
584
585	type POSIX_Initialization_Threads_Table is array
586	( RTEMS.Unsigned32 range <> ) of
587	RTEMS.POSIX_Initialization_Threads_Table_Entry;
588
589	type POSIX_Initialization_Threads_Table_Pointer is access all
590	POSIX_Initialization_Threads_Table;
591
592	type POSIX_API_Configuration_Table_Entry is
593	record
594	Maximum_Threads : Interfaces.C.Int;
595	Maximum_Mutexes : Interfaces.C.Int;
596	Maximum_Condition_Variables : Interfaces.C.Int;
597	Maximum_Keys : Interfaces.C.Int;
598	Maximum_Queued_Signals : Interfaces.C.Int;
599	Number_Of_Initialization_Tasks : Interfaces.C.Int;
600	User_Initialization_Tasks_Table :
601	RTEMS.POSIX_Initialization_Threads_Table_Pointer;
602	end record;
603
604	type POSIX_API_Configuration_Table is array ( RTEMS.Unsigned32 range <> ) of
605	RTEMS.POSIX_API_Configuration_Table_Entry;
606
607	type POSIX_API_Configuration_Table_Pointer is access all
608	RTEMS.POSIX_API_Configuration_Table;
609
610	--
611	-- MPCI Information include MPCI Configuration
612	--
613
614	type Configuration_Table_Pointer;
615
616	type MP_Packet_Classes is (
617	MP_PACKET_MPCI_INTERNAL,
618	MP_PACKET_TASKS,
619	MP_PACKET_MESSAGE_QUEUE,
620	MP_PACKET_SEMAPHORE,
621	MP_PACKET_PARTITION,
622	MP_PACKET_REGION,
623	MP_PACKET_EVENT,
624	MP_PACKET_SIGNAL
625	);
626
627	for MP_Packet_Classes use (
628	MP_PACKET_MPCI_INTERNAL => 0,
629	MP_PACKET_TASKS => 1,
630	MP_PACKET_MESSAGE_QUEUE => 2,
631	MP_PACKET_SEMAPHORE => 3,
632	MP_PACKET_PARTITION => 4,
633	MP_PACKET_REGION => 5,
634	MP_PACKET_EVENT => 6,
635	MP_PACKET_SIGNAL => 7
636	);
637
638	type Packet_Prefix is
639	record
640	The_Class : RTEMS.MP_Packet_Classes;
641	ID : RTEMS.ID;
642	Source_TID : RTEMS.ID;
643	Source_Priority : RTEMS.Task_Priority;
644	Return_Code : RTEMS.Unsigned32;
645	Length : RTEMS.Unsigned32;
646	To_Convert : RTEMS.Unsigned32;
647	Timeout : RTEMS.Interval;
648	end record;
649
650	type Packet_Prefix_Pointer is access all Packet_Prefix;
651
652	type MPCI_Initialization_Entry is access procedure (
653	Configuration : in RTEMS.Configuration_Table_Pointer
654	);
655
656	type MPCI_Get_Packet_Entry is access procedure (
657	Packet : access RTEMS.Packet_Prefix_Pointer
658	);
659
660	type MPCI_Return_Packet_Entry is access procedure (
661	Packet : in RTEMS.Packet_Prefix_Pointer
662	);
663
664	type MPCI_Send_Entry is access procedure (
665	Packet : in RTEMS.Packet_Prefix_Pointer
666	);
667
668	type MPCI_Receive_Entry is access procedure (
669	Packet : access RTEMS.Packet_Prefix_Pointer
670	);
671
672	type MPCI_Table is
673	record
674	Default_Timeout : RTEMS.Unsigned32; -- in ticks
675	Maximum_Packet_Size : RTEMS.Unsigned32;
676	Initialization : RTEMS.MPCI_Initialization_Entry;
677	Get_Packet : RTEMS.MPCI_Get_Packet_Entry;
678	Return_Packet : RTEMS.MPCI_Return_Packet_Entry;
679	Send : RTEMS.MPCI_Send_Entry;
680	Receive : RTEMS.MPCI_Receive_Entry;
681	end record;
682
683	type MPCI_Table_Pointer is access all MPCI_Table;
684
685	--
686	-- Configuration Information
687	--
688
689	type Multiprocessing_Table is
690	record
691	Node : RTEMS.Unsigned32;
692	Maximum_Nodes : RTEMS.Unsigned32;
693	Maximum_Global_Objects : RTEMS.Unsigned32;
694	Maximum_Proxies : RTEMS.Unsigned32;
695	User_MPCI_Table : RTEMS.MPCI_Table_Pointer;
696	end record;
697
698	type Multiprocessing_Table_Pointer is access all Multiprocessing_Table;
699
700	type Configuration_Table is
701	record
702	Work_Space_Start : RTEMS.Address;
703	Work_Space_Size : RTEMS.Unsigned32;
704	Maximum_Extensions : RTEMS.Unsigned32;
705	Microseconds_Per_Tick : RTEMS.Unsigned32;
706	Ticks_Per_Timeslice : RTEMS.Unsigned32;
707	Maximum_Devices : RTEMS.Unsigned32;
708	Maximum_Drivers : RTEMS.Unsigned32;
709	Number_Of_Device_Drivers : RTEMS.Unsigned32;
710	Device_Driver_Table : RTEMS.Driver_Address_Table_Pointer;
711	Number_Of_Initial_Extensions : RTEMS.Unsigned32;
712	User_Extension_Table : RTEMS.Extensions_Table_Pointer;
713	User_Multiprocessing_Table : RTEMS.Multiprocessing_Table_Pointer;
714
715	RTEMS_API_Configuration : RTEMS.API_Configuration_Table_Pointer;
716	POSIX_API_Configuration : RTEMS.POSIX_API_Configuration_Table_Pointer;
717	ITRON_API_Configuration : RTEMS.Address; -- XXX FIX ME
718	end record;
719
720	type Configuration_Table_Pointer is access all Configuration_Table;
721
722	--
723	-- For now, do not provide access to the CPU Table from Ada.
724	-- When this type is provided, a CPU dependent file must
725	-- define it.
726	--
727
728	subtype CPU_Table is RTEMS.Address;
729	type CPU_Table_Pointer is access all CPU_Table;
730
731	--
732	-- Utility Functions
733	--
734
735	function From_Ada_Boolean (
736	Ada_Boolean : Standard.Boolean
737	) return RTEMS.Boolean;
738
739	function To_Ada_Boolean (
740	RTEMS_Boolean : RTEMS.Boolean
741	) return Standard.Boolean;
742
743	function Milliseconds_To_Microseconds (
744	Milliseconds : RTEMS.Unsigned32
745	) return RTEMS.Unsigned32;
746
747	function Microseconds_To_Ticks (
748	Microseconds : RTEMS.Unsigned32
749	) return RTEMS.Interval;
750
751	function Milliseconds_To_Ticks (
752	Milliseconds : RTEMS.Unsigned32
753	) return RTEMS.Interval;
754
755	function Build_Name (
756	C1 : in Character;
757	C2 : in Character;
758	C3 : in Character;
759	C4 : in Character
760	) return RTEMS.Name;
761
762	procedure Name_To_Characters (
763	Name : in RTEMS.Name;
764	C1 : out Character;
765	C2 : out Character;
766	C3 : out Character;
767	C4 : out Character
768	);
769
770	function Get_Node (
771	ID : in RTEMS.ID
772	) return RTEMS.Unsigned32;
773
774	function Get_Index (
775	ID : in RTEMS.ID
776	) return RTEMS.Unsigned32;
777
778	function Are_Statuses_Equal (
779	Status : in RTEMS.Status_Codes;
780	Desired : in RTEMS.Status_Codes
781	) return Standard.Boolean;
782
783	function Is_Status_Successful (
784	Status : in RTEMS.Status_Codes
785	) return Standard.Boolean;
786
787	function Subtract (
788	Left : in RTEMS.Address;
789	Right : in RTEMS.Address
790	) return RTEMS.Unsigned32;
791
792	function Are_Equal (
793	Left : in RTEMS.Address;
794	Right : in RTEMS.Address
795	) return Standard.Boolean;
796	--
797	-- RTEMS API
798	--
799
800	--
801	-- Initialization Manager
802	--
803
804	procedure Initialize_Executive (
805	Configuration_Table : in RTEMS.Configuration_Table_Pointer;
806	CPU_Table : in RTEMS.CPU_Table_Pointer
807	);
808
809	procedure Initialize_Executive_Early (
810	Configuration_Table : in RTEMS.Configuration_Table_Pointer;
811	CPU_Table : in RTEMS.CPU_Table_Pointer;
812	Level : out RTEMS.ISR_Level
813	);
814
815	procedure Initialize_Executive_Late (
816	BSP_Level : in RTEMS.ISR_Level
817	);
818
819	procedure Shutdown_Executive (
820	Result : in RTEMS.Unsigned32
821	);
822
823	--
824	-- Task Manager
825	--
826
827	procedure Task_Create (
828	Name : in RTEMS.Name;
829	Initial_Priority : in RTEMS.Task_Priority;
830	Stack_Size : in Unsigned32;
831	Initial_Modes : in RTEMS.Mode;
832	Attribute_Set : in RTEMS.Attribute;
833	ID : out RTEMS.ID;
834	Result : out RTEMS.Status_Codes
835	);
836
837	procedure Task_Ident (
838	Name : in RTEMS.Name;
839	Node : in RTEMS.Node;
840	ID : out RTEMS.ID;
841	Result : out RTEMS.Status_Codes
842	);
843
844	procedure Task_Start (
845	ID : in RTEMS.ID;
846	Entry_Point : in RTEMS.Task_Entry;
847	Argument : in RTEMS.Task_Argument;
848	Result : out RTEMS.Status_Codes
849	);
850
851	procedure Task_Restart (
852	ID : in RTEMS.ID;
853	Argument : in RTEMS.Task_Argument;
854	Result : out RTEMS.Status_Codes
855	);
856
857	procedure Task_Delete (
858	ID : in RTEMS.ID;
859	Result : out RTEMS.Status_Codes
860	);
861
862	procedure Task_Suspend (
863	ID : in RTEMS.ID;
864	Result : out RTEMS.Status_Codes
865	);
866
867	procedure Task_Resume (
868	ID : in RTEMS.ID;
869	Result : out RTEMS.Status_Codes
870	);
871
872	procedure Task_Set_Priority (
873	ID : in RTEMS.ID;
874	New_Priority : in RTEMS.Task_Priority;
875	Old_Priority : out RTEMS.Task_Priority;
876	Result : out RTEMS.Status_Codes
877	);
878
879	procedure Task_Mode (
880	Mode_Set : in RTEMS.Mode;
881	Mask : in RTEMS.Mode;
882	Previous_Mode_Set : out RTEMS.Mode;
883	Result : out RTEMS.Status_Codes
884	);
885
886	procedure Task_Get_Note (
887	ID : in RTEMS.ID;
888	Notepad : in RTEMS.Notepad_Index;
889	Note : out RTEMS.Unsigned32;
890	Result : out RTEMS.Status_Codes
891	);
892
893	procedure Task_Set_Note (
894	ID : in RTEMS.ID;
895	Notepad : in RTEMS.Notepad_Index;
896	Note : in RTEMS.Unsigned32;
897	Result : out RTEMS.Status_Codes
898	);
899
900	procedure Task_Wake_When (
901	Time_Buffer : in RTEMS.Time_Of_Day;
902	Result : out RTEMS.Status_Codes
903	);
904
905	procedure Task_Wake_After (
906	Ticks : in RTEMS.Interval;
907	Result : out RTEMS.Status_Codes
908	);
909
910	--
911	-- Interrupt Manager
912	--
913
914	procedure Interrupt_Catch (
915	New_ISR_Handler : in RTEMS.Address;
916	Vector : in RTEMS.Vector_Number;
917	Old_ISR_Handler : out RTEMS.Address;
918	Result : out RTEMS.Status_Codes
919	);
920
921	function Interrupt_Disable return RTEMS.ISR_Level;
922	pragma Interface (C, Interrupt_Disable);
923	pragma Interface_Name (Interrupt_Disable, "rtems_interrupt_disable");
924
925	procedure Interrupt_Enable (
926	Level : in RTEMS.ISR_Level
927	);
928	pragma Interface (C, Interrupt_Enable);
929	pragma Interface_Name (Interrupt_Enable, "rtems_interrupt_enable");
930
931	procedure Interrupt_Flash (
932	Level : in RTEMS.ISR_Level
933	);
934	pragma Interface (C, Interrupt_Flash);
935	pragma Interface_Name (Interrupt_Flash, "rtems_interrupt_flash");
936
937	function Interrupt_Is_In_Progress return RTEMS.Boolean;
938	pragma Interface (C, Interrupt_Is_In_Progress);
939	pragma Interface_Name
940	(Interrupt_Is_In_Progress, "rtems_interrupt_is_in_progress");
941
942	--
943	-- Clock Manager
944	--
945
946	procedure Clock_Get (
947	Option : in RTEMS.Clock_Get_Options;
948	Time_Buffer : in RTEMS.Address;
949	Result : out RTEMS.Status_Codes
950	);
951
952	procedure Clock_Set (
953	Time_Buffer : in RTEMS.Time_Of_Day;
954	Result : out RTEMS.Status_Codes
955	);
956
957	procedure Clock_Tick (
958	Result : out RTEMS.Status_Codes
959	);
960
961	--
962	-- Extension Manager
963	--
964
965	procedure Extension_Create (
966	Name : in RTEMS.Name;
967	Table : in RTEMS.Extensions_Table_Pointer;
968	ID : out RTEMS.ID;
969	Result : out RTEMS.Status_Codes
970	);
971
972	procedure Extension_Ident (
973	Name : in RTEMS.Name;
974	ID : out RTEMS.ID;
975	Result : out RTEMS.Status_Codes
976	);
977
978	procedure Extension_Delete (
979	ID : in RTEMS.ID;
980	Result : out RTEMS.Status_Codes
981	);
982
983
984	--
985	-- Timer Manager
986	--
987
988	procedure Timer_Create (
989	Name : in RTEMS.Name;
990	ID : out RTEMS.ID;
991	Result : out RTEMS.Status_Codes
992	);
993
994	procedure Timer_Ident (
995	Name : in RTEMS.Name;
996	ID : out RTEMS.ID;
997	Result : out RTEMS.Status_Codes
998	);
999
1000	procedure Timer_Delete (
1001	ID : in RTEMS.ID;
1002	Result : out RTEMS.Status_Codes
1003	);
1004
1005	procedure Timer_Fire_After (
1006	ID : in RTEMS.ID;
1007	Ticks : in RTEMS.Interval;
1008	Routine : in RTEMS.Timer_Service_Routine;
1009	User_Data : in RTEMS.Address;
1010	Result : out RTEMS.Status_Codes
1011	);
1012
1013	procedure Timer_Server_Fire_After (
1014	ID : in RTEMS.ID;
1015	Ticks : in RTEMS.Interval;
1016	Routine : in RTEMS.Timer_Service_Routine;
1017	User_Data : in RTEMS.Address;
1018	Result : out RTEMS.Status_Codes
1019	);
1020
1021	procedure Timer_Fire_When (
1022	ID : in RTEMS.ID;
1023	Wall_Time : in RTEMS.Time_Of_Day;
1024	Routine : in RTEMS.Timer_Service_Routine;
1025	User_Data : in RTEMS.Address;
1026	Result : out RTEMS.Status_Codes
1027	);
1028
1029	procedure Timer_Server_Fire_When (
1030	ID : in RTEMS.ID;
1031	Wall_Time : in RTEMS.Time_Of_Day;
1032	Routine : in RTEMS.Timer_Service_Routine;
1033	User_Data : in RTEMS.Address;
1034	Result : out RTEMS.Status_Codes
1035	);
1036
1037	procedure Timer_Reset (
1038	ID : in RTEMS.ID;
1039	Result : out RTEMS.Status_Codes
1040	);
1041
1042	procedure Timer_Cancel (
1043	ID : in RTEMS.ID;
1044	Result : out RTEMS.Status_Codes
1045	);
1046
1047	procedure Timer_Initiate_Server (
1048	Server_Priority : in RTEMS.Task_Priority;
1049	Stack_Size : in Unsigned32;
1050	Attribute_Set : in RTEMS.Attribute;
1051	Result : out RTEMS.Status_Codes
1052	);
1053
1054	--
1055	-- Semaphore Manager
1056	--
1057
1058	procedure Semaphore_Create (
1059	Name : in RTEMS.Name;
1060	Count : in RTEMS.Unsigned32;
1061	Attribute_Set : in RTEMS.Attribute;
1062	Priority_Ceiling : in RTEMS.Task_Priority;
1063	ID : out RTEMS.ID;
1064	Result : out RTEMS.Status_Codes
1065	);
1066
1067	procedure Semaphore_Delete (
1068	ID : in RTEMS.ID;
1069	Result : out RTEMS.Status_Codes
1070	);
1071
1072	procedure Semaphore_Ident (
1073	Name : in RTEMS.Name;
1074	Node : in RTEMS.Unsigned32;
1075	ID : out RTEMS.ID;
1076	Result : out RTEMS.Status_Codes
1077	);
1078
1079	procedure Semaphore_Obtain (
1080	ID : in RTEMS.ID;
1081	Option_Set : in RTEMS.Option;
1082	Timeout : in RTEMS.Interval;
1083	Result : out RTEMS.Status_Codes
1084	);
1085
1086	procedure Semaphore_Release (
1087	ID : in RTEMS.ID;
1088	Result : out RTEMS.Status_Codes
1089	);
1090
1091
1092	--
1093	-- Message Queue Manager
1094	--
1095
1096	procedure Message_Queue_Create (
1097	Name : in RTEMS.Name;
1098	Count : in RTEMS.Unsigned32;
1099	Max_Message_Size : in RTEMS.Unsigned32;
1100	Attribute_Set : in RTEMS.Attribute;
1101	ID : out RTEMS.ID;
1102	Result : out RTEMS.Status_Codes
1103	);
1104
1105	procedure Message_Queue_Ident (
1106	Name : in RTEMS.Name;
1107	Node : in RTEMS.Unsigned32;
1108	ID : out RTEMS.ID;
1109	Result : out RTEMS.Status_Codes
1110	);
1111
1112	procedure Message_Queue_Delete (
1113	ID : in RTEMS.ID;
1114	Result : out RTEMS.Status_Codes
1115	);
1116
1117	procedure Message_Queue_Send (
1118	ID : in RTEMS.ID;
1119	Buffer : in RTEMS.Address;
1120	Size : in RTEMS.Unsigned32;
1121	Result : out RTEMS.Status_Codes
1122	);
1123
1124	procedure Message_Queue_Urgent (
1125	ID : in RTEMS.ID;
1126	Buffer : in RTEMS.Address;
1127	Size : in RTEMS.Unsigned32;
1128	Result : out RTEMS.Status_Codes
1129	);
1130
1131	procedure Message_Queue_Broadcast (
1132	ID : in RTEMS.ID;
1133	Buffer : in RTEMS.Address;
1134	Size : in RTEMS.Unsigned32;
1135	Count : out RTEMS.Unsigned32;
1136	Result : out RTEMS.Status_Codes
1137	);
1138
1139	procedure Message_Queue_Receive (
1140	ID : in RTEMS.ID;
1141	Buffer : in RTEMS.Address;
1142	Option_Set : in RTEMS.Option;
1143	Timeout : in RTEMS.Interval;
1144	Size : out RTEMS.Unsigned32;
1145	Result : out RTEMS.Status_Codes
1146	);
1147
1148	procedure Message_Queue_Flush (
1149	ID : in RTEMS.ID;
1150	Count : out RTEMS.Unsigned32;
1151	Result : out RTEMS.Status_Codes
1152	);
1153
1154
1155	--
1156	-- Event Manager
1157	--
1158
1159	procedure Event_Send (
1160	ID : in RTEMS.ID;
1161	Event_In : in RTEMS.Event_Set;
1162	Result : out RTEMS.Status_Codes
1163	);
1164
1165	procedure Event_Receive (
1166	Event_In : in RTEMS.Event_Set;
1167	Option_Set : in RTEMS.Option;
1168	Ticks : in RTEMS.Interval;
1169	Event_Out : out RTEMS.Event_Set;
1170	Result : out RTEMS.Status_Codes
1171	);
1172
1173	--
1174	-- Signal Manager
1175	--
1176
1177	procedure Signal_Catch (
1178	ASR_Handler : in RTEMS.ASR_Handler;
1179	Mode_Set : in RTEMS.Mode;
1180	Result : out RTEMS.Status_Codes
1181	);
1182
1183	procedure Signal_Send (
1184	ID : in RTEMS.ID;
1185	Signal_Set : in RTEMS.Signal_Set;
1186	Result : out RTEMS.Status_Codes
1187	);
1188
1189
1190	--
1191	-- Partition Manager
1192	--
1193
1194	procedure Partition_Create (
1195	Name : in RTEMS.Name;
1196	Starting_Address : in RTEMS.Address;
1197	Length : in RTEMS.Unsigned32;
1198	Buffer_Size : in RTEMS.Unsigned32;
1199	Attribute_Set : in RTEMS.Attribute;
1200	ID : out RTEMS.ID;
1201	Result : out RTEMS.Status_Codes
1202	);
1203
1204	procedure Partition_Ident (
1205	Name : in RTEMS.Name;
1206	Node : in RTEMS.Unsigned32;
1207	ID : out RTEMS.ID;
1208	Result : out RTEMS.Status_Codes
1209	);
1210
1211	procedure Partition_Delete (
1212	ID : in RTEMS.ID;
1213	Result : out RTEMS.Status_Codes
1214	);
1215
1216	procedure Partition_Get_Buffer (
1217	ID : in RTEMS.ID;
1218	Buffer : out RTEMS.Address;
1219	Result : out RTEMS.Status_Codes
1220	);
1221
1222	procedure Partition_Return_Buffer (
1223	ID : in RTEMS.ID;
1224	Buffer : in RTEMS.Address;
1225	Result : out RTEMS.Status_Codes
1226	);
1227
1228
1229	--
1230	-- Region Manager
1231	--
1232
1233	procedure Region_Create (
1234	Name : in RTEMS.Name;
1235	Starting_Address : in RTEMS.Address;
1236	Length : in RTEMS.Unsigned32;
1237	Page_Size : in RTEMS.Unsigned32;
1238	Attribute_Set : in RTEMS.Attribute;
1239	ID : out RTEMS.ID;
1240	Result : out RTEMS.Status_Codes
1241	);
1242
1243	procedure Region_Ident (
1244	Name : in RTEMS.Name;
1245	ID : out RTEMS.ID;
1246	Result : out RTEMS.Status_Codes
1247	);
1248
1249	procedure Region_Delete (
1250	ID : in RTEMS.ID;
1251	Result : out RTEMS.Status_Codes
1252	);
1253
1254	procedure Region_Extend (
1255	ID : in RTEMS.ID;
1256	Starting_Address : in RTEMS.Address;
1257	Length : in RTEMS.Unsigned32;
1258	Result : out RTEMS.Status_Codes
1259	);
1260
1261	procedure Region_Get_Segment (
1262	ID : in RTEMS.ID;
1263	Size : in RTEMS.Unsigned32;
1264	Option_Set : in RTEMS.Option;
1265	Timeout : in RTEMS.Interval;
1266	Segment : out RTEMS.Address;
1267	Result : out RTEMS.Status_Codes
1268	);
1269
1270	procedure Region_Get_Segment_Size (
1271	ID : in RTEMS.ID;
1272	Segment : in RTEMS.Address;
1273	Size : out RTEMS.Unsigned32;
1274	Result : out RTEMS.Status_Codes
1275	);
1276
1277	procedure Region_Return_Segment (
1278	ID : in RTEMS.ID;
1279	Segment : in RTEMS.Address;
1280	Result : out RTEMS.Status_Codes
1281	);
1282
1283
1284	--
1285	-- Dual Ported Memory Manager
1286	--
1287
1288	procedure Port_Create (
1289	Name : in RTEMS.Name;
1290	Internal_Start : in RTEMS.Address;
1291	External_Start : in RTEMS.Address;
1292	Length : in RTEMS.Unsigned32;
1293	ID : out RTEMS.ID;
1294	Result : out RTEMS.Status_Codes
1295	);
1296
1297	procedure Port_Ident (
1298	Name : in RTEMS.Name;
1299	ID : out RTEMS.ID;
1300	Result : out RTEMS.Status_Codes
1301	);
1302
1303	procedure Port_Delete (
1304	ID : in RTEMS.ID;
1305	Result : out RTEMS.Status_Codes
1306	);
1307
1308	procedure Port_External_To_Internal (
1309	ID : in RTEMS.ID;
1310	External : in RTEMS.Address;
1311	Internal : out RTEMS.Address;
1312	Result : out RTEMS.Status_Codes
1313	);
1314
1315	procedure Port_Internal_To_External (
1316	ID : in RTEMS.ID;
1317	Internal : in RTEMS.Address;
1318	External : out RTEMS.Address;
1319	Result : out RTEMS.Status_Codes
1320	);
1321
1322	--
1323	-- Input/Output Manager
1324	--
1325
1326	procedure IO_Initialize (
1327	Major : in RTEMS.Device_Major_Number;
1328	Minor : in RTEMS.Device_Minor_Number;
1329	Argument : in RTEMS.Address;
1330	Result : out RTEMS.Status_Codes
1331	);
1332
1333	procedure IO_Register_Name (
1334	Name : in String;
1335	Major : in RTEMS.Device_Major_Number;
1336	Minor : in RTEMS.Device_Minor_Number;
1337	Result : out RTEMS.Status_Codes
1338	);
1339
1340	procedure IO_Lookup_Name (
1341	Name : in String;
1342	Device_Info : out RTEMS.Driver_Name_t;
1343	Result : out RTEMS.Status_Codes
1344	);
1345
1346	procedure IO_Open (
1347	Major : in RTEMS.Device_Major_Number;
1348	Minor : in RTEMS.Device_Minor_Number;
1349	Argument : in RTEMS.Address;
1350	Result : out RTEMS.Status_Codes
1351	);
1352
1353	procedure IO_Close (
1354	Major : in RTEMS.Device_Major_Number;
1355	Minor : in RTEMS.Device_Minor_Number;
1356	Argument : in RTEMS.Address;
1357	Result : out RTEMS.Status_Codes
1358	);
1359
1360	procedure IO_Read (
1361	Major : in RTEMS.Device_Major_Number;
1362	Minor : in RTEMS.Device_Minor_Number;
1363	Argument : in RTEMS.Address;
1364	Result : out RTEMS.Status_Codes
1365	);
1366
1367	procedure IO_Write (
1368	Major : in RTEMS.Device_Major_Number;
1369	Minor : in RTEMS.Device_Minor_Number;
1370	Argument : in RTEMS.Address;
1371	Result : out RTEMS.Status_Codes
1372	);
1373
1374	procedure IO_Control (
1375	Major : in RTEMS.Device_Major_Number;
1376	Minor : in RTEMS.Device_Minor_Number;
1377	Argument : in RTEMS.Address;
1378	Result : out RTEMS.Status_Codes
1379	);
1380
1381
1382	--
1383	-- Fatal Error Manager
1384	--
1385
1386	procedure Fatal_Error_Occurred (
1387	The_Error : in RTEMS.Unsigned32
1388	);
1389
1390
1391	--
1392	-- Rate Monotonic Manager
1393	--
1394
1395	procedure Rate_Monotonic_Create (
1396	Name : in RTEMS.Name;
1397	ID : out RTEMS.ID;
1398	Result : out RTEMS.Status_Codes
1399	);
1400
1401	procedure Rate_Monotonic_Ident (
1402	Name : in RTEMS.Name;
1403	ID : out RTEMS.ID;
1404	Result : out RTEMS.Status_Codes
1405	);
1406
1407	procedure Rate_Monotonic_Delete (
1408	ID : in RTEMS.ID;
1409	Result : out RTEMS.Status_Codes
1410	);
1411
1412	procedure Rate_Monotonic_Cancel (
1413	ID : in RTEMS.ID;
1414	Result : out RTEMS.Status_Codes
1415	);
1416
1417	procedure Rate_Monotonic_Period (
1418	ID : in RTEMS.ID;
1419	Length : in RTEMS.Interval;
1420	Result : out RTEMS.Status_Codes
1421	);
1422
1423	procedure Rate_Monotonic_Get_Status (
1424	ID : in RTEMS.ID;
1425	Status : out RTEMS.Rate_Monotonic_Period_Status;
1426	Result : out RTEMS.Status_Codes
1427	);
1428
1429
1430	--
1431	-- Debug Manager
1432	--
1433
1434	Debug_All_Mask : constant RTEMS.Debug_Set := 16#ffffffff#;
1435	Debug_Region : constant RTEMS.Debug_Set := 16#00000001#;
1436
1437	procedure Debug_Enable (
1438	To_Be_Enabled : in RTEMS.Debug_Set
1439	);
1440
1441	procedure Debug_Disable (
1442	To_Be_Disabled : in RTEMS.Debug_Set
1443	);
1444
1445	function Debug_Is_Enabled (
1446	Level : in RTEMS.Debug_Set
1447	) return RTEMS.Boolean;
1448
1449	--
1450	-- Some Useful Data Items
1451	--
1452
1453	Configuration : RTEMS.Configuration_Table_Pointer;
1454	pragma Import (C, Configuration, "_Configuration_Table");
1455
1456	end RTEMS;

Note: See TracBrowser for help on using the repository browser.

Download in other formats: