2004-07-06 Vincent Celier <celier@gnat.com>

	* vms_conv.ads: Minor reformatting.
	Alphabetical order for enumerated values of type Command_Type, to have
	the command in alphabetical order for the usage.

	* vms_conv.adb (Process_Argument): Set Keep_Temporary_Files to True for
	the special qualifier /KEEP_TEMPORARY_FILES (minimum 6 characters).

	* gnat_ugn.texi: Document new switch -dn for the GNAT driver.

	* makegpr.adb (Global_Archive_Exists): New global Boolean variable
	(Add_Archive_Path): Only add the global archive if there is one.
	(Build_Global_Archive): Set Global_Archive_Exists depending if there is
	or not any object file to put in the global archive, and don't build
	a global archive if there is none.
	(X_Switches): New table
	(Compile_Link_With_Gnatmake): Pass to gnatmake the -X switches stored
	in the X_Switches table, if any.
	(Initialize): Make sure the X_Switches table is empty
	(Scan_Arg): Record -X switches in table X_Switches

	* opt.ads (Keep_Temporary_Files): New Boolean flag, defaulted to False.

	* make.adb: Minor comment fix

	* gnatname.adb (Gnatname): When not on VMS, and gnatname has been
	invoked with directory information, add the directory in front of the
	path.

	* gnatchop.adb (Gnatchop): When not on VMS, and gnatchop has been
	invoked with directory information, add the directory in front of the
	path.

	* gnatcmd.adb (Delete_Temp_Config_Files): Only delete temporary files
	when Keep_Temporary_Files is False.
	(GNATCmd): When not on VMS, and the GNAT driver has been invoked with
	directory information, add the directory in front of the path.
	When not on VMS, handle new switch -dn before the command to set
	Keep_Temporary_Files to True.
	(Non_VMS_Usage): Use lower case for the non VMS usage: this is valid
	everywhere.

	* gnatlink.adb (Gnatlink): When not on VMS, and gnatlink has been
	invoked with directory information, add the directory in front of the
	path.

2004-07-06  Thomas Quinot  <quinot@act-europe.fr>

	* snames.ads, snames.adb (Name_Stub): New name for the distributed
	systems annex.

	* rtsfind.ads: New RTE TC_Object, for DSA/PolyORB.
	New RTEs RAS_Proxy_Type and RAS_Proxy_Type_Access, for DSA.

	* g-socket.adb (To_Timeval): Fix incorrect conversion of
	Selector_Duration to Timeval for the case of 0.0.

	* exp_util.ads (Evolve_Or_Else): Fix overenthusiastic copy/paste of
	documentation from Evolve_And_Then.

2004-07-06  Jose Ruiz  <ruiz@act-europe.fr>

	* s-taprop-tru64.adb, s-taprop-os2.adb,
	s-taprop-mingw.adb, s-taprop-posix.adb: Update comment.

2004-07-06  Robert Dewar  <dewar@gnat.com>

	* s-osinte-hpux.ads, s-osinte-freebsd.ads,
	s-osinte-lynxos.ads, s-taprop-lynxos.adb, s-osinte-tru64.ads,
	s-osinte-aix.ads, s-osinte-irix.ads, s-taprop-irix.adb,
	s-interr-sigaction.adb, s-taprop-irix-athread.adb,
	s-osinte-hpux-dce.adb, s-taprop-hpux-dce.adb,
	s-taprop-linux.adb, s-taprop-dummy.adb, s-taprop-solaris.adb,
	s-interr-vms.adb, s-osinte-vms.ads, s-taprop-vms.adb,
	s-osinte-vxworks.ads, s-osprim-vxworks.adb, a-numaux-x86.adb,
	a-except.adb, a-exexpr.adb, a-intsig.adb, a-tags.adb,
	a-tags.ads, bindgen.ads, checks.adb, checks.adb,
	csets.ads, einfo.ads, einfo.ads, elists.adb, exp_ch4.adb,
	exp_ch7.adb, exp_dist.adb, exp_util.adb, freeze.adb,
	g-dynhta.adb, gnatmem.adb, g-regexp.adb, inline.adb,
	i-os2thr.ads, osint.adb, prj.adb, scng.adb, sem_cat.adb,
	sem_ch10.adb, sem_ch12.adb, sem_ch4.adb, sem_ch7.adb,
	sem_ch8.adb, sem_disp.adb, sem_prag.adb, sem_res.adb,
	sem_type.adb, sem_type.ads, sem_warn.adb, s-ficobl.ads,
	s-finimp.adb, s-htable.adb, sinfo.ads, sinput-l.ads,
	s-interr.adb, s-interr.ads, sprint.adb, s-tarest.adb,
	s-tasini.ads, s-taskin.ads, s-taskin.ads, uname.adb,
	vms_data.ads: Minor reformatting,
	Fix bad box comment format.

	* gnat_rm.texi: Fix minor grammatical error

	* sem_attr.adb, exp_attr.adb: New attribute Has_Access_Values

	* sem_util.ads, sem_util.adb (Requires_Transient_Scope): Allow many
	more cases of discriminated records to be recognized as not needing a
	secondary stack.
	(Has_Access_Values): New function.

	* snames.h, snames.adb, snames.ads: New attribute Has_Access_Values

	* cstand.adb, layout.ads, layout.adb, sem_ch13.ads: Change name
	Set_Prim_Alignment to Set_Elem_Alignment (more accurate correspondence
	with LRM terminology).
	Change terminology in comments primitive type => elementary type.

