/* Host support routines for MinGW, for GDB, the GNU debugger.
|
/* Host support routines for MinGW, for GDB, the GNU debugger.
|
|
|
Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
|
|
This file is part of GDB.
|
This file is part of GDB.
|
|
|
This program is free software; you can redistribute it and/or modify
|
This program is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3 of the License, or
|
the Free Software Foundation; either version 3 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
#include "defs.h"
|
#include "defs.h"
|
#include "serial.h"
|
#include "serial.h"
|
#include "event-loop.h"
|
#include "event-loop.h"
|
|
|
#include "gdb_assert.h"
|
#include "gdb_assert.h"
|
#include "gdb_select.h"
|
#include "gdb_select.h"
|
#include "gdb_string.h"
|
#include "gdb_string.h"
|
#include "readline/readline.h"
|
#include "readline/readline.h"
|
|
|
#include <windows.h>
|
#include <windows.h>
|
|
|
/* This event is signalled whenever an asynchronous SIGINT handler
|
/* This event is signalled whenever an asynchronous SIGINT handler
|
needs to perform an action in the main thread. */
|
needs to perform an action in the main thread. */
|
static HANDLE sigint_event;
|
static HANDLE sigint_event;
|
|
|
/* When SIGINT_EVENT is signalled, gdb_select will call this
|
/* When SIGINT_EVENT is signalled, gdb_select will call this
|
function. */
|
function. */
|
struct async_signal_handler *sigint_handler;
|
struct async_signal_handler *sigint_handler;
|
|
|
/* The strerror() function can return NULL for errno values that are
|
/* The strerror() function can return NULL for errno values that are
|
out of range. Provide a "safe" version that always returns a
|
out of range. Provide a "safe" version that always returns a
|
printable string.
|
printable string.
|
|
|
The Windows runtime implementation of strerror never returns NULL,
|
The Windows runtime implementation of strerror never returns NULL,
|
but does return a useless string for anything above sys_nerr;
|
but does return a useless string for anything above sys_nerr;
|
unfortunately this includes all socket-related error codes.
|
unfortunately this includes all socket-related error codes.
|
This replacement tries to find a system-provided error message. */
|
This replacement tries to find a system-provided error message. */
|
|
|
char *
|
char *
|
safe_strerror (int errnum)
|
safe_strerror (int errnum)
|
{
|
{
|
static char *buffer;
|
static char *buffer;
|
int len;
|
int len;
|
|
|
if (errnum >= 0 && errnum < sys_nerr)
|
if (errnum >= 0 && errnum < sys_nerr)
|
return strerror (errnum);
|
return strerror (errnum);
|
|
|
if (buffer)
|
if (buffer)
|
{
|
{
|
LocalFree (buffer);
|
LocalFree (buffer);
|
buffer = NULL;
|
buffer = NULL;
|
}
|
}
|
|
|
if (FormatMessage (FORMAT_MESSAGE_ALLOCATE_BUFFER
|
if (FormatMessage (FORMAT_MESSAGE_ALLOCATE_BUFFER
|
| FORMAT_MESSAGE_FROM_SYSTEM,
|
| FORMAT_MESSAGE_FROM_SYSTEM,
|
NULL, errnum,
|
NULL, errnum,
|
MAKELANGID (LANG_NEUTRAL, SUBLANG_DEFAULT),
|
MAKELANGID (LANG_NEUTRAL, SUBLANG_DEFAULT),
|
(LPTSTR) &buffer, 0, NULL) == 0)
|
(LPTSTR) &buffer, 0, NULL) == 0)
|
{
|
{
|
static char buf[32];
|
static char buf[32];
|
xsnprintf (buf, sizeof buf, "(undocumented errno %d)", errnum);
|
xsnprintf (buf, sizeof buf, "(undocumented errno %d)", errnum);
|
return buf;
|
return buf;
|
}
|
}
|
|
|
/* Windows error messages end with a period and a CR-LF; strip that
|
/* Windows error messages end with a period and a CR-LF; strip that
|
out. */
|
out. */
|
len = strlen (buffer);
|
len = strlen (buffer);
|
if (len > 3 && strcmp (buffer + len - 3, ".\r\n") == 0)
|
if (len > 3 && strcmp (buffer + len - 3, ".\r\n") == 0)
|
buffer[len - 3] = '\0';
|
buffer[len - 3] = '\0';
|
|
|
return buffer;
|
return buffer;
|
}
|
}
|
|
|
/* Wrapper for select. On Windows systems, where the select interface
|
/* Wrapper for select. On Windows systems, where the select interface
|
only works for sockets, this uses the GDB serial abstraction to
|
only works for sockets, this uses the GDB serial abstraction to
|
handle sockets, consoles, pipes, and serial ports.
|
handle sockets, consoles, pipes, and serial ports.
|
|
|
The arguments to this function are the same as the traditional
|
The arguments to this function are the same as the traditional
|
arguments to select on POSIX platforms. */
|
arguments to select on POSIX platforms. */
|
|
|
int
|
int
|
gdb_select (int n, fd_set *readfds, fd_set *writefds, fd_set *exceptfds,
|
gdb_select (int n, fd_set *readfds, fd_set *writefds, fd_set *exceptfds,
|
struct timeval *timeout)
|
struct timeval *timeout)
|
{
|
{
|
static HANDLE never_handle;
|
static HANDLE never_handle;
|
HANDLE handles[MAXIMUM_WAIT_OBJECTS];
|
HANDLE handles[MAXIMUM_WAIT_OBJECTS];
|
HANDLE h;
|
HANDLE h;
|
DWORD event;
|
DWORD event;
|
DWORD num_handles;
|
DWORD num_handles;
|
/* SCBS contains serial control objects corresponding to file
|
/* SCBS contains serial control objects corresponding to file
|
descriptors in READFDS and WRITEFDS. */
|
descriptors in READFDS and WRITEFDS. */
|
struct serial *scbs[MAXIMUM_WAIT_OBJECTS];
|
struct serial *scbs[MAXIMUM_WAIT_OBJECTS];
|
/* The number of valid entries in SCBS. */
|
/* The number of valid entries in SCBS. */
|
size_t num_scbs;
|
size_t num_scbs;
|
int fd;
|
int fd;
|
int num_ready;
|
int num_ready;
|
size_t indx;
|
size_t indx;
|
|
|
num_ready = 0;
|
num_ready = 0;
|
num_handles = 0;
|
num_handles = 0;
|
num_scbs = 0;
|
num_scbs = 0;
|
for (fd = 0; fd < n; ++fd)
|
for (fd = 0; fd < n; ++fd)
|
{
|
{
|
HANDLE read = NULL, except = NULL;
|
HANDLE read = NULL, except = NULL;
|
struct serial *scb;
|
struct serial *scb;
|
|
|
/* There is no support yet for WRITEFDS. At present, this isn't
|
/* There is no support yet for WRITEFDS. At present, this isn't
|
used by GDB -- but we do not want to silently ignore WRITEFDS
|
used by GDB -- but we do not want to silently ignore WRITEFDS
|
if something starts using it. */
|
if something starts using it. */
|
gdb_assert (!writefds || !FD_ISSET (fd, writefds));
|
gdb_assert (!writefds || !FD_ISSET (fd, writefds));
|
|
|
if ((!readfds || !FD_ISSET (fd, readfds))
|
if ((!readfds || !FD_ISSET (fd, readfds))
|
&& (!exceptfds || !FD_ISSET (fd, exceptfds)))
|
&& (!exceptfds || !FD_ISSET (fd, exceptfds)))
|
continue;
|
continue;
|
|
|
scb = serial_for_fd (fd);
|
scb = serial_for_fd (fd);
|
if (scb)
|
if (scb)
|
{
|
{
|
serial_wait_handle (scb, &read, &except);
|
serial_wait_handle (scb, &read, &except);
|
scbs[num_scbs++] = scb;
|
scbs[num_scbs++] = scb;
|
}
|
}
|
|
|
if (read == NULL)
|
if (read == NULL)
|
read = (HANDLE) _get_osfhandle (fd);
|
read = (HANDLE) _get_osfhandle (fd);
|
if (except == NULL)
|
if (except == NULL)
|
{
|
{
|
if (!never_handle)
|
if (!never_handle)
|
never_handle = CreateEvent (0, FALSE, FALSE, 0);
|
never_handle = CreateEvent (0, FALSE, FALSE, 0);
|
|
|
except = never_handle;
|
except = never_handle;
|
}
|
}
|
|
|
if (readfds && FD_ISSET (fd, readfds))
|
if (readfds && FD_ISSET (fd, readfds))
|
{
|
{
|
gdb_assert (num_handles < MAXIMUM_WAIT_OBJECTS);
|
gdb_assert (num_handles < MAXIMUM_WAIT_OBJECTS);
|
handles[num_handles++] = read;
|
handles[num_handles++] = read;
|
}
|
}
|
|
|
if (exceptfds && FD_ISSET (fd, exceptfds))
|
if (exceptfds && FD_ISSET (fd, exceptfds))
|
{
|
{
|
gdb_assert (num_handles < MAXIMUM_WAIT_OBJECTS);
|
gdb_assert (num_handles < MAXIMUM_WAIT_OBJECTS);
|
handles[num_handles++] = except;
|
handles[num_handles++] = except;
|
}
|
}
|
}
|
}
|
|
|
gdb_assert (num_handles < MAXIMUM_WAIT_OBJECTS);
|
gdb_assert (num_handles < MAXIMUM_WAIT_OBJECTS);
|
handles[num_handles++] = sigint_event;
|
handles[num_handles++] = sigint_event;
|
|
|
event = WaitForMultipleObjects (num_handles,
|
event = WaitForMultipleObjects (num_handles,
|
handles,
|
handles,
|
FALSE,
|
FALSE,
|
timeout
|
timeout
|
? (timeout->tv_sec * 1000
|
? (timeout->tv_sec * 1000
|
+ timeout->tv_usec / 1000)
|
+ timeout->tv_usec / 1000)
|
: INFINITE);
|
: INFINITE);
|
/* EVENT can only be a value in the WAIT_ABANDONED_0 range if the
|
/* EVENT can only be a value in the WAIT_ABANDONED_0 range if the
|
HANDLES included an abandoned mutex. Since GDB doesn't use
|
HANDLES included an abandoned mutex. Since GDB doesn't use
|
mutexes, that should never occur. */
|
mutexes, that should never occur. */
|
gdb_assert (!(WAIT_ABANDONED_0 <= event
|
gdb_assert (!(WAIT_ABANDONED_0 <= event
|
&& event < WAIT_ABANDONED_0 + num_handles));
|
&& event < WAIT_ABANDONED_0 + num_handles));
|
/* We no longer need the helper threads to check for activity. */
|
/* We no longer need the helper threads to check for activity. */
|
for (indx = 0; indx < num_scbs; ++indx)
|
for (indx = 0; indx < num_scbs; ++indx)
|
serial_done_wait_handle (scbs[indx]);
|
serial_done_wait_handle (scbs[indx]);
|
if (event == WAIT_FAILED)
|
if (event == WAIT_FAILED)
|
return -1;
|
return -1;
|
if (event == WAIT_TIMEOUT)
|
if (event == WAIT_TIMEOUT)
|
return 0;
|
return 0;
|
/* Run through the READFDS, clearing bits corresponding to descriptors
|
/* Run through the READFDS, clearing bits corresponding to descriptors
|
for which input is unavailable. */
|
for which input is unavailable. */
|
h = handles[event - WAIT_OBJECT_0];
|
h = handles[event - WAIT_OBJECT_0];
|
for (fd = 0, indx = 0; fd < n; ++fd)
|
for (fd = 0, indx = 0; fd < n; ++fd)
|
{
|
{
|
HANDLE fd_h;
|
HANDLE fd_h;
|
|
|
if ((!readfds || !FD_ISSET (fd, readfds))
|
if ((!readfds || !FD_ISSET (fd, readfds))
|
&& (!exceptfds || !FD_ISSET (fd, exceptfds)))
|
&& (!exceptfds || !FD_ISSET (fd, exceptfds)))
|
continue;
|
continue;
|
|
|
if (readfds && FD_ISSET (fd, readfds))
|
if (readfds && FD_ISSET (fd, readfds))
|
{
|
{
|
fd_h = handles[indx++];
|
fd_h = handles[indx++];
|
/* This handle might be ready, even though it wasn't the handle
|
/* This handle might be ready, even though it wasn't the handle
|
returned by WaitForMultipleObjects. */
|
returned by WaitForMultipleObjects. */
|
if (fd_h != h && WaitForSingleObject (fd_h, 0) != WAIT_OBJECT_0)
|
if (fd_h != h && WaitForSingleObject (fd_h, 0) != WAIT_OBJECT_0)
|
FD_CLR (fd, readfds);
|
FD_CLR (fd, readfds);
|
else
|
else
|
num_ready++;
|
num_ready++;
|
}
|
}
|
|
|
if (exceptfds && FD_ISSET (fd, exceptfds))
|
if (exceptfds && FD_ISSET (fd, exceptfds))
|
{
|
{
|
fd_h = handles[indx++];
|
fd_h = handles[indx++];
|
/* This handle might be ready, even though it wasn't the handle
|
/* This handle might be ready, even though it wasn't the handle
|
returned by WaitForMultipleObjects. */
|
returned by WaitForMultipleObjects. */
|
if (fd_h != h && WaitForSingleObject (fd_h, 0) != WAIT_OBJECT_0)
|
if (fd_h != h && WaitForSingleObject (fd_h, 0) != WAIT_OBJECT_0)
|
FD_CLR (fd, exceptfds);
|
FD_CLR (fd, exceptfds);
|
else
|
else
|
num_ready++;
|
num_ready++;
|
}
|
}
|
}
|
}
|
|
|
/* With multi-threaded SIGINT handling, there is a race between the
|
/* With multi-threaded SIGINT handling, there is a race between the
|
readline signal handler and GDB. It may still be in
|
readline signal handler and GDB. It may still be in
|
rl_prep_terminal in another thread. Do not return until it is
|
rl_prep_terminal in another thread. Do not return until it is
|
done; we can check the state here because we never longjmp from
|
done; we can check the state here because we never longjmp from
|
signal handlers on Windows. */
|
signal handlers on Windows. */
|
while (RL_ISSTATE (RL_STATE_SIGHANDLER))
|
while (RL_ISSTATE (RL_STATE_SIGHANDLER))
|
Sleep (1);
|
Sleep (1);
|
|
|
if (h == sigint_event
|
if (h == sigint_event
|
|| WaitForSingleObject (sigint_event, 0) == WAIT_OBJECT_0)
|
|| WaitForSingleObject (sigint_event, 0) == WAIT_OBJECT_0)
|
{
|
{
|
if (sigint_handler != NULL)
|
if (sigint_handler != NULL)
|
call_async_signal_handler (sigint_handler);
|
call_async_signal_handler (sigint_handler);
|
|
|
if (num_ready == 0)
|
if (num_ready == 0)
|
{
|
{
|
errno = EINTR;
|
errno = EINTR;
|
return -1;
|
return -1;
|
}
|
}
|
}
|
}
|
|
|
return num_ready;
|
return num_ready;
|
}
|
}
|
|
|
/* Wrapper for the body of signal handlers. On Windows systems, a
|
/* Wrapper for the body of signal handlers. On Windows systems, a
|
SIGINT handler runs in its own thread. We can't longjmp from
|
SIGINT handler runs in its own thread. We can't longjmp from
|
there, and we shouldn't even prompt the user. Delay HANDLER
|
there, and we shouldn't even prompt the user. Delay HANDLER
|
until the main thread is next in gdb_select. */
|
until the main thread is next in gdb_select. */
|
|
|
void
|
void
|
gdb_call_async_signal_handler (struct async_signal_handler *handler,
|
gdb_call_async_signal_handler (struct async_signal_handler *handler,
|
int immediate_p)
|
int immediate_p)
|
{
|
{
|
if (immediate_p)
|
if (immediate_p)
|
sigint_handler = handler;
|
sigint_handler = handler;
|
else
|
else
|
{
|
{
|
mark_async_signal_handler (handler);
|
mark_async_signal_handler (handler);
|
sigint_handler = NULL;
|
sigint_handler = NULL;
|
}
|
}
|
SetEvent (sigint_event);
|
SetEvent (sigint_event);
|
}
|
}
|
|
|
void
|
void
|
_initialize_mingw_hdep (void)
|
_initialize_mingw_hdep (void)
|
{
|
{
|
sigint_event = CreateEvent (0, FALSE, FALSE, 0);
|
sigint_event = CreateEvent (0, FALSE, FALSE, 0);
|
}
|
}
|
|
|
