From ec210799885849f60e0c156ba52ee088d6b26da1 Mon Sep 17 00:00:00 2001
From: Doug Rupp <rupp@adacore.com>
Date: Tue, 15 Nov 2005 15:00:00 +0100
Subject: [PATCH] init.c [VMS]: Don't install __gnat_error_handler if DBG$TDBG
 defined.

2005-11-14  Doug Rupp  <rupp@adacore.com>

	* init.c [VMS]: Don't install __gnat_error_handler if DBG$TDBG defined.

From-SVN: r106986
---
 gcc/ada/init.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index a5018d4f4e0..7baa11bdaf3 100644
--- a/gcc/ada/init.c
+++ b/gcc/ada/init.c
@@ -1502,7 +1502,12 @@ __gnat_install_handler (void)
   /* __gnat_error_prehandler is an assembly function.  */
   SYS$SETEXV (1, __gnat_error_prehandler, 3, &prvhnd);
 #else
-  SYS$SETEXV (1, __gnat_error_handler, 3, &prvhnd);
+#if defined (IN_RTS) && defined (__IA64)
+  if (getenv ("DBG$TDBG"))
+    printf ("DBG$TDBG defined, __gnat_error_handler not installed!\n");
+  else
+#endif
+    SYS$SETEXV (1, __gnat_error_handler, 3, &prvhnd);
 #endif
 
   __gnat_handler_installed = 1;