2004-07-06  Ed Schonberg  <schonberg@gnat.com>

	PR ada/15602
	* sem_ch7.adb (Unit_Requires_Body): For a generic package, the formal
	parameters do not impose any requirements on the presence of a body.

2004-07-06  Ed Schonberg  <schonberg@gnat.com>

	PR ada/15593
	* sem_ch12.adb (Analyze_Package_Instantiation): If the generic is not a
	compilation unit and is in an open scope at the point of instantiation,
	assume that a body may be present later.

2004-07-06  Ed Schonberg  <schonberg@gnat.com>

	* sem_ch13.adb (Analyze_Attribute_Definition_Clause, case 'Size):
	Improve error message when specified size is not supported.

	* sem_ch6.adb (Maybe_Primitive_Operation): A library-level subprogram
	is never a primitive operation.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84152 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 46 insertions, 80 deletions

diff --git a/gcc/ada/s-osinte-hpux-dce.adb b/gcc/ada/s-osinte-hpux-dce.adb
index dcd169ccf62..ab0b0775e88 100644
--- a/gcc/ada/s-osinte-hpux-dce.adb
+++ b/gcc/ada/s-osinte-hpux-dce.adb
@@ -7,7 +7,7 @@
 --                                  B o d y                                 --
 --                                                                          --
 --             Copyright (C) 1991-1994, Florida State University            --
---             Copyright (C) 1995-2003, Ada Core Technologies               --
+--             Copyright (C) 1995-2004, Ada Core Technologies               --
 --                                                                          --
 -- 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- --
@@ -104,14 +104,13 @@ package body System.OS_Interface is
            tv_usec => time_t (Long_Long_Integer (F * 10#1#E6)));
    end To_Timeval;
 
-   ---------------------------
-   --  POSIX.1c  Section 3  --
-   ---------------------------
+   -------------------------
+   -- POSIX.1c  Section 3 --
+   -------------------------
 
    function sigwait
      (set : access sigset_t;
-      sig : access Signal)
-     return int
+      sig : access Signal) return int
    is
       Result : int;
 
@@ -135,21 +134,18 @@ package body System.OS_Interface is
       return 0;
    end pthread_kill;
 
-   ----------------------------
-   --  POSIX.1c  Section 11  --
-   ----------------------------
+   --------------------------
+   -- POSIX.1c  Section 11 --
+   --------------------------
 
-   --  For all the following functions, DCE Threads has a non standard
-   --  behavior: it sets errno but the standard Posix requires it to be
-   --  returned.
+   --  For all following functions, DCE Threads has a non standard behavior.
+   --  It sets errno but the standard Posix requires it to be returned.
 
    function pthread_mutexattr_init
-     (attr : access pthread_mutexattr_t)
-     return int
+     (attr : access pthread_mutexattr_t) return int
    is
       function pthread_mutexattr_create
-        (attr : access pthread_mutexattr_t)
-        return int;
+        (attr : access pthread_mutexattr_t) return int;
       pragma Import (C, pthread_mutexattr_create, "pthread_mutexattr_create");
 
    begin
@@ -161,12 +157,10 @@ package body System.OS_Interface is
    end pthread_mutexattr_init;
 
    function pthread_mutexattr_destroy
-     (attr : access pthread_mutexattr_t)
-     return int
+     (attr : access pthread_mutexattr_t) return int
    is
       function pthread_mutexattr_delete
-        (attr : access pthread_mutexattr_t)
-        return int;
+        (attr : access pthread_mutexattr_t) return int;
       pragma Import (C, pthread_mutexattr_delete, "pthread_mutexattr_delete");
 
    begin
@@ -179,13 +173,11 @@ package body System.OS_Interface is
 
    function pthread_mutex_init
      (mutex : access pthread_mutex_t;
-      attr  : access pthread_mutexattr_t)
-     return int
+      attr  : access pthread_mutexattr_t) return int
    is
       function pthread_mutex_init_base
         (mutex : access pthread_mutex_t;
-         attr  : pthread_mutexattr_t)
-        return int;
+         attr  : pthread_mutexattr_t) return int;
       pragma Import (C, pthread_mutex_init_base, "pthread_mutex_init");
 
    begin
