a-taster.adb, [...]: Minor reformatting.

2008-03-26  Robert Dewar  <dewar@adacore.com>

	* a-taster.adb, s-shasto.adb, s-soflin.adb, s-taasde.adb, s-taenca.adb,
	a-sytaco.adb, a-sytaco.ads, a-tasatt.adb, a-taside.adb,
	a-intnam-lynxos.ads, a-retide.adb, a-intnam-tru64.ads, a-intnam-aix.ads,
	a-intnam-irix.ads, a-intnam-hpux.ads, a-intnam-linux.ads,
	a-intnam-solaris.ads, a-caldel-vms.adb, a-intnam-vms.ads,
	a-excpol-abort.adb, a-intnam-mingw.ads, s-interr.adb, s-interr.ads,
	s-intman.ads, s-gloloc.adb, s-osinte-lynxos-3.ads,
	s-interr-sigaction.adb, s-osinte-hpux.ads, s-osinte-solaris-posix.ads,
	a-intnam-freebsd.ads, s-osinte-freebsd.ads, s-osinte-lynxos.ads,
	s-taspri-lynxos.ads, s-osinte-tru64.ads, s-osinte-tru64.ads,
	s-taspri-tru64.ads, s-osinte-aix.ads, s-osinte-irix.ads,
	s-osinte-hpux-dce.ads, s-taprop-hpux-dce.adb, s-taspri-hpux-dce.ads,
	s-osinte-linux.ads, s-osinte-dummy.ads, s-taprop-dummy.adb,
	s-taspri-dummy.ads, s-interr-dummy.adb, s-osinte-solaris.ads,
	s-osinte-mingw.ads, s-taprop-solaris.adb, s-taspri-solaris.ads,
	s-inmaop-vms.adb, s-interr-vms.adb, s-intman-vms.ads, s-osinte-vms.ads,
	s-osinte-vms.ads, s-taprop-vms.adb, s-taspri-vms.ads,
	s-taspri-mingw.ads, s-interr-vxworks.adb, s-inmaop-posix.adb,
	s-intman-vxworks.ads, s-osinte-vxworks.ads, s-osprim-vxworks.adb,
	s-taspri-vxworks.ads, s-taspri-posix.ads, a-caldel.adb, a-calend.adb,
	a-elchha.adb, a-dynpri.adb, a-except.adb, a-except.ads, a-interr.ads,
	a-textio.adb, a-tigeau.ads, atree.adb, s-taprob.adb, s-taprop.ads,
	s-tarest.adb, s-tarest.ads, s-tasini.adb, s-taskin.adb, s-taskin.ads,
	s-tasque.adb, s-tasren.adb, s-tasren.ads, s-tassta.adb, s-tassta.ads,
	s-tasuti.adb, s-tataat.adb, s-tataat.ads, s-tpoben.adb, s-tpoben.ads,
	s-tpobop.adb, s-tpobop.ads, s-tposen.adb, s-tposen.ads, s-valrea.adb,
	s-valuti.adb, a-intnam-darwin.ads, s-osinte-darwin.ads, s-solita.adb,
	a-ztinau.ads, s-osinte-linux-hppa.ads, a-except-2005.adb,
	a-except-2005.ads, a-rttiev.adb, s-osinte-vxworks6.ads, s-regexp.adb,
	s-tasloc.adb: Minor reformatting.
	Update comments.
	Remove "used for" sections from comments.

From-SVN: r133546

1 files changed, 34 insertions, 28 deletions

diff --git a/gcc/ada/s-osinte-mingw.ads b/gcc/ada/s-osinte-mingw.ads
index e0a3edf3a18..e0a3d7c75df 100644
--- a/gcc/ada/s-osinte-mingw.ads
+++ b/gcc/ada/s-osinte-mingw.ads
@@ -7,7 +7,7 @@
 --                                  S p e c                                 --
 --                                                                          --
 --             Copyright (C) 1991-1994, Florida State University            --
---          Copyright (C) 1995-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1995-2008, 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- --
@@ -35,13 +35,15 @@
 --  This is a NT (native) version of this package
 
 --  This package encapsulates all direct interfaces to OS services
---  that are needed by children of System.
+--  that are needed by the tasking run-time (libgnarl).
 
 --  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 Interfaces.C.Strings;
+
 with Ada.Unchecked_Conversion;
 
 package System.OS_Interface is
@@ -75,6 +77,8 @@ package System.OS_Interface is
 
    type PLONG  is access all Interfaces.C.long;
    type PDWORD is access all DWORD;
