void __gnat_unhandled_terminate (void) { /* Special termination handling for VMS */ #ifdef VMS { long prvhnd; /* Remove the exception vector so it won't intercept any errors in the call to exit, and go into and endless loop */ SYS$SETEXV (1, 0, 3, &prvhnd); __gnat_os_exit (1); } /* Termination handling for all other systems. */ #elif !defined (__RT__) __gnat_os_exit (1); #endif }
void __gnat_unhandled_terminate (void) { #ifdef VMS /* Special termination handling for VMS */ long prvhnd; /* Remove the exception vector so it won't intercept any errors in the call to exit, and go into and endless loop */ SYS$SETEXV (1, 0, 3, &prvhnd); #endif /* Default termination handling */ __gnat_os_exit (1); }