URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [ada/] [s-taprop-dummy.adb] - Blame information for rev 311

Go to most recent revision | Details | Compare with Previous | View Log


------------------------------------------------------------------------------
--                                                                          --
--                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
--                                                                          --
--     S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S    --
--                                                                          --
--                                  B o d y                                 --
--                                                                          --
--         Copyright (C) 1992-2009, Free Software Foundation, Inc.          --
--                                                                          --
-- GNARL is free software; you can  redistribute it  and/or modify it under --
-- terms of the  GNU General Public License as published  by the Free Soft- --
-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
--                                                                          --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception,   --
-- version 3.1, as published by the Free Software Foundation.               --
--                                                                          --
-- You should have received a copy of the GNU General Public License and    --
-- a copy of the GCC Runtime Library Exception along with this program;     --
-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
-- <http://www.gnu.org/licenses/>.                                          --
--                                                                          --
-- GNARL was developed by the GNARL team at Florida State University.       --
-- Extensive contributions were provided by Ada Core Technologies, Inc.     --
--                                                                          --
------------------------------------------------------------------------------
 
--  This is a no tasking version of this package
 
--  This package contains all the GNULL primitives that interface directly with
--  the underlying OS.
 
pragma Polling (Off);
--  Turn off polling, we do not want ATC polling to take place during tasking
--  operations. It causes infinite loops and other problems.
 
