diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-02-10 14:54:28 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-02-10 14:54:28 +0100 |
| commit | 16e845ef3dcb66829c8b5f086164cc7540093a73 (patch) | |
| tree | 96c27826ede5ad4ae1fdaf477e6d6da7ba9f38d9 /gcc | |
| parent | 8aceda6473a81be00de01313a0b7594b438cb17f (diff) | |
| download | gcc-16e845ef3dcb66829c8b5f086164cc7540093a73.zip gcc-16e845ef3dcb66829c8b5f086164cc7540093a73.tar.gz gcc-16e845ef3dcb66829c8b5f086164cc7540093a73.tar.bz2 | |
gnatbl.c: [VMS] (_POSIX_EXIT): Define.
* gnatbl.c: [VMS] (_POSIX_EXIT): Define.
[VMS] (#define exit hack): Remove.
From-SVN: r94815
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gnatbl.c | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/gcc/ada/gnatbl.c b/gcc/ada/gnatbl.c index 8228428..ead189f 100644 --- a/gcc/ada/gnatbl.c +++ b/gcc/ada/gnatbl.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 1992-2003 Free Software Foundation, Inc. * + * Copyright (C) 1992-2005 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- * @@ -24,6 +24,10 @@ * * ****************************************************************************/ +#ifdef VMS +#define _POSIX_EXIT 1 +#endif + #include "config.h" #include "system.h" @@ -32,13 +36,6 @@ #endif #include "adaint.h" -#ifdef VMS -#ifdef exit -#undef exit -#endif -#define exit __posix_exit -#endif - /* These can be set by command line arguments */ char *binder_path = 0; char *linker_path = 0; @@ -138,7 +135,7 @@ process_args (int *p_argc, char *argv[]) if (! strcmp (argv[i], "-gnatbind")) { - /* Explicit naming of binder. Grab the value then remove the + /* Explicit naming of binder. Grab the value then remove the two arguments from the argument list. */ if ( i + 1 >= *p_argc ) { |