1 files changed, 13 insertions, 1 deletions
diff --git a/gcc/ada/s-osinte-vxworks.adb b/gcc/ada/s-osinte-vxworks.adb
index c3b2814474a..f06362220e1 100644
--- a/gcc/ada/s-osinte-vxworks.adb
+++ b/gcc/ada/s-osinte-vxworks.adb
@@ -243,10 +243,22 @@ package body System.OS_Interface is
    --------------------------------
 
    function Interrupt_Number_To_Vector
-     (intNum : int) return Interrupt_Vector is
+     (intNum : int) return Interrupt_Vector
+   is
    begin
       return Interrupt_Vector
         (System.VxWorks.Ext.Interrupt_Number_To_Vector (intNum));
    end Interrupt_Number_To_Vector;
 
+   -----------------
+   -- Current_CPU --
+   -----------------
+
+   function Current_CPU return Multiprocessors.CPU is
+   begin
+      --  ??? Should use vxworks multiprocessor interface
+
+      return Multiprocessors.CPU'First;
+   end Current_CPU;
+
 end System.OS_Interface;