diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-12-13 11:40:58 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:40:58 +0100 |
| commit | 34a343e634c7b155a8553e45ffabd3f24f0765ec (patch) | |
| tree | b53100b51497dede67b8a55f080645b76ff2bad0 /gcc/ada/env.c | |
| parent | 9b998381423870a80e7479c7bdd4cf3ed48324a5 (diff) | |
| download | gcc-34a343e634c7b155a8553e45ffabd3f24f0765ec.zip gcc-34a343e634c7b155a8553e45ffabd3f24f0765ec.tar.gz gcc-34a343e634c7b155a8553e45ffabd3f24f0765ec.tar.bz2 | |
xeinfo.adb: Remove warnings
2007-12-06 Robert Dewar <dewar@adacore.com>
* xeinfo.adb: Remove warnings
* xnmake.adb: Remove warnings
* xsinfo.adb: Remove warnings
* xtreeprs.adb: Remove warnings
* xsnames.adb: Remove warnings
* a-ngcoar.adb: Fix typo.
* s-interr.adb: Minor reformatting
* env.c: Minor reformatting.
* g-bytswa.adb: Minor reformatting.
* g-rannum.ads: Minor documentation improvements
* s-tasinf-mingw.adb: Minor header fix
* a-clrefi.adb: Minor reformatting
* g-sttsne.ads: Minor documentation improvement
* g-sttsne-locking.ads: Minor documentation improvement
* g-soliop-solaris.ads: Minor documentation improvement
* g-soliop-mingw.ads: Minor documentation improvement
* g-soliop.ads: Minor documentation improvement
* exp_aggr.ads: Minor reformatting
* debug.adb: Add documentation for the gprbuild debug flags
* exp_ch2.adb: Use Nkind_In to simplify code throughout
* exp_pakd.adb: Minor reformatting
* g-altive.ads, g-alleve.adb: Remove assertions.
Add comment about minor differences between targets regarding
floating-point operations.
* g-thread.adb: Remove pragma unreferenced.
* lib.ads: Minor reformatting
* par-ch9.adb: Minor reformatting of error messages
* sem_case.adb: Minor reformatting
* s-fileio.adb: Minor reformattinng
* s-vmexta.ads: Minor typo
* vxaddr2line.adb:
Take into account 'Success' value as per new GNAT warning.
From-SVN: r130870
Diffstat (limited to 'gcc/ada/env.c')
| -rw-r--r-- | gcc/ada/env.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/env.c b/gcc/ada/env.c index 4d36109..6cbb705 100644 --- a/gcc/ada/env.c +++ b/gcc/ada/env.c @@ -177,11 +177,12 @@ __gnat_setenv (char *name, char *value) sprintf (expression, "%s=%s", name, value); putenv (expression); -#if (defined (__FreeBSD__) && (__FreeBSD__ < 7)) || defined (__APPLE__) \ - || defined (__MINGW32__) ||(defined (__vxworks) && ! defined (__RTP__)) - /* On some systems like pre-7 FreeBSD, MacOS X and Windows, putenv is making - a copy of the expression string so we can free it after the call to - putenv */ +#if (defined (__FreeBSD__) && (__FreeBSD__ < 7)) \ + || defined (__APPLE__) || defined (__MINGW32__) \ + ||(defined (__vxworks) && ! defined (__RTP__)) + /* On some systems like FreeBSD 6.x and earlier, MacOS X and Windows, + putenv is making a copy of the expression string so we can free + it after the call to putenv */ free (expression); #endif #endif |