From a1d3851bcd7404635a0e04846fac7f1561a6e286 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 17 Jul 2014 08:14:35 +0200 Subject: [multiple changes] 2014-07-17 Pascal Obry * s-os_lib.ads: Minor comment update. 2014-07-17 Tristan Gingold * 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 * sem_attr.adb: Minor reformatting. From-SVN: r212717 --- gcc/ada/env.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'gcc/ada/env.c') diff --git a/gcc/ada/env.c b/gcc/ada/env.c index 800d207..de5e08a 100644 --- a/gcc/ada/env.c +++ b/gcc/ada/env.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 2005-2012, Free Software Foundation, Inc. * + * Copyright (C) 2005-2014, Free Software Foundation, Inc. * * * * 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- * @@ -224,7 +224,8 @@ __gnat_environ (void) #endif } -void __gnat_unsetenv (char *name) { +void __gnat_unsetenv (char *name) +{ #if defined (VMS) /* Not implemented */ return; @@ -282,12 +283,14 @@ void __gnat_unsetenv (char *name) { #endif } -void __gnat_clearenv (void) { +void __gnat_clearenv (void) +{ #if defined (VMS) /* not implemented */ return; #elif defined (sun) \ - || (defined (__vxworks) && ! defined (__RTP__)) || defined (__Lynx__) + || (defined (__vxworks) && ! defined (__RTP__)) || defined (__Lynx__) \ + || defined (__PikeOS__) /* On Solaris, VxWorks (not RTPs), and Lynx there is no system call to unset a variable or to clear the environment so set all the entries in the environ table to NULL (see comment in -- cgit v1.1