package body System.Task_Primitives.Operations is
 
   use System.Tasking;
   use System.Parameters;
 
   pragma Warnings (Off);
   --  Turn off warnings since so many unreferenced parameters
 
   ----------------
   -- Abort_Task --
   ----------------
 
   procedure Abort_Task (T : Task_Id) is
   begin
      null;
   end Abort_Task;
 
   ----------------
   -- Check_Exit --
   ----------------
 
   function Check_Exit (Self_ID : ST.Task_Id) return Boolean is
   begin
      return True;
   end Check_Exit;
 
   --------------------
   -- Check_No_Locks --
   --------------------
 
   function Check_No_Locks (Self_ID : ST.Task_Id) return Boolean is
   begin
      return True;
   end Check_No_Locks;
 
   -------------------
   -- Continue_Task --
   -------------------
 
   function Continue_Task (T : ST.Task_Id) return Boolean is
   begin
      return False;
   end Continue_Task;
 
   -------------------
   -- Current_State --
   -------------------
 
   function Current_State (S : Suspension_Object) return Boolean is
   begin
      return False;
   end Current_State;
 
   ----------------------
   -- Environment_Task --
   ----------------------
 
   function Environment_Task return Task_Id is
   begin
      return null;
   end Environment_Task;
 
   -----------------
   -- Create_Task --
   -----------------
 
   procedure Create_Task
     (T          : Task_Id;
      Wrapper    : System.Address;
      Stack_Size : System.Parameters.Size_Type;
      Priority   : System.Any_Priority;
      Succeeded  : out Boolean)
   is
   begin
      Succeeded := False;
   end Create_Task;
 
   ----------------
   -- Enter_Task --
   ----------------
 
   procedure Enter_Task (Self_ID : Task_Id) is
   begin
      null;
   end Enter_Task;
 
   ---------------
   -- Exit_Task --
   ---------------
 
   procedure Exit_Task is
   begin
      null;
   end Exit_Task;
 
   --------------
   -- Finalize --
   --------------
 
   procedure Finalize (S : in out Suspension_Object) is
   begin
      null;
   end Finalize;
 
   -------------------
   -- Finalize_Lock --
   -------------------
 
   procedure Finalize_Lock (L : not null access Lock) is
   begin
      null;
   end Finalize_Lock;
 
   procedure Finalize_Lock (L : not null access RTS_Lock) is
   begin
      null;
   end Finalize_Lock;
 
   ------------------
   -- Finalize_TCB --
   ------------------
 
   procedure Finalize_TCB (T : Task_Id) is
   begin
      null;
   end Finalize_TCB;
 
   ------------------
   -- Get_Priority --
   ------------------
 
   function Get_Priority (T : Task_Id) return System.Any_Priority is
   begin
      return 0;
   end Get_Priority;
 
   --------------------
   -- Get_Thread_Id  --
   --------------------
 
   function Get_Thread_Id (T : ST.Task_Id) return OSI.Thread_Id is
   begin
      return OSI.Thread_Id (T.Common.LL.Thread);
   end Get_Thread_Id;
 
   ----------------
   -- Initialize --
   ----------------
 
   procedure Initialize (Environment_Task : Task_Id) is
      No_Tasking : Boolean;
   begin
      raise Program_Error with "tasking not implemented on this configuration";
   end Initialize;
 
   procedure Initialize (S : in out Suspension_Object) is
   begin
      null;
   end Initialize;
 
   ---------------------
   -- Initialize_Lock --
   ---------------------
 
   procedure Initialize_Lock
     (Prio : System.Any_Priority;
      L    : not null access Lock)
   is
   begin
      null;
   end Initialize_Lock;
 
   procedure Initialize_Lock
     (L : not null access RTS_Lock; Level : Lock_Level) is
   begin
      null;
   end Initialize_Lock;
 
   --------------------
   -- Initialize_TCB --
   --------------------
 
   procedure Initialize_TCB (Self_ID : Task_Id; Succeeded : out Boolean) is
   begin
      Succeeded := False;
   end Initialize_TCB;
 
   -------------------
   -- Is_Valid_Task --
   -------------------
 
   function Is_Valid_Task return Boolean is
   begin
      return False;
   end Is_Valid_Task;
 
   --------------
   -- Lock_RTS --
   --------------
 
   procedure Lock_RTS is
   begin
      null;
   end Lock_RTS;
 
   ---------------------
   -- Monotonic_Clock --
   ---------------------
 
   function Monotonic_Clock return Duration is
   begin
      return 0.0;
   end Monotonic_Clock;
 
   --------------
   -- New_ATCB --
   --------------
 
   function New_ATCB (Entry_Num : Task_Entry_Index) return Task_Id is
   begin
      return new Ada_Task_Control_Block (Entry_Num);
   end New_ATCB;
 
   ---------------
   -- Read_Lock --
   ---------------
 
   procedure Read_Lock
     (L                 : not null access Lock;
      Ceiling_Violation : out Boolean)
   is
   begin
      Ceiling_Violation := False;
   end Read_Lock;
 
   -----------------------------
   -- Register_Foreign_Thread --
   -----------------------------
 
   function Register_Foreign_Thread return Task_Id is
   begin
      return null;
   end Register_Foreign_Thread;
 
   -----------------
   -- Resume_Task --
   -----------------
 
   function Resume_Task
     (T           : ST.Task_Id;
      Thread_Self : OSI.Thread_Id) return Boolean
   is
   begin
      return False;
   end Resume_Task;
 
   -------------------
   -- RT_Resolution --
   -------------------
 
   function RT_Resolution return Duration is
   begin
      return 10#1.0#E-6;
   end RT_Resolution;
 
   ----------
   -- Self --
   ----------
 
   function Self return Task_Id is
   begin
      return Null_Task;
   end Self;
 
   -----------------
   -- Set_Ceiling --
   -----------------
 
   procedure Set_Ceiling
     (L    : not null access Lock;
      Prio : System.Any_Priority)
   is
   begin
      null;
   end Set_Ceiling;
 
   ---------------
   -- Set_False --
   ---------------
 
   procedure Set_False (S : in out Suspension_Object) is
   begin
      null;
   end Set_False;
 
   ------------------
   -- Set_Priority --
   ------------------
 
   procedure Set_Priority
     (T                   : Task_Id;
      Prio                : System.Any_Priority;
      Loss_Of_Inheritance : Boolean := False)
   is
   begin
      null;
   end Set_Priority;
 
   --------------
   -- Set_True --
   --------------
 
   procedure Set_True (S : in out Suspension_Object) is
   begin
      null;
   end Set_True;
 
   -----------
   -- Sleep --
   -----------
 
   procedure Sleep (Self_ID : Task_Id; Reason : System.Tasking.Task_States) is
   begin
      null;
   end Sleep;
 
   -----------------
   -- Stack_Guard --
   -----------------
 
   procedure Stack_Guard (T : ST.Task_Id; On : Boolean) is
   begin
      null;
   end Stack_Guard;
 
   ------------------
   -- Suspend_Task --
   ------------------
 
   function Suspend_Task
     (T           : ST.Task_Id;
      Thread_Self : OSI.Thread_Id) return Boolean
   is
   begin
      return False;
   end Suspend_Task;
 
   --------------------
   -- Stop_All_Tasks --
   --------------------
 
   procedure Stop_All_Tasks is
   begin
      null;
   end Stop_All_Tasks;
 
   ---------------
   -- Stop_Task --
   ---------------
 
   function Stop_Task (T : ST.Task_Id) return Boolean is
      pragma Unreferenced (T);
   begin
      return False;
   end Stop_Task;
 
   ------------------------
   -- Suspend_Until_True --
   ------------------------
 
   procedure Suspend_Until_True (S : in out Suspension_Object) is
   begin
      null;
   end Suspend_Until_True;
 
   -----------------
   -- Timed_Delay --
   -----------------
 
   procedure Timed_Delay
     (Self_ID : Task_Id;
      Time    : Duration;
      Mode    : ST.Delay_Modes)
   is
   begin
      null;
   end Timed_Delay;
 
   -----------------
   -- Timed_Sleep --
   -----------------
 
   procedure Timed_Sleep
     (Self_ID  : Task_Id;
      Time     : Duration;
      Mode     : ST.Delay_Modes;
      Reason   : System.Tasking.Task_States;
      Timedout : out Boolean;
      Yielded  : out Boolean)
   is
   begin
      Timedout := False;
      Yielded := False;
   end Timed_Sleep;
 
   ------------
   -- Unlock --
   ------------
 
   procedure Unlock (L : not null access Lock) is
   begin
      null;
   end Unlock;
 
   procedure Unlock
     (L           : not null access RTS_Lock;
      Global_Lock : Boolean := False)
   is
   begin
      null;
   end Unlock;
 
   procedure Unlock (T : Task_Id) is
   begin
      null;
   end Unlock;
 
   ----------------
   -- Unlock_RTS --
   ----------------
 
   procedure Unlock_RTS is
   begin
      null;
   end Unlock_RTS;
   ------------
   -- Wakeup --
   ------------
 
   procedure Wakeup (T : Task_Id; Reason : System.Tasking.Task_States) is
   begin
      null;
   end Wakeup;
 
   ----------------
   -- Write_Lock --
   ----------------
 
   procedure Write_Lock
     (L                 : not null access Lock;
      Ceiling_Violation : out Boolean)
   is
   begin
      Ceiling_Violation := False;
   end Write_Lock;
 
   procedure Write_Lock
     (L           : not null access RTS_Lock;
      Global_Lock : Boolean := False)
   is
   begin
      null;
   end Write_Lock;
 
   procedure Write_Lock (T : Task_Id) is
   begin
      null;
   end Write_Lock;
 
   -----------
   -- Yield --
   -----------
 
   procedure Yield (Do_Yield : Boolean := True) is
   begin
      null;
   end Yield;
 
