2004-04-08 Joel Sherrill <joel@oarcorp.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / 5zosinte.ads

diff --git a/gcc/ada/5zosinte.ads b/gcc/ada/5zosinte.ads
index b4b98be..7888cc1 100644 (file)
--- a/gcc/ada/5zosinte.ads
+++ b/gcc/ada/5zosinte.ads
@@ -6,8 +6,8 @@
 --                                                                          --
 --                                   S p e c                                --
 --                                                                          --
---                                                                          --
---           Copyright (C) 1997-2001 Free Software Foundation, Inc.         --
+--             Copyright (C) 1991-1994, Florida State University            --
+--             Copyright (C) 1995-2004, 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- --
@@ -28,23 +28,17 @@
 -- covered by the  GNU Public License.                                      --
 --                                                                          --
 -- GNARL was developed by the GNARL team at Florida State University.       --
--- Extensive contributions were provided by Ada Core Technologies Inc.      --
+-- Extensive contributions were provided by Ada Core Technologies, Inc.     --
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This is the VxWorks version of this package.
---
---  VxWorks does not directly support the needed POSIX routines, but it
---  does have other routines that make it possible to code equivalent
---  POSIX compliant routines.  The approach taken is to provide an
---  FSU threads compliant interface.
+--  This is the VxWorks version of this package
 
 --  This package encapsulates all direct interfaces to OS services
 --  that are needed by children of System.
 
---  PLEASE DO NOT add any with-clauses to this package
---  or remove the pragma Elaborate_Body.
---  It is designed to be a bottom-level (leaf) package.
+--  PLEASE DO NOT add any with-clauses to this package or remove the pragma
+--  Preelaborate. This package is designed to be a bottom-level (leaf) package.
 
 with Interfaces.C;
 with System.VxWorks;
@@ -215,6 +209,15 @@ package System.OS_Interface is
    -- VxWorks specific API --
    --------------------------
 
+   subtype STATUS is int;
+   --  Equivalent of the C type STATUS
+
+   OK    : constant STATUS := 0;
+   ERROR : constant STATUS := Interfaces.C.int (-1);
+
+   function taskIdVerify (tid : t_id)  return STATUS;
+   pragma Import (C, taskIdVerify, "taskIdVerify");
+
    function taskIdSelf return t_id;
    pragma Import (C, taskIdSelf, "taskIdSelf");
 
@@ -228,7 +231,7 @@ package System.OS_Interface is
    pragma Import (C, taskIsSuspended, "taskIsSuspended");
 
    function taskVarAdd
-     (tid : t_id; pVar : System.Address) return int;
+     (tid : t_id; pVar : access System.Address) return int;
    pragma Import (C, taskVarAdd, "taskVarAdd");
 
    function taskVarDelete
@@ -288,12 +291,6 @@ package System.OS_Interface is
      (tid : t_id; newPriority : int) return int;
    pragma Import (C, taskPrioritySet, "taskPrioritySet");
 
-   subtype STATUS is int;
-   --  Equivalent of the C type STATUS
-
-   OK    : constant STATUS := 0;
-   ERROR : constant STATUS := Interfaces.C.int (-1);
-
    --  Semaphore creation flags.
 
    SEM_Q_FIFO         : constant := 0;