-- If we are in the kernel space, lock interrupts. It typically maps to
-- intLock.
- function Int_Unlock (Old : int) return int
- renames System.VxWorks.Ext.Int_Unlock;
+ procedure Int_Unlock (Old : int) renames System.VxWorks.Ext.Int_Unlock;
-- If we are in the kernel space, unlock interrupts. It typically maps to
-- intUnlock. The parameter Old is only used on PowerPC where it contains
-- the returned value from Int_Lock (the old MPSR).
C := C.Common.All_Tasks_Link;
end loop;
- Dummy := Int_Unlock (Old);
+ Int_Unlock (Old);
end Stop_All_Tasks;
---------------
function Int_Lock return int;
pragma Import (C, Int_Lock, "intLock");
- function Int_Unlock (Old : int) return int;
+ procedure Int_Unlock (Old : int);
pragma Import (C, Int_Unlock, "intUnlock");
function Interrupt_Connect
-- Int_Unlock --
----------------
- function Int_Unlock (Old : int) return int is
+ procedure Int_Unlock (Old : int) is
pragma Unreferenced (Old);
begin
- return ERROR;
+ null;
end Int_Unlock;
---------------
-- Int_Unlock --
----------------
- function intUnlock (Old : int) return int;
+ procedure intUnlock (Old : int);
pragma Import (C, intUnlock, "intUnlock");
- function Int_Unlock (Old : int) return int renames intUnlock;
+ procedure Int_Unlock (Old : int) renames intUnlock;
---------------
-- semDelete --
function Int_Lock return int;
pragma Convention (C, Int_Lock);
- function Int_Unlock (Old : int) return int;
+ procedure Int_Unlock (Old : int);
pragma Convention (C, Int_Unlock);
function Interrupt_Connect
-- Int_Unlock --
----------------
- function Int_Unlock (Old : int) return int is
+ procedure Int_Unlock (Old : int) is
pragma Unreferenced (Old);
begin
- return ERROR;
+ null;
end Int_Unlock;
-----------------------
-- Int_Unlock --
----------------
- function Int_Unlock (Old : int) return int is
+ procedure Int_Unlock (Old : int) is
pragma Unreferenced (Old);
begin
- return ERROR;
+ null;
end Int_Unlock;
-----------------------
function Int_Lock return int;
pragma Inline (Int_Lock);
- function Int_Unlock (Old : int) return int;
+ procedure Int_Unlock (Old : int);
pragma Inline (Int_Unlock);
function Interrupt_Connect