From 16e845ef3dcb66829c8b5f086164cc7540093a73 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 10 Feb 2005 14:54:28 +0100 Subject: [PATCH] gnatbl.c: [VMS] (_POSIX_EXIT): Define. * gnatbl.c: [VMS] (_POSIX_EXIT): Define. [VMS] (#define exit hack): Remove. From-SVN: r94815 --- gcc/ada/gnatbl.c | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/gcc/ada/gnatbl.c b/gcc/ada/gnatbl.c index 82284286676..ead189ff261 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 ) {