diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-15 12:45:27 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-15 12:45:27 +0000 |
commit | 5d2ef540bff75ccff14d50b2958e107464931d12 (patch) | |
tree | beda84bc2b3b82ca573f3ede2119cb40501101ee /gcc/ada/s-vxwext-rtp.adb | |
parent | 53e876ae3c965af2dee43bf0ff7904c8dedcb41b (diff) | |
download | gcc-5d2ef540bff75ccff14d50b2958e107464931d12.tar.gz |
Reorganize code.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146109 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-vxwext-rtp.adb')
-rw-r--r-- | gcc/ada/s-vxwext-rtp.adb | 53 |
1 files changed, 35 insertions, 18 deletions
diff --git a/gcc/ada/s-vxwext-rtp.adb b/gcc/ada/s-vxwext-rtp.adb index 74ff505f096..809ee91f006 100644 --- a/gcc/ada/s-vxwext-rtp.adb +++ b/gcc/ada/s-vxwext-rtp.adb @@ -26,40 +26,57 @@ -- -- ------------------------------------------------------------------------------ --- This is the VxWorks 6 rtp version of this package +-- This package provides vxworks specific support functions needed +-- by System.OS_Interface. + +-- This is the VxWorks 6 RTP version of this package package body System.VxWorks.Ext is - function Task_Cont (tid : t_id) return int is - pragma Unreferenced (tid); - begin - -- Operation not allowed in an RTP - return 0; - end Task_Cont; + ERROR : constant := -1; - function Task_Stop (tid : t_id) return int is - pragma Unreferenced (tid); - begin - -- Operation not allowed in an RTP - return 0; - end Task_Stop; + -------------- + -- Int_Lock -- + -------------- function Int_Lock return int is begin - -- Operation not allowed in an RTP - return 0; + return ERROR; end Int_Lock; + ---------------- + -- Int_Unlock -- + ---------------- + function Int_Unlock return int is begin - -- Operation not allowed in an RTP - return 0; + return ERROR; end Int_Unlock; + -------------------- + -- Set_Time_Slice -- + -------------------- + function Set_Time_Slice (ticks : int) return int is pragma Unreferenced (ticks); begin - return 0; + return ERROR; end Set_Time_Slice; + function Interrupt_Connect + (Vector : Interrupt_Vector; + Handler : Interrupt_Handler; + Parameter : System.Address := System.Null_Address) return int is + pragma Unreferenced (Vector, Handler, Parameter); + begin + return ERROR; + end Interrupt_Connect; + + function Interrupt_Number_To_Vector + (intNum : int) return Interrupt_Vector is + pragma Unreferenced (intNum); + begin + return 0; + end Interrupt_Number_To_Vector; + end System.VxWorks.Ext; |