2014-07-17 Pascal Obry <obry@adacore.com>

	* s-os_lib.ads: Minor comment update.

2014-07-17  Tristan Gingold  <gingold@adacore.com>

	* sysdep.c: Add ATTRIBUTE_UNUSED to avoid warnings.  Fix some
	indentation.
	* socket.c: Remove #warning to avoid warning.
	* expect.c: Indent some preprocessor directives to clarify
	nested if.  Do not use wait.h on PikeOS.  Add ATTRIBUTE_UNUSED
	to remove warnings.
	* env.c: Fix indentation.  Port to PikeOS.
	* gsocket.h: Port to PikeOS.  Remove #warning.
	* terminals.c: Port to PikeOS.	Fix indentation of the stubs.
	Add ATTRIBUTE_UNUSED to stubs arguments.  Fix return statement
	of stubbed __gnat_setup_parent_communication.
	* adaint.c: Port to PikeOS.  Reindent some preprocessor
	directives to clarify nested if.  Fix indentation.  Add missing
	ATTRIBUTE_UNUSED.

2014-07-17  Robert Dewar  <dewar@adacore.com>

	* sem_attr.adb: Minor reformatting.



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

1 files changed, 22 insertions, 15 deletions

diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c
index a40ffa3d29d..aa014a6a381 100644
--- a/gcc/ada/expect.c
+++ b/gcc/ada/expect.c
@@ -6,7 +6,7 @@
  *                                                                          *
  *                          C Implementation File                           *
  *                                                                          *
- *                     Copyright (C) 2001-2011, AdaCore                     *
+ *                     Copyright (C) 2001-2014, AdaCore                     *
  *                                                                          *
  * GNAT 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- *
@@ -45,17 +45,17 @@
 #include <sys/types.h>
 
 #ifdef __MINGW32__
-#if OLD_MINGW
-#include <sys/wait.h>
-#endif
+# if OLD_MINGW
+#  include <sys/wait.h>
+# endif
 #elif defined (__vxworks) && defined (__RTP__)
-#include <wait.h>
+# include <wait.h>
 #elif defined (__Lynx__)
-/* ??? See comment in adaint.c.  */
-#define GCC_RESOURCE_H
-#include <sys/wait.h>
-#elif defined (__nucleus__)
-/* No wait.h available on Nucleus */
+  /* ??? See comment in adaint.c.  */
+# define GCC_RESOURCE_H
+# include <sys/wait.h>
+#elif defined (__nucleus__) || defined (__PikeOS__)
+  /* No wait.h available on Nucleus */
 #else
 #include <sys/wait.h>
 #endif
@@ -476,18 +476,20 @@ __gnat_expect_poll (int *fd, int num_fd, int timeout, int *is_set)
 #else
 
 void
-__gnat_kill (int pid, int sig, int close)
+__gnat_kill (int pid ATTRIBUTE_UNUSED,
+	     int sig ATTRIBUTE_UNUSED,
+	     int close ATTRIBUTE_UNUSED)
 {
 }
 
 int
-__gnat_waitpid (int pid, int sig)
+__gnat_waitpid (int pid ATTRIBUTE_UNUSED, int sig ATTRIBUTE_UNUSED)
 {
   return 0;
 }
 
 int
-__gnat_pipe (int *fd)
+__gnat_pipe (int *fd ATTRIBUTE_UNUSED)
 {
   return -1;
 }
@@ -499,13 +501,18 @@ __gnat_expect_fork (void)
 }
 
 void
-__gnat_expect_portable_execvp (int *pid, char *cmd, char *argv[])
+__gnat_expect_portable_execvp (int *pid ATTRIBUTE_UNUSED,
+			       char *cmd ATTRIBUTE_UNUSED,
+			       char *argv[] ATTRIBUTE_UNUSED)
 {
   *pid = 0;
 }
 
 int
-__gnat_expect_poll (int *fd, int num_fd, int timeout, int *is_set)
+__gnat_expect_poll (int *fd ATTRIBUTE_UNUSED,
+		    int num_fd ATTRIBUTE_UNUSED,
+		    int timeout ATTRIBUTE_UNUSED,
+		    int *is_set ATTRIBUTE_UNUSED)
 {
   return -1;
 }