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
This commit is contained in:
parent
11bfd18a18
commit
ec21079988
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue