diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-04-08 08:57:27 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 08:57:27 +0200 |
| commit | 2fe53bf5a4927ae72baa9160627bdecb6d2fcdfb (patch) | |
| tree | 4966eb7b6af6427612884afd25afd19131257f60 /gcc/ada/ctrl_c.c | |
| parent | 189e353b3020886bb4cb60cbaa42045f966f9a13 (diff) | |
| download | gcc-2fe53bf5a4927ae72baa9160627bdecb6d2fcdfb.zip gcc-2fe53bf5a4927ae72baa9160627bdecb6d2fcdfb.tar.gz gcc-2fe53bf5a4927ae72baa9160627bdecb6d2fcdfb.tar.bz2 | |
ctrl_c.c: Improve handling of ctrl-c on LynxOS and Windows.
2008-04-08 Eric Botcazou <ebotcazou@adacore.com>
* ctrl_c.c: Improve handling of ctrl-c on LynxOS and Windows.
Minor reformatting.
From-SVN: r134062
Diffstat (limited to 'gcc/ada/ctrl_c.c')
| -rw-r--r-- | gcc/ada/ctrl_c.c | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/gcc/ada/ctrl_c.c b/gcc/ada/ctrl_c.c index 5a5d597..e9ec88d 100644 --- a/gcc/ada/ctrl_c.c +++ b/gcc/ada/ctrl_c.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 2002-2003, Free Software Foundation, Inc. * + * Copyright (C) 2002-2008, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -50,7 +50,8 @@ void __gnat_uninstall_int_handler (void); /* POSIX implementation */ -#if (defined (_AIX) || defined (unix)) && !defined (__vxworks) +#if (defined (__unix__) || defined (_AIX) || defined (__APPLE__)) \ + && !defined (__vxworks) #include <signal.h> @@ -75,7 +76,12 @@ __gnat_install_int_handler (void (*proc) (void)) if (sigint_intercepted == 0) { act.sa_handler = __gnat_int_handler; +#if defined (__Lynx__) + /* LynxOS does not support SA_RESTART. */ + act.sa_flags = 0; +#else act.sa_flags = SA_RESTART; +#endif sigemptyset (&act.sa_mask); sigaction (SIGINT, &act, &original_act); } @@ -112,7 +118,10 @@ __gnat_int_handler (DWORD dwCtrlType) case CTRL_C_EVENT: case CTRL_BREAK_EVENT: if (sigint_intercepted != 0) - sigint_intercepted (); + { + sigint_intercepted (); + return TRUE; + } break; case CTRL_CLOSE_EVENT: @@ -120,6 +129,8 @@ __gnat_int_handler (DWORD dwCtrlType) case CTRL_SHUTDOWN_EVENT: break; } + + return FALSE; } void |