diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-17 08:14:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-17 08:14:35 +0200 |
| commit | a1d3851bcd7404635a0e04846fac7f1561a6e286 (patch) | |
| tree | e69d504d24e1249b981b7150ceb6cc8107e5e456 /gcc/ada/env.c | |
| parent | d2d8b2a70d792987761480ac14301816498a6454 (diff) | |
| download | gcc-a1d3851bcd7404635a0e04846fac7f1561a6e286.zip gcc-a1d3851bcd7404635a0e04846fac7f1561a6e286.tar.gz gcc-a1d3851bcd7404635a0e04846fac7f1561a6e286.tar.bz2 | |
[multiple changes]
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.
From-SVN: r212717
Diffstat (limited to 'gcc/ada/env.c')
| -rw-r--r-- | gcc/ada/env.c | 11 |
1 files changed, 7 insertions, 4 deletions
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 |