OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Doug Rupp 2005-11-15 15:00:00 +01:00 committed by Arnaud Charlet
parent 11bfd18a18
commit ec21079988
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/init.c
View File

@ -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;