@@ -197,12 +189,10 @@ package body System.OS_Interface is
    end pthread_mutex_init;
 
    function pthread_mutex_destroy
-     (mutex : access pthread_mutex_t)
-     return int
+     (mutex : access pthread_mutex_t) return int
    is
       function pthread_mutex_destroy_base
-        (mutex : access pthread_mutex_t)
-        return int;
+        (mutex : access pthread_mutex_t) return int;
       pragma Import (C, pthread_mutex_destroy_base, "pthread_mutex_destroy");
 
    begin
@@ -214,12 +204,10 @@ package body System.OS_Interface is
    end pthread_mutex_destroy;
 
    function pthread_mutex_lock
-     (mutex : access pthread_mutex_t)
-     return int
+     (mutex : access pthread_mutex_t) return int
    is
       function pthread_mutex_lock_base
-        (mutex : access pthread_mutex_t)
-        return int;
+        (mutex : access pthread_mutex_t) return int;
       pragma Import (C, pthread_mutex_lock_base, "pthread_mutex_lock");
 
    begin
@@ -231,12 +219,10 @@ package body System.OS_Interface is
    end pthread_mutex_lock;
 
    function pthread_mutex_unlock
-     (mutex : access pthread_mutex_t)
-     return int
+     (mutex : access pthread_mutex_t) return int
    is
       function pthread_mutex_unlock_base
-        (mutex : access pthread_mutex_t)
-        return int;
+        (mutex : access pthread_mutex_t) return int;
       pragma Import (C, pthread_mutex_unlock_base, "pthread_mutex_unlock");
 
    begin
@@ -248,12 +234,10 @@ package body System.OS_Interface is
    end pthread_mutex_unlock;
 
    function pthread_condattr_init
-     (attr : access pthread_condattr_t)
-     return int
+     (attr : access pthread_condattr_t) return int
    is
       function pthread_condattr_create
-        (attr : access pthread_condattr_t)
-        return int;
+        (attr : access pthread_condattr_t) return int;
       pragma Import (C, pthread_condattr_create, "pthread_condattr_create");
 
    begin
@@ -265,12 +249,10 @@ package body System.OS_Interface is
    end pthread_condattr_init;
 
    function pthread_condattr_destroy
-     (attr : access pthread_condattr_t)
-     return int
+     (attr : access pthread_condattr_t) return int
    is
       function pthread_condattr_delete
-        (attr : access pthread_condattr_t)
-        return int;
+        (attr : access pthread_condattr_t) return int;
       pragma Import (C, pthread_condattr_delete, "pthread_condattr_delete");
 
    begin
@@ -283,13 +265,11 @@ package body System.OS_Interface is
 
    function pthread_cond_init
      (cond : access pthread_cond_t;
-      attr : access pthread_condattr_t)
-     return int
+      attr : access pthread_condattr_t) return int
    is
       function pthread_cond_init_base
         (cond : access pthread_cond_t;
-         attr : pthread_condattr_t)
-        return int;
+         attr : pthread_condattr_t) return int;
       pragma Import (C, pthread_cond_init_base, "pthread_cond_init");
 
    begin
@@ -301,12 +281,10 @@ package body System.OS_Interface is
    end pthread_cond_init;
 
    function pthread_cond_destroy
-     (cond : access pthread_cond_t)
-     return int
+     (cond : access pthread_cond_t) return int
    is
       function pthread_cond_destroy_base
-        (cond : access pthread_cond_t)
-        return int;
+        (cond : access pthread_cond_t) return int;
       pragma Import (C, pthread_cond_destroy_base, "pthread_cond_destroy");
 
    begin
