diff options
Diffstat (limited to 'gcc/ada/5zinit.adb')
| -rw-r--r-- | gcc/ada/5zinit.adb | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/gcc/ada/5zinit.adb b/gcc/ada/5zinit.adb index c947057..e384d3b 100644 --- a/gcc/ada/5zinit.adb +++ b/gcc/ada/5zinit.adb @@ -104,11 +104,6 @@ package body System.Init is -- Common procedure that is executed when a SIGFPE, SIGILL, -- SIGSEGV, or SIGBUS is captured. - procedure Install_Handler; - pragma Export (C, Install_Handler, "__gnat_install_handler"); - -- Install handler for the synchronous signals. The C profile - -- here is what is expected by the binder-generated main. - ------------------------ -- GNAT_Error_Handler -- ------------------------ @@ -238,16 +233,6 @@ package body System.Init is end if; end Set_Globals; - ----------------------------- - -- Install_Signal_Handlers -- - ----------------------------- - - function Install_Signal_Handlers return Interfaces.C.int is - begin - Install_Handler; - return 0; - end Install_Signal_Handlers; - --------------------- -- Install_Handler -- --------------------- |