More improvements to sparc VIS vec_init code generation.

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-vxwext-kernel.adb

diff --git a/gcc/ada/s-vxwext-kernel.adb b/gcc/ada/s-vxwext-kernel.adb
index a8455bb..cd2ac26 100644 (file)
--- a/gcc/ada/s-vxwext-kernel.adb
+++ b/gcc/ada/s-vxwext-kernel.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                   B o d y                                --
 --                                                                          --
---            Copyright (C) 2008-2009, Free Software Foundation, Inc.       --
+--            Copyright (C) 2008-2011, Free Software Foundation, Inc.       --
 --                                                                          --
 -- GNARL is free software;  you can redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -75,4 +75,25 @@ package body System.VxWorks.Ext is
       return ERROR;
    end taskCpuAffinitySet;
 
+   -------------------------
+   -- taskMaskAffinitySet --
+   -------------------------
+
+   function taskMaskAffinitySet (tid : t_id; CPU_Set : unsigned) return int is
+      pragma Unreferenced (tid, CPU_Set);
+   begin
+      return ERROR;
+   end taskMaskAffinitySet;
+
+   --------------
+   -- taskStop --
+   --------------
+
+   function Task_Stop (tid : t_id) return int is
+      function taskStop (tid : t_id) return int;
+      pragma Import (C, taskStop, "taskStop");
+   begin
+      return taskStop (tid);
+   end Task_Stop;
+
 end System.VxWorks.Ext;