diff options
Diffstat (limited to 'gcc/ada/libgnarl/s-vxwext__kernel.adb')
| -rw-r--r-- | gcc/ada/libgnarl/s-vxwext__kernel.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/libgnarl/s-vxwext__kernel.adb b/gcc/ada/libgnarl/s-vxwext__kernel.adb index 7d3cc8d..b3b7f54 100644 --- a/gcc/ada/libgnarl/s-vxwext__kernel.adb +++ b/gcc/ada/libgnarl/s-vxwext__kernel.adb @@ -34,7 +34,7 @@ package body System.VxWorks.Ext is - ERROR : constant := -1; + IERR : constant := -1; -------------- -- Int_Lock -- @@ -58,7 +58,7 @@ package body System.VxWorks.Ext is -- semDelete -- --------------- - function semDelete (Sem : SEM_ID) return int is + function semDelete (Sem : SEM_ID) return STATUS is function Os_Sem_Delete (Sem : SEM_ID) return int; pragma Import (C, Os_Sem_Delete, "semDelete"); begin @@ -72,7 +72,7 @@ package body System.VxWorks.Ext is function taskCpuAffinitySet (tid : t_id; CPU : int) return int is pragma Unreferenced (tid, CPU); begin - return ERROR; + return IERR; end taskCpuAffinitySet; ------------------------- @@ -82,15 +82,15 @@ package body System.VxWorks.Ext is function taskMaskAffinitySet (tid : t_id; CPU_Set : unsigned) return int is pragma Unreferenced (tid, CPU_Set); begin - return ERROR; + return IERR; end taskMaskAffinitySet; --------------- -- Task_Cont -- --------------- - function Task_Cont (tid : t_id) return int is - function taskCont (tid : t_id) return int; + function Task_Cont (tid : t_id) return STATUS is + function taskCont (tid : t_id) return STATUS; pragma Import (C, taskCont, "taskCont"); begin return taskCont (tid); @@ -100,8 +100,8 @@ package body System.VxWorks.Ext is -- Task_Stop -- --------------- - function Task_Stop (tid : t_id) return int is - function taskStop (tid : t_id) return int; + function Task_Stop (tid : t_id) return STATUS is + function taskStop (tid : t_id) return STATUS; pragma Import (C, taskStop, "taskStop"); begin return taskStop (tid); |