+   type BYTE is new Interfaces.C.unsigned_char;
+   subtype CHAR is Interfaces.C.char;
 
    type BOOL is new Boolean;
    for BOOL'Size use Interfaces.C.unsigned_long'Size;
@@ -95,6 +99,19 @@ package System.OS_Interface is
    NO_ERROR : constant := 0;
    FUNC_ERR : constant := -1;
 
+   -----------
+   -- Files --
+   -----------
+
+   type SECURITY_ATTRIBUTES is record
+      nLength             : DWORD;
+      pSecurityDescriptor : PVOID;
+      bInheritHandle      : BOOL;
+   end record;
+
+   function CloseHandle (hObject : HANDLE) return BOOL;
+   pragma Import (Stdcall, CloseHandle, "CloseHandle");
+
    ------------------------
    -- System Information --
    ------------------------
@@ -259,30 +276,22 @@ package System.OS_Interface is
    function To_PTHREAD_START_ROUTINE is new
      Ada.Unchecked_Conversion (System.Address, PTHREAD_START_ROUTINE);
 
-   type SECURITY_ATTRIBUTES is record
-      nLength              : DWORD;
-      pSecurityDescriptor  : PVOID;
-      bInheritHandle       : BOOL;
-   end record;
-
-   type PSECURITY_ATTRIBUTES is access all SECURITY_ATTRIBUTES;
-
    function CreateThread
-     (pThreadAttributes    : PSECURITY_ATTRIBUTES;
-      dwStackSize          : DWORD;
-      pStartAddress        : PTHREAD_START_ROUTINE;
-      pParameter           : PVOID;
-      dwCreationFlags      : DWORD;
-      pThreadId            : PDWORD) return HANDLE;
+     (pThreadAttributes : access SECURITY_ATTRIBUTES;
+      dwStackSize       : DWORD;
+      pStartAddress     : PTHREAD_START_ROUTINE;
+      pParameter        : PVOID;
+      dwCreationFlags   : DWORD;
+      pThreadId         : PDWORD) return HANDLE;
    pragma Import (Stdcall, CreateThread, "CreateThread");
 
    function BeginThreadEx
-     (pThreadAttributes    : PSECURITY_ATTRIBUTES;
-      dwStackSize          : DWORD;
-      pStartAddress        : PTHREAD_START_ROUTINE;
-      pParameter           : PVOID;
-      dwCreationFlags      : DWORD;
-      pThreadId            : PDWORD) return HANDLE;
+     (pThreadAttributes : access SECURITY_ATTRIBUTES;
+      dwStackSize       : DWORD;
+      pStartAddress     : PTHREAD_START_ROUTINE;
+      pParameter        : PVOID;
+      dwCreationFlags   : DWORD;
+      pThreadId         : PDWORD) return HANDLE;
    pragma Import (C, BeginThreadEx, "_beginthreadex");
 
    Debug_Process                     : constant := 16#00000001#;
@@ -373,11 +382,8 @@ package System.OS_Interface is
    -- Semaphores, Events and Mutexes --
    ------------------------------------
 
-   function CloseHandle (hObject : HANDLE) return BOOL;
-   pragma Import (Stdcall, CloseHandle, "CloseHandle");
-
    function CreateSemaphore
-     (pSemaphoreAttributes : PSECURITY_ATTRIBUTES;
+     (pSemaphoreAttributes : access SECURITY_ATTRIBUTES;
       lInitialCount        : Interfaces.C.long;
       lMaximumCount        : Interfaces.C.long;
       pName                : PSZ) return HANDLE;
@@ -396,7 +402,7 @@ package System.OS_Interface is
    pragma Import (Stdcall, ReleaseSemaphore, "ReleaseSemaphore");
 
    function CreateEvent
-     (pEventAttributes : PSECURITY_ATTRIBUTES;
+     (pEventAttributes : access SECURITY_ATTRIBUTES;
       bManualReset     : BOOL;
       bInitialState    : BOOL;
       pName            : PSZ) return HANDLE;
@@ -418,7 +424,7 @@ package System.OS_Interface is
    pragma Import (Stdcall, PulseEvent, "PulseEvent");
 
    function CreateMutex
-     (pMutexAttributes : PSECURITY_ATTRIBUTES;
+     (pMutexAttributes : access SECURITY_ATTRIBUTES;
       bInitialOwner    : BOOL;
       pName            : PSZ) return HANDLE;
    pragma Import (Stdcall, CreateMutex, "CreateMutexA");