end System.Task_Primitives.Operations;

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [ada/] [s-taprop-dummy.adb] - Blame information for rev 311

Line No.	Rev	Author	Line
1	281	jeremybenn	`------------------------------------------------------------------------------`
2			`-- --`
3			`-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --`
4			`-- --`
5			`-- S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S --`
6			`-- --`
7			`-- B o d y --`
8			`-- --`
9			`-- Copyright (C) 1992-2009, 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			`-- GNARL was developed by the GNARL team at Florida State University. --`
28			`-- Extensive contributions were provided by Ada Core Technologies, Inc. --`
29			`-- --`
30			`------------------------------------------------------------------------------`
31
32			`-- This is a no tasking version of this package`
33
34			`-- This package contains all the GNULL primitives that interface directly with`
35			`-- the underlying OS.`
36
37			`pragma Polling (Off);`
38			`-- Turn off polling, we do not want ATC polling to take place during tasking`
39			`-- operations. It causes infinite loops and other problems.`
40
41			`package body System.Task_Primitives.Operations is`
42
43			`use System.Tasking;`
44			`use System.Parameters;`
45
46			`pragma Warnings (Off);`
47			`-- Turn off warnings since so many unreferenced parameters`
48
49			`----------------`
50			`-- Abort_Task --`
51			`----------------`
52
53			`procedure Abort_Task (T : Task_Id) is`
54			`begin`
55			`null;`
56			`end Abort_Task;`
57
58			`----------------`
59			`-- Check_Exit --`
60			`----------------`
61
62			`function Check_Exit (Self_ID : ST.Task_Id) return Boolean is`
63			`begin`
64			`return True;`
65			`end Check_Exit;`
66
67			`--------------------`
68			`-- Check_No_Locks --`
69			`--------------------`
70
71			`function Check_No_Locks (Self_ID : ST.Task_Id) return Boolean is`
72			`begin`
73			`return True;`
74			`end Check_No_Locks;`
75
76			`-------------------`
77			`-- Continue_Task --`
78			`-------------------`
79
80			`function Continue_Task (T : ST.Task_Id) return Boolean is`
81			`begin`
82			`return False;`
83			`end Continue_Task;`
84
85			`-------------------`
86			`-- Current_State --`
87			`-------------------`
88
89			`function Current_State (S : Suspension_Object) return Boolean is`
90			`begin`
91			`return False;`
92			`end Current_State;`
93
94			`----------------------`
95			`-- Environment_Task --`
96			`----------------------`
97
98			`function Environment_Task return Task_Id is`
99			`begin`
100			`return null;`
101			`end Environment_Task;`
102
103			`-----------------`
104			`-- Create_Task --`
105			`-----------------`
106
107			`procedure Create_Task`
108			`(T : Task_Id;`
109			`Wrapper : System.Address;`
110			`Stack_Size : System.Parameters.Size_Type;`
111			`Priority : System.Any_Priority;`
112			`Succeeded : out Boolean)`
113			`is`
114			`begin`
115			`Succeeded := False;`
116			`end Create_Task;`
117
118			`----------------`
119			`-- Enter_Task --`
120			`----------------`
121
122			`procedure Enter_Task (Self_ID : Task_Id) is`
123			`begin`
124			`null;`
125			`end Enter_Task;`
126
127			`---------------`
128			`-- Exit_Task --`
129			`---------------`
130
131			`procedure Exit_Task is`
132			`begin`
133			`null;`
134			`end Exit_Task;`
135
136			`--------------`
137			`-- Finalize --`
138			`--------------`
139
140			`procedure Finalize (S : in out Suspension_Object) is`
141			`begin`
142			`null;`
143			`end Finalize;`
144
145			`-------------------`
146			`-- Finalize_Lock --`
147			`-------------------`
148
149			`procedure Finalize_Lock (L : not null access Lock) is`
150			`begin`
151			`null;`
152			`end Finalize_Lock;`
153
154			`procedure Finalize_Lock (L : not null access RTS_Lock) is`
155			`begin`
156			`null;`
157			`end Finalize_Lock;`
158
159			`------------------`
160			`-- Finalize_TCB --`
161			`------------------`
162
163			`procedure Finalize_TCB (T : Task_Id) is`
164			`begin`
165			`null;`
166			`end Finalize_TCB;`
167
168			`------------------`
169			`-- Get_Priority --`
170			`------------------`
171
172			`function Get_Priority (T : Task_Id) return System.Any_Priority is`
173			`begin`
174			`return 0;`
175			`end Get_Priority;`
176
177			`--------------------`
178			`-- Get_Thread_Id --`
179			`--------------------`
180
181			`function Get_Thread_Id (T : ST.Task_Id) return OSI.Thread_Id is`
182			`begin`
183			`return OSI.Thread_Id (T.Common.LL.Thread);`
184			`end Get_Thread_Id;`
185
186			`----------------`
187			`-- Initialize --`
188			`----------------`
189
190			`procedure Initialize (Environment_Task : Task_Id) is`
191			`No_Tasking : Boolean;`
192			`begin`
193			`raise Program_Error with "tasking not implemented on this configuration";`
194			`end Initialize;`
195
196			`procedure Initialize (S : in out Suspension_Object) is`
197			`begin`
198			`null;`
199			`end Initialize;`
200
201			`---------------------`
202			`-- Initialize_Lock --`
203			`---------------------`
204
205			`procedure Initialize_Lock`
206			`(Prio : System.Any_Priority;`
207			`L : not null access Lock)`
208			`is`
209			`begin`
210			`null;`
211			`end Initialize_Lock;`
212
213			`procedure Initialize_Lock`
214			`(L : not null access RTS_Lock; Level : Lock_Level) is`
215			`begin`
216			`null;`
217			`end Initialize_Lock;`
218
219			`--------------------`
220			`-- Initialize_TCB --`
221			`--------------------`
222
223			`procedure Initialize_TCB (Self_ID : Task_Id; Succeeded : out Boolean) is`
224			`begin`
225			`Succeeded := False;`
226			`end Initialize_TCB;`
227
228			`-------------------`
229			`-- Is_Valid_Task --`
230			`-------------------`
231
232			`function Is_Valid_Task return Boolean is`
233			`begin`
234			`return False;`
235			`end Is_Valid_Task;`
236
237			`--------------`
238			`-- Lock_RTS --`
239			`--------------`
240
241			`procedure Lock_RTS is`
242			`begin`
243			`null;`
244			`end Lock_RTS;`
245
246			`---------------------`
247			`-- Monotonic_Clock --`
248			`---------------------`
249
250			`function Monotonic_Clock return Duration is`
251			`begin`
252			`return 0.0;`
253			`end Monotonic_Clock;`
254
255			`--------------`
256			`-- New_ATCB --`
257			`--------------`
258
259			`function New_ATCB (Entry_Num : Task_Entry_Index) return Task_Id is`
260			`begin`
261			`return new Ada_Task_Control_Block (Entry_Num);`
262			`end New_ATCB;`
263
264			`---------------`
265			`-- Read_Lock --`
266			`---------------`
267
268			`procedure Read_Lock`
269			`(L : not null access Lock;`
270			`Ceiling_Violation : out Boolean)`
271			`is`
272			`begin`
273			`Ceiling_Violation := False;`
274			`end Read_Lock;`
275
276			`-----------------------------`
277			`-- Register_Foreign_Thread --`
278			`-----------------------------`
279
280			`function Register_Foreign_Thread return Task_Id is`
281			`begin`
282			`return null;`
283			`end Register_Foreign_Thread;`
284
285			`-----------------`
286			`-- Resume_Task --`
287			`-----------------`
288
289			`function Resume_Task`
290			`(T : ST.Task_Id;`
291			`Thread_Self : OSI.Thread_Id) return Boolean`
292			`is`
293			`begin`
294			`return False;`
295			`end Resume_Task;`
296
297			`-------------------`
298			`-- RT_Resolution --`
299			`-------------------`
300
301			`function RT_Resolution return Duration is`
302			`begin`
303			`return 10#1.0#E-6;`
304			`end RT_Resolution;`
305
306			`----------`
307			`-- Self --`
308			`----------`
309
310			`function Self return Task_Id is`
311			`begin`
312			`return Null_Task;`
313			`end Self;`
314
315			`-----------------`
316			`-- Set_Ceiling --`
317			`-----------------`
318
319			`procedure Set_Ceiling`
320			`(L : not null access Lock;`
321			`Prio : System.Any_Priority)`
322			`is`
323			`begin`
324			`null;`
325			`end Set_Ceiling;`
326
327			`---------------`
328			`-- Set_False --`
329			`---------------`
330
331			`procedure Set_False (S : in out Suspension_Object) is`
332			`begin`
333			`null;`
334			`end Set_False;`
335
336			`------------------`
337			`-- Set_Priority --`
338			`------------------`
339
340			`procedure Set_Priority`
341			`(T : Task_Id;`
342			`Prio : System.Any_Priority;`
343			`Loss_Of_Inheritance : Boolean := False)`
344			`is`
345			`begin`
346			`null;`
347			`end Set_Priority;`
348
349			`--------------`
350			`-- Set_True --`
351			`--------------`
352
353			`procedure Set_True (S : in out Suspension_Object) is`
354			`begin`
355			`null;`
356			`end Set_True;`
357
358			`-----------`
359			`-- Sleep --`
360			`-----------`
361
362			`procedure Sleep (Self_ID : Task_Id; Reason : System.Tasking.Task_States) is`
363			`begin`
364			`null;`
365			`end Sleep;`
366
367			`-----------------`
368			`-- Stack_Guard --`
369			`-----------------`
370
371			`procedure Stack_Guard (T : ST.Task_Id; On : Boolean) is`
372			`begin`
373			`null;`
374			`end Stack_Guard;`
375
376			`------------------`
377			`-- Suspend_Task --`
378			`------------------`
379
380			`function Suspend_Task`
381			`(T : ST.Task_Id;`
382			`Thread_Self : OSI.Thread_Id) return Boolean`
383			`is`
384			`begin`
385			`return False;`
386			`end Suspend_Task;`
387
388			`--------------------`
389			`-- Stop_All_Tasks --`
390			`--------------------`
391
392			`procedure Stop_All_Tasks is`
393			`begin`
394			`null;`
395			`end Stop_All_Tasks;`
396
397			`---------------`
398			`-- Stop_Task --`
399			`---------------`
400
401			`function Stop_Task (T : ST.Task_Id) return Boolean is`
402			`pragma Unreferenced (T);`
403			`begin`
404			`return False;`
405			`end Stop_Task;`
406
407			`------------------------`
408			`-- Suspend_Until_True --`
409			`------------------------`
410
411			`procedure Suspend_Until_True (S : in out Suspension_Object) is`
412			`begin`
413			`null;`
414			`end Suspend_Until_True;`
415
416			`-----------------`
417			`-- Timed_Delay --`
418			`-----------------`
419
420			`procedure Timed_Delay`
421			`(Self_ID : Task_Id;`
422			`Time : Duration;`
423			`Mode : ST.Delay_Modes)`
424			`is`
425			`begin`
426			`null;`
427			`end Timed_Delay;`
428
429			`-----------------`
430			`-- Timed_Sleep --`
431			`-----------------`
432
433			`procedure Timed_Sleep`
434			`(Self_ID : Task_Id;`
435			`Time : Duration;`
436			`Mode : ST.Delay_Modes;`
437			`Reason : System.Tasking.Task_States;`
438			`Timedout : out Boolean;`
439			`Yielded : out Boolean)`
440			`is`
441			`begin`
442			`Timedout := False;`
443			`Yielded := False;`
444			`end Timed_Sleep;`
445
446			`------------`
447			`-- Unlock --`
448			`------------`
449
450			`procedure Unlock (L : not null access Lock) is`
451			`begin`
452			`null;`
453			`end Unlock;`
454
455			`procedure Unlock`
456			`(L : not null access RTS_Lock;`
457			`Global_Lock : Boolean := False)`
458			`is`
459			`begin`
460			`null;`
461			`end Unlock;`
462
463			`procedure Unlock (T : Task_Id) is`
464			`begin`
465			`null;`
466			`end Unlock;`
467
468			`----------------`
469			`-- Unlock_RTS --`
470			`----------------`
471
472			`procedure Unlock_RTS is`
473			`begin`
474			`null;`
475			`end Unlock_RTS;`
476			`------------`
477			`-- Wakeup --`
478			`------------`
479
480			`procedure Wakeup (T : Task_Id; Reason : System.Tasking.Task_States) is`
481			`begin`
482			`null;`
483			`end Wakeup;`
484
485			`----------------`
486			`-- Write_Lock --`
487			`----------------`
488
489			`procedure Write_Lock`
490			`(L : not null access Lock;`
491			`Ceiling_Violation : out Boolean)`
492			`is`
493			`begin`
494			`Ceiling_Violation := False;`
495			`end Write_Lock;`
496
497			`procedure Write_Lock`
498			`(L : not null access RTS_Lock;`
499			`Global_Lock : Boolean := False)`
500			`is`
501			`begin`
502			`null;`
503			`end Write_Lock;`
504
505			`procedure Write_Lock (T : Task_Id) is`
506			`begin`
507			`null;`
508			`end Write_Lock;`
509
510			`-----------`
511			`-- Yield --`
512			`-----------`
513
514			`procedure Yield (Do_Yield : Boolean := True) is`
515			`begin`
516			`null;`
517			`end Yield;`
518
519			`end System.Task_Primitives.Operations;`