@@ -318,12 +296,10 @@ package body System.OS_Interface is
    end pthread_cond_destroy;
 
    function pthread_cond_signal
-     (cond : access pthread_cond_t)
-     return int
+     (cond : access pthread_cond_t) return int
    is
       function pthread_cond_signal_base
-        (cond : access pthread_cond_t)
-        return int;
+        (cond : access pthread_cond_t) return int;
       pragma Import (C, pthread_cond_signal_base, "pthread_cond_signal");
 
    begin
@@ -336,13 +312,11 @@ package body System.OS_Interface is
 
    function pthread_cond_wait
      (cond  : access pthread_cond_t;
-      mutex : access pthread_mutex_t)
-     return int
+      mutex : access pthread_mutex_t) return int
    is
       function pthread_cond_wait_base
         (cond  : access pthread_cond_t;
-         mutex : access pthread_mutex_t)
-        return int;
+         mutex : access pthread_mutex_t) return int;
       pragma Import (C, pthread_cond_wait_base, "pthread_cond_wait");
 
    begin
@@ -356,14 +330,12 @@ package body System.OS_Interface is
    function pthread_cond_timedwait
      (cond    : access pthread_cond_t;
       mutex   : access pthread_mutex_t;
-      abstime : access timespec)
-     return int
+      abstime : access timespec) return int
    is
       function pthread_cond_timedwait_base
         (cond    : access pthread_cond_t;
          mutex   : access pthread_mutex_t;
-         abstime : access timespec)
-        return int;
+         abstime : access timespec) return int;
       pragma Import (C, pthread_cond_timedwait_base, "pthread_cond_timedwait");
 
    begin
@@ -390,8 +362,7 @@ package body System.OS_Interface is
       function pthread_setscheduler
         (thread   : pthread_t;
          policy   : int;
-         priority : int)
-         return int;
+         priority : int) return int;
       pragma Import (C, pthread_setscheduler, "pthread_setscheduler");
 
    begin
@@ -414,11 +385,11 @@ package body System.OS_Interface is
    --  P1003.1c - Section 16  --
    -----------------------------
 
-   function pthread_attr_init (attributes : access pthread_attr_t) return int
+   function pthread_attr_init
+     (attributes : access pthread_attr_t) return int
    is
       function pthread_attr_create
-        (attributes : access pthread_attr_t)
-        return int;
+        (attributes : access pthread_attr_t) return int;
       pragma Import (C, pthread_attr_create, "pthread_attr_create");
 
    begin
@@ -433,8 +404,7 @@ package body System.OS_Interface is
      (attributes : access pthread_attr_t) return int
    is
       function pthread_attr_delete
-        (attributes : access pthread_attr_t)
-        return int;
+        (attributes : access pthread_attr_t) return int;
       pragma Import (C, pthread_attr_delete, "pthread_attr_delete");
 
    begin
@@ -451,8 +421,7 @@ package body System.OS_Interface is
    is
       function pthread_attr_setstacksize_base
         (attr      : access pthread_attr_t;
-         stacksize : size_t)
-        return int;
+         stacksize : size_t) return int;
       pragma Import (C, pthread_attr_setstacksize_base,
                      "pthread_attr_setstacksize");
 
@@ -474,8 +443,7 @@ package body System.OS_Interface is
         (thread        : access pthread_t;
          attributes    : pthread_attr_t;
          start_routine : Thread_Body;
-         arg           : System.Address)
-        return int;
+         arg           : System.Address) return int;
       pragma Import (C, pthread_create_base, "pthread_create");
 
    begin
@@ -488,9 +456,9 @@ package body System.OS_Interface is
       end if;
    end pthread_create;
 
-   ----------------------------
-   --  POSIX.1c  Section 17  --
-   ----------------------------
+   --------------------------
+   -- POSIX.1c  Section 17 --
+   --------------------------
 
    function pthread_setspecific
      (key   : pthread_key_t;
@@ -543,7 +511,6 @@ package body System.OS_Interface is
 
    function Get_Stack_Base (thread : pthread_t) return Address is
       pragma Warnings (Off, thread);
-
    begin
       return Null_Address;
    end Get_Stack_Base;
@@ -556,7 +523,6 @@ package body System.OS_Interface is
    function intr_attach (sig : int; handler : isr_address) return long is
       function c_signal (sig : int; handler : isr_address) return long;
       pragma Import (C, c_signal, "signal");
-
    begin
       return c_signal (sig, handler);
    end intr_attach;