diff options
Diffstat (limited to 'gcc/ada/libgnarl/s-osinte__vxworks.adb')
-rw-r--r-- | gcc/ada/libgnarl/s-osinte__vxworks.adb | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/gcc/ada/libgnarl/s-osinte__vxworks.adb b/gcc/ada/libgnarl/s-osinte__vxworks.adb index 677cd60..fbc8367 100644 --- a/gcc/ada/libgnarl/s-osinte__vxworks.adb +++ b/gcc/ada/libgnarl/s-osinte__vxworks.adb @@ -100,10 +100,11 @@ package body System.OS_Interface is Ticks : Long_Long_Integer; Rate_Duration : Duration; Ticks_Duration : Duration; + IERR : constant int := -1; begin if D < 0.0 then - return ERROR; + return IERR; end if; -- Ensure that the duration can be converted to ticks @@ -142,7 +143,8 @@ package body System.OS_Interface is -- Binary_Semaphore_Delete -- ----------------------------- - function Binary_Semaphore_Delete (ID : Binary_Semaphore_Id) return int is + function Binary_Semaphore_Delete (ID : Binary_Semaphore_Id) + return STATUS is begin return semDelete (SEM_ID (ID)); end Binary_Semaphore_Delete; @@ -151,7 +153,8 @@ package body System.OS_Interface is -- Binary_Semaphore_Obtain -- ----------------------------- - function Binary_Semaphore_Obtain (ID : Binary_Semaphore_Id) return int is + function Binary_Semaphore_Obtain (ID : Binary_Semaphore_Id) + return STATUS is begin return semTake (SEM_ID (ID), WAIT_FOREVER); end Binary_Semaphore_Obtain; @@ -160,7 +163,8 @@ package body System.OS_Interface is -- Binary_Semaphore_Release -- ------------------------------ - function Binary_Semaphore_Release (ID : Binary_Semaphore_Id) return int is + function Binary_Semaphore_Release (ID : Binary_Semaphore_Id) + return STATUS is begin return semGive (SEM_ID (ID)); end Binary_Semaphore_Release; @@ -169,7 +173,7 @@ package body System.OS_Interface is -- Binary_Semaphore_Flush -- ---------------------------- - function Binary_Semaphore_Flush (ID : Binary_Semaphore_Id) return int is + function Binary_Semaphore_Flush (ID : Binary_Semaphore_Id) return STATUS is begin return semFlush (SEM_ID (ID)); end Binary_Semaphore_Flush; @@ -190,7 +194,7 @@ package body System.OS_Interface is function Interrupt_Connect (Vector : Interrupt_Vector; Handler : Interrupt_Handler; - Parameter : System.Address := System.Null_Address) return int is + Parameter : System.Address := System.Null_Address) return STATUS is begin return System.VxWorks.Ext.Interrupt_Connect |