summaryrefslogtreecommitdiff
path: root/gcc/ada/s-vxwext-rtp.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-04-15 12:45:27 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-04-15 12:45:27 +0000
commit5d2ef540bff75ccff14d50b2958e107464931d12 (patch)
treebeda84bc2b3b82ca573f3ede2119cb40501101ee /gcc/ada/s-vxwext-rtp.adb
parent53e876ae3c965af2dee43bf0ff7904c8dedcb41b (diff)
downloadgcc-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.adb53
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;