/* wince-stub.c -- debugging stub for a Windows CE device
|
/* wince-stub.c -- debugging stub for a Windows CE device
|
|
|
Copyright 1999, 2000 Free Software Foundation, Inc.
|
Copyright 1999, 2000 Free Software Foundation, Inc.
|
Contributed by Cygnus Solutions, A Red Hat Company.
|
Contributed by Cygnus Solutions, A Red Hat Company.
|
|
|
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 2 of the License, or
|
the Free Software Foundation; either version 2 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 eve nthe implied warranty of
|
but WITHOUT ANY WARRANTY; without eve nthe 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, write to the Free Software
|
along with this program; if not, write to the Free Software
|
Foundation, Inc., 59 Temple Place - Suite 330,
|
Foundation, Inc., 59 Temple Place - Suite 330,
|
Boston, MA 02111-1307, USA.
|
Boston, MA 02111-1307, USA.
|
*/
|
*/
|
|
|
/* by Christopher Faylor (cgf@cygnus.com) */
|
/* by Christopher Faylor (cgf@cygnus.com) */
|
|
|
#include <stdarg.h>
|
#include <stdarg.h>
|
#include <windows.h>
|
#include <windows.h>
|
#include <winsock.h>
|
#include <winsock.h>
|
#include "wince-stub.h"
|
#include "wince-stub.h"
|
|
|
#define MALLOC(n) (void *) LocalAlloc (LMEM_MOVEABLE, (UINT)(n))
|
#define MALLOC(n) (void *) LocalAlloc (LMEM_MOVEABLE, (UINT)(n))
|
#define REALLOC(s, n) (void *) LocalReAlloc ((HLOCAL)(s), (UINT)(n), LMEM_MOVEABLE)
|
#define REALLOC(s, n) (void *) LocalReAlloc ((HLOCAL)(s), (UINT)(n), LMEM_MOVEABLE)
|
|
|
static int skip_next_id = 0; /* Don't read next API code from socket */
|
static int skip_next_id = 0; /* Don't read next API code from socket */
|
|
|
/* v-style interface for handling varying argyment list error messages.
|
/* v-style interface for handling varying argyment list error messages.
|
Displays the error message in a dialog box and exits when user clicks
|
Displays the error message in a dialog box and exits when user clicks
|
on OK. */
|
on OK. */
|
static void
|
static void
|
vstub_error (LPCWSTR fmt, va_list args)
|
vstub_error (LPCWSTR fmt, va_list args)
|
{
|
{
|
WCHAR buf[4096];
|
WCHAR buf[4096];
|
wvsprintfW (buf, fmt, args);
|
wvsprintfW (buf, fmt, args);
|
|
|
MessageBoxW (NULL, buf, L"GDB", MB_ICONERROR);
|
MessageBoxW (NULL, buf, L"GDB", MB_ICONERROR);
|
WSACleanup ();
|
WSACleanup ();
|
ExitThread (1);
|
ExitThread (1);
|
}
|
}
|
|
|
/* The standard way to display an error message and exit. */
|
/* The standard way to display an error message and exit. */
|
static void
|
static void
|
stub_error (LPCWSTR fmt, ...)
|
stub_error (LPCWSTR fmt, ...)
|
{
|
{
|
va_list args;
|
va_list args;
|
va_start (args, fmt);
|
va_start (args, fmt);
|
vstub_error (fmt, args);
|
vstub_error (fmt, args);
|
}
|
}
|
|
|
/* Standard "oh well" can't communicate error. Someday this might attempt
|
/* Standard "oh well" can't communicate error. Someday this might attempt
|
synchronization. */
|
synchronization. */
|
static void
|
static void
|
attempt_resync (LPCWSTR huh, int s)
|
attempt_resync (LPCWSTR huh, int s)
|
{
|
{
|
stub_error (L"lost synchronization with host attempting %s. Error %d", huh, WSAGetLastError ());
|
stub_error (L"lost synchronization with host attempting %s. Error %d", huh, WSAGetLastError ());
|
}
|
}
|
|
|
/* Read arbitrary stuff from a socket. */
|
/* Read arbitrary stuff from a socket. */
|
static int
|
static int
|
sockread (LPCWSTR huh, int s, void *str, size_t n)
|
sockread (LPCWSTR huh, int s, void *str, size_t n)
|
{
|
{
|
for (;;)
|
for (;;)
|
{
|
{
|
if (recv (s, str, n, 0) == (int) n)
|
if (recv (s, str, n, 0) == (int) n)
|
return n;
|
return n;
|
attempt_resync (huh, s);
|
attempt_resync (huh, s);
|
}
|
}
|
}
|
}
|
|
|
/* Write arbitrary stuff to a socket. */
|
/* Write arbitrary stuff to a socket. */
|
static int
|
static int
|
sockwrite (LPCWSTR huh, int s, const void *str, size_t n)
|
sockwrite (LPCWSTR huh, int s, const void *str, size_t n)
|
{
|
{
|
for (;;)
|
for (;;)
|
{
|
{
|
if (send (s, str, n, 0) == (int) n)
|
if (send (s, str, n, 0) == (int) n)
|
return n;
|
return n;
|
attempt_resync (huh, s);
|
attempt_resync (huh, s);
|
}
|
}
|
}
|
}
|
|
|
/* Allocate a limited pool of memory, reallocating over unused
|
/* Allocate a limited pool of memory, reallocating over unused
|
buffers. This assumes that there will never be more than four
|
buffers. This assumes that there will never be more than four
|
"buffers" required which, so far, is a safe assumption. */
|
"buffers" required which, so far, is a safe assumption. */
|
static LPVOID
|
static LPVOID
|
mempool (gdb_wince_len len)
|
mempool (gdb_wince_len len)
|
{
|
{
|
static int n = -1;
|
static int n = -1;
|
static LPWSTR outs[4] = {NULL /*, NULL, etc. */};
|
static LPWSTR outs[4] = {NULL /*, NULL, etc. */};
|
|
|
if (++n >= (sizeof (outs) / sizeof (outs[0])))
|
if (++n >= (sizeof (outs) / sizeof (outs[0])))
|
n = 0;
|
n = 0;
|
|
|
/* Allocate space for the converted string, reusing any previously allocated
|
/* Allocate space for the converted string, reusing any previously allocated
|
space, if applicable. */
|
space, if applicable. */
|
if (outs[n])
|
if (outs[n])
|
outs[n] = (LPWSTR) REALLOC (outs[n], len);
|
outs[n] = (LPWSTR) REALLOC (outs[n], len);
|
else
|
else
|
outs[n] = (LPWSTR) MALLOC (len);
|
outs[n] = (LPWSTR) MALLOC (len);
|
|
|
return outs[n];
|
return outs[n];
|
}
|
}
|
|
|
/* Get a an ID (possibly) and a DWORD from the host gdb.
|
/* Get a an ID (possibly) and a DWORD from the host gdb.
|
Don't bother with the id if the main loop has already
|
Don't bother with the id if the main loop has already
|
read it. */
|
read it. */
|
static DWORD
|
static DWORD
|
getdword (LPCWSTR huh, int s, gdb_wince_id what_this)
|
getdword (LPCWSTR huh, int s, gdb_wince_id what_this)
|
{
|
{
|
DWORD n;
|
DWORD n;
|
gdb_wince_id what;
|
gdb_wince_id what;
|
|
|
if (skip_next_id)
|
if (skip_next_id)
|
skip_next_id = 0;
|
skip_next_id = 0;
|
else
|
else
|
do
|
do
|
if (sockread (huh, s, &what, sizeof (what)) != sizeof (what))
|
if (sockread (huh, s, &what, sizeof (what)) != sizeof (what))
|
stub_error (L"error getting record type from host - %s.", huh);
|
stub_error (L"error getting record type from host - %s.", huh);
|
while (what_this != what);
|
while (what_this != what);
|
|
|
if (sockread (huh, s, &n, sizeof (n)) != sizeof (n))
|
if (sockread (huh, s, &n, sizeof (n)) != sizeof (n))
|
stub_error (L"error getting %s from host.", huh);
|
stub_error (L"error getting %s from host.", huh);
|
|
|
return n;
|
return n;
|
}
|
}
|
|
|
/* Get a an ID (possibly) and a WORD from the host gdb.
|
/* Get a an ID (possibly) and a WORD from the host gdb.
|
Don't bother with the id if the main loop has already
|
Don't bother with the id if the main loop has already
|
read it. */
|
read it. */
|
static WORD
|
static WORD
|
getword (LPCWSTR huh, int s, gdb_wince_id what_this)
|
getword (LPCWSTR huh, int s, gdb_wince_id what_this)
|
{
|
{
|
WORD n;
|
WORD n;
|
gdb_wince_id what;
|
gdb_wince_id what;
|
|
|
if (skip_next_id)
|
if (skip_next_id)
|
skip_next_id = 0;
|
skip_next_id = 0;
|
else
|
else
|
do
|
do
|
if (sockread (huh, s, &what, sizeof (what)) != sizeof (what))
|
if (sockread (huh, s, &what, sizeof (what)) != sizeof (what))
|
stub_error (L"error getting record type from host - %s.", huh);
|
stub_error (L"error getting record type from host - %s.", huh);
|
while (what_this != what);
|
while (what_this != what);
|
|
|
if (sockread (huh, s, &n, sizeof (n)) != sizeof (n))
|
if (sockread (huh, s, &n, sizeof (n)) != sizeof (n))
|
stub_error (L"error getting %s from host.", huh);
|
stub_error (L"error getting %s from host.", huh);
|
|
|
return n;
|
return n;
|
}
|
}
|
|
|
/* Handy defines for getting various types of values. */
|
/* Handy defines for getting various types of values. */
|
#define gethandle(huh, s, what) (HANDLE) getdword ((huh), (s), (what))
|
#define gethandle(huh, s, what) (HANDLE) getdword ((huh), (s), (what))
|
#define getpvoid(huh, s, what) (LPVOID) getdword ((huh), (s), (what))
|
#define getpvoid(huh, s, what) (LPVOID) getdword ((huh), (s), (what))
|
#define getlen(huh, s, what) (gdb_wince_len) getword ((huh), (s), (what))
|
#define getlen(huh, s, what) (gdb_wince_len) getword ((huh), (s), (what))
|
|
|
/* Get an arbitrary block of memory from the gdb host. This comes in
|
/* Get an arbitrary block of memory from the gdb host. This comes in
|
two chunks an id/dword representing the length and the stream of memory
|
two chunks an id/dword representing the length and the stream of memory
|
itself. Returns a pointer, allocated via mempool, to a memory buffer. */
|
itself. Returns a pointer, allocated via mempool, to a memory buffer. */
|
static LPWSTR
|
static LPWSTR
|
getmemory (LPCWSTR huh, int s, gdb_wince_id what, gdb_wince_len *inlen)
|
getmemory (LPCWSTR huh, int s, gdb_wince_id what, gdb_wince_len *inlen)
|
{
|
{
|
LPVOID p;
|
LPVOID p;
|
gdb_wince_len dummy;
|
gdb_wince_len dummy;
|
|
|
if (!inlen)
|
if (!inlen)
|
inlen = &dummy;
|
inlen = &dummy;
|
|
|
*inlen = getlen (huh, s, what);
|
*inlen = getlen (huh, s, what);
|
|
|
p = mempool (*inlen); /* FIXME: check for error */
|
p = mempool (*inlen); /* FIXME: check for error */
|
|
|
if ((gdb_wince_len) sockread (huh, s, p, *inlen) != *inlen)
|
if ((gdb_wince_len) sockread (huh, s, p, *inlen) != *inlen)
|
stub_error (L"error getting string from host.");
|
stub_error (L"error getting string from host.");
|
|
|
return p;
|
return p;
|
}
|
}
|
|
|
/* Output an id/dword to the host */
|
/* Output an id/dword to the host */
|
static void
|
static void
|
putdword (LPCWSTR huh, int s, gdb_wince_id what, DWORD n)
|
putdword (LPCWSTR huh, int s, gdb_wince_id what, DWORD n)
|
{
|
{
|
if (sockwrite (huh, s, &what, sizeof (what)) != sizeof (what))
|
if (sockwrite (huh, s, &what, sizeof (what)) != sizeof (what))
|
stub_error (L"error writing record id for %s to host.", huh);
|
stub_error (L"error writing record id for %s to host.", huh);
|
if (sockwrite (huh, s, &n, sizeof (n)) != sizeof (n))
|
if (sockwrite (huh, s, &n, sizeof (n)) != sizeof (n))
|
stub_error (L"error writing %s to host.", huh);
|
stub_error (L"error writing %s to host.", huh);
|
}
|
}
|
|
|
/* Output an id/word to the host */
|
/* Output an id/word to the host */
|
static void
|
static void
|
putword (LPCWSTR huh, int s, gdb_wince_id what, WORD n)
|
putword (LPCWSTR huh, int s, gdb_wince_id what, WORD n)
|
{
|
{
|
if (sockwrite (huh, s, &what, sizeof (what)) != sizeof (what))
|
if (sockwrite (huh, s, &what, sizeof (what)) != sizeof (what))
|
stub_error (L"error writing record id for %s to host.", huh);
|
stub_error (L"error writing record id for %s to host.", huh);
|
if (sockwrite (huh, s, &n, sizeof (n)) != sizeof (n))
|
if (sockwrite (huh, s, &n, sizeof (n)) != sizeof (n))
|
stub_error (L"error writing %s to host.", huh);
|
stub_error (L"error writing %s to host.", huh);
|
}
|
}
|
|
|
/* Convenience define for outputting a "gdb_wince_len" type. */
|
/* Convenience define for outputting a "gdb_wince_len" type. */
|
#define putlen(huh, s, what, n) putword ((huh), (s), (what), (gdb_wince_len) (n))
|
#define putlen(huh, s, what, n) putword ((huh), (s), (what), (gdb_wince_len) (n))
|
|
|
/* Put an arbitrary block of memory to the gdb host. This comes in
|
/* Put an arbitrary block of memory to the gdb host. This comes in
|
two chunks an id/dword representing the length and the stream of memory
|
two chunks an id/dword representing the length and the stream of memory
|
itself. */
|
itself. */
|
static void
|
static void
|
putmemory (LPCWSTR huh, int s, gdb_wince_id what, const void *mem, gdb_wince_len len)
|
putmemory (LPCWSTR huh, int s, gdb_wince_id what, const void *mem, gdb_wince_len len)
|
{
|
{
|
putlen (huh, s, what, len);
|
putlen (huh, s, what, len);
|
if (((short) len > 0) && (gdb_wince_len) sockwrite (huh, s, mem, len) != len)
|
if (((short) len > 0) && (gdb_wince_len) sockwrite (huh, s, mem, len) != len)
|
stub_error (L"error writing memory to host.");
|
stub_error (L"error writing memory to host.");
|
}
|
}
|
|
|
/* Output the result of an operation to the host. If res != 0, sends a block of
|
/* Output the result of an operation to the host. If res != 0, sends a block of
|
memory starting at mem of len bytes. If res == 0, sends -GetLastError () and
|
memory starting at mem of len bytes. If res == 0, sends -GetLastError () and
|
avoids sending the mem. */
|
avoids sending the mem. */
|
static void
|
static void
|
putresult (LPCWSTR huh, gdb_wince_result res, int s, gdb_wince_id what, const void *mem, gdb_wince_len len)
|
putresult (LPCWSTR huh, gdb_wince_result res, int s, gdb_wince_id what, const void *mem, gdb_wince_len len)
|
{
|
{
|
if (!res)
|
if (!res)
|
len = -(int) GetLastError ();
|
len = -(int) GetLastError ();
|
putmemory (huh, s, what, mem, len);
|
putmemory (huh, s, what, mem, len);
|
}
|
}
|
|
|
static HANDLE curproc; /* Currently unused, but nice for debugging */
|
static HANDLE curproc; /* Currently unused, but nice for debugging */
|
|
|
/* Emulate CreateProcess. Returns &pi if no error. */
|
/* Emulate CreateProcess. Returns &pi if no error. */
|
static void
|
static void
|
create_process (int s)
|
create_process (int s)
|
{
|
{
|
LPWSTR exec_file = getmemory (L"CreateProcess exec_file", s, GDB_CREATEPROCESS, NULL);
|
LPWSTR exec_file = getmemory (L"CreateProcess exec_file", s, GDB_CREATEPROCESS, NULL);
|
LPWSTR args = getmemory (L"CreateProcess args", s, GDB_CREATEPROCESS, NULL);
|
LPWSTR args = getmemory (L"CreateProcess args", s, GDB_CREATEPROCESS, NULL);
|
DWORD flags = getdword (L"CreateProcess flags", s, GDB_CREATEPROCESS);
|
DWORD flags = getdword (L"CreateProcess flags", s, GDB_CREATEPROCESS);
|
PROCESS_INFORMATION pi;
|
PROCESS_INFORMATION pi;
|
gdb_wince_result res;
|
gdb_wince_result res;
|
|
|
res = CreateProcessW (exec_file,
|
res = CreateProcessW (exec_file,
|
args, /* command line */
|
args, /* command line */
|
NULL, /* Security */
|
NULL, /* Security */
|
NULL, /* thread */
|
NULL, /* thread */
|
FALSE, /* inherit handles */
|
FALSE, /* inherit handles */
|
flags, /* start flags */
|
flags, /* start flags */
|
NULL,
|
NULL,
|
NULL, /* current directory */
|
NULL, /* current directory */
|
NULL,
|
NULL,
|
&pi);
|
&pi);
|
putresult (L"CreateProcess", res, s, GDB_CREATEPROCESS, &pi, sizeof (pi));
|
putresult (L"CreateProcess", res, s, GDB_CREATEPROCESS, &pi, sizeof (pi));
|
curproc = pi.hProcess;
|
curproc = pi.hProcess;
|
}
|
}
|
|
|
/* Emulate TerminateProcess. Returns return value of TerminateProcess if
|
/* Emulate TerminateProcess. Returns return value of TerminateProcess if
|
no error.
|
no error.
|
*** NOTE: For some unknown reason, TerminateProcess seems to always return
|
*** NOTE: For some unknown reason, TerminateProcess seems to always return
|
an ACCESS_DENIED (on Windows CE???) error. So, force a TRUE value for now. */
|
an ACCESS_DENIED (on Windows CE???) error. So, force a TRUE value for now. */
|
static void
|
static void
|
terminate_process (int s)
|
terminate_process (int s)
|
{
|
{
|
gdb_wince_result res;
|
gdb_wince_result res;
|
HANDLE h = gethandle (L"TerminateProcess handle", s, GDB_TERMINATEPROCESS);
|
HANDLE h = gethandle (L"TerminateProcess handle", s, GDB_TERMINATEPROCESS);
|
|
|
res = TerminateProcess (h, 0) || 1; /* Doesn't seem to work on SH so default to TRUE */
|
res = TerminateProcess (h, 0) || 1; /* Doesn't seem to work on SH so default to TRUE */
|
putresult (L"Terminate process result", res, s, GDB_TERMINATEPROCESS,
|
putresult (L"Terminate process result", res, s, GDB_TERMINATEPROCESS,
|
&res, sizeof (res));
|
&res, sizeof (res));
|
}
|
}
|
|
|
/* Emulate WaitForDebugEvent. Returns the debug event on success. */
|
/* Emulate WaitForDebugEvent. Returns the debug event on success. */
|
static void
|
static void
|
wait_for_debug_event (int s)
|
wait_for_debug_event (int s)
|
{
|
{
|
DWORD ms = getdword (L"WaitForDebugEvent ms", s, GDB_WAITFORDEBUGEVENT);
|
DWORD ms = getdword (L"WaitForDebugEvent ms", s, GDB_WAITFORDEBUGEVENT);
|
gdb_wince_result res;
|
gdb_wince_result res;
|
DEBUG_EVENT ev;
|
DEBUG_EVENT ev;
|
|
|
res = WaitForDebugEvent (&ev, ms);
|
res = WaitForDebugEvent (&ev, ms);
|
putresult (L"WaitForDebugEvent event", res, s, GDB_WAITFORDEBUGEVENT,
|
putresult (L"WaitForDebugEvent event", res, s, GDB_WAITFORDEBUGEVENT,
|
&ev, sizeof (ev));
|
&ev, sizeof (ev));
|
}
|
}
|
|
|
/* Emulate GetThreadContext. Returns CONTEXT structure on success. */
|
/* Emulate GetThreadContext. Returns CONTEXT structure on success. */
|
static void
|
static void
|
get_thread_context (int s)
|
get_thread_context (int s)
|
{
|
{
|
CONTEXT c;
|
CONTEXT c;
|
HANDLE h = gethandle (L"GetThreadContext handle", s, GDB_GETTHREADCONTEXT);
|
HANDLE h = gethandle (L"GetThreadContext handle", s, GDB_GETTHREADCONTEXT);
|
gdb_wince_result res;
|
gdb_wince_result res;
|
|
|
memset (&c, 0, sizeof (c));
|
memset (&c, 0, sizeof (c));
|
c.ContextFlags = getdword (L"GetThreadContext handle", s, GDB_GETTHREADCONTEXT);
|
c.ContextFlags = getdword (L"GetThreadContext handle", s, GDB_GETTHREADCONTEXT);
|
|
|
res = (gdb_wince_result) GetThreadContext (h, &c);
|
res = (gdb_wince_result) GetThreadContext (h, &c);
|
putresult (L"GetThreadContext data", res, s, GDB_GETTHREADCONTEXT,
|
putresult (L"GetThreadContext data", res, s, GDB_GETTHREADCONTEXT,
|
&c, sizeof (c));
|
&c, sizeof (c));
|
}
|
}
|
|
|
/* Emulate GetThreadContext. Returns success of SetThreadContext. */
|
/* Emulate GetThreadContext. Returns success of SetThreadContext. */
|
static void
|
static void
|
set_thread_context (int s)
|
set_thread_context (int s)
|
{
|
{
|
gdb_wince_result res;
|
gdb_wince_result res;
|
HANDLE h = gethandle (L"SetThreadContext handle", s, GDB_SETTHREADCONTEXT);
|
HANDLE h = gethandle (L"SetThreadContext handle", s, GDB_SETTHREADCONTEXT);
|
LPCONTEXT pc = (LPCONTEXT) getmemory (L"SetThreadContext context", s,
|
LPCONTEXT pc = (LPCONTEXT) getmemory (L"SetThreadContext context", s,
|
GDB_SETTHREADCONTEXT, NULL);
|
GDB_SETTHREADCONTEXT, NULL);
|
|
|
res = SetThreadContext (h, pc);
|
res = SetThreadContext (h, pc);
|
putresult (L"SetThreadContext result", res, s, GDB_SETTHREADCONTEXT,
|
putresult (L"SetThreadContext result", res, s, GDB_SETTHREADCONTEXT,
|
&res, sizeof (res));
|
&res, sizeof (res));
|
}
|
}
|
|
|
/* Emulate ReadProcessMemory. Returns memory read on success. */
|
/* Emulate ReadProcessMemory. Returns memory read on success. */
|
static void
|
static void
|
read_process_memory (int s)
|
read_process_memory (int s)
|
{
|
{
|
HANDLE h = gethandle (L"ReadProcessMemory handle", s, GDB_READPROCESSMEMORY);
|
HANDLE h = gethandle (L"ReadProcessMemory handle", s, GDB_READPROCESSMEMORY);
|
LPVOID p = getpvoid (L"ReadProcessMemory base", s, GDB_READPROCESSMEMORY);
|
LPVOID p = getpvoid (L"ReadProcessMemory base", s, GDB_READPROCESSMEMORY);
|
gdb_wince_len len = getlen (L"ReadProcessMemory size", s, GDB_READPROCESSMEMORY);
|
gdb_wince_len len = getlen (L"ReadProcessMemory size", s, GDB_READPROCESSMEMORY);
|
LPVOID buf = mempool ((gdb_wince_len) len);
|
LPVOID buf = mempool ((gdb_wince_len) len);
|
DWORD outlen;
|
DWORD outlen;
|
gdb_wince_result res;
|
gdb_wince_result res;
|
|
|
outlen = 0;
|
outlen = 0;
|
res = (gdb_wince_result) ReadProcessMemory (h, p, buf, len, &outlen);
|
res = (gdb_wince_result) ReadProcessMemory (h, p, buf, len, &outlen);
|
putresult (L"ReadProcessMemory data", res, s, GDB_READPROCESSMEMORY,
|
putresult (L"ReadProcessMemory data", res, s, GDB_READPROCESSMEMORY,
|
buf, (gdb_wince_len) outlen);
|
buf, (gdb_wince_len) outlen);
|
}
|
}
|
|
|
/* Emulate WriteProcessMemory. Returns WriteProcessMemory success. */
|
/* Emulate WriteProcessMemory. Returns WriteProcessMemory success. */
|
static void
|
static void
|
write_process_memory (int s)
|
write_process_memory (int s)
|
{
|
{
|
HANDLE h = gethandle (L"WriteProcessMemory handle", s, GDB_WRITEPROCESSMEMORY);
|
HANDLE h = gethandle (L"WriteProcessMemory handle", s, GDB_WRITEPROCESSMEMORY);
|
LPVOID p = getpvoid (L"WriteProcessMemory base", s, GDB_WRITEPROCESSMEMORY);
|
LPVOID p = getpvoid (L"WriteProcessMemory base", s, GDB_WRITEPROCESSMEMORY);
|
gdb_wince_len len;
|
gdb_wince_len len;
|
LPVOID buf = getmemory (L"WriteProcessMemory buf", s, GDB_WRITEPROCESSMEMORY, &len);
|
LPVOID buf = getmemory (L"WriteProcessMemory buf", s, GDB_WRITEPROCESSMEMORY, &len);
|
DWORD outlen;
|
DWORD outlen;
|
gdb_wince_result res;
|
gdb_wince_result res;
|
|
|
outlen = 0;
|
outlen = 0;
|
res = WriteProcessMemory (h, p, buf, (DWORD) len, &outlen);
|
res = WriteProcessMemory (h, p, buf, (DWORD) len, &outlen);
|
putresult (L"WriteProcessMemory data", res, s, GDB_WRITEPROCESSMEMORY,
|
putresult (L"WriteProcessMemory data", res, s, GDB_WRITEPROCESSMEMORY,
|
(gdb_wince_len *) & outlen, sizeof (gdb_wince_len));
|
(gdb_wince_len *) & outlen, sizeof (gdb_wince_len));
|
}
|
}
|
|
|
/* Return non-zero to gdb host if given thread is alive. */
|
/* Return non-zero to gdb host if given thread is alive. */
|
static void
|
static void
|
thread_alive (int s)
|
thread_alive (int s)
|
{
|
{
|
HANDLE h = gethandle (L"ThreadAlive handle", s, GDB_THREADALIVE);
|
HANDLE h = gethandle (L"ThreadAlive handle", s, GDB_THREADALIVE);
|
gdb_wince_result res;
|
gdb_wince_result res;
|
|
|
res = WaitForSingleObject (h, 0) == WAIT_OBJECT_0 ? 1 : 0;
|
res = WaitForSingleObject (h, 0) == WAIT_OBJECT_0 ? 1 : 0;
|
putresult (L"WriteProcessMemory data", res, s, GDB_THREADALIVE,
|
putresult (L"WriteProcessMemory data", res, s, GDB_THREADALIVE,
|
&res, sizeof (res));
|
&res, sizeof (res));
|
}
|
}
|
|
|
/* Emulate SuspendThread. Returns value returned from SuspendThread. */
|
/* Emulate SuspendThread. Returns value returned from SuspendThread. */
|
static void
|
static void
|
suspend_thread (int s)
|
suspend_thread (int s)
|
{
|
{
|
DWORD res;
|
DWORD res;
|
HANDLE h = gethandle (L"SuspendThread handle", s, GDB_SUSPENDTHREAD);
|
HANDLE h = gethandle (L"SuspendThread handle", s, GDB_SUSPENDTHREAD);
|
res = SuspendThread (h);
|
res = SuspendThread (h);
|
putdword (L"SuspendThread result", s, GDB_SUSPENDTHREAD, res);
|
putdword (L"SuspendThread result", s, GDB_SUSPENDTHREAD, res);
|
}
|
}
|
|
|
/* Emulate ResumeThread. Returns value returned from ResumeThread. */
|
/* Emulate ResumeThread. Returns value returned from ResumeThread. */
|
static void
|
static void
|
resume_thread (int s)
|
resume_thread (int s)
|
{
|
{
|
DWORD res;
|
DWORD res;
|
HANDLE h = gethandle (L"ResumeThread handle", s, GDB_RESUMETHREAD);
|
HANDLE h = gethandle (L"ResumeThread handle", s, GDB_RESUMETHREAD);
|
res = ResumeThread (h);
|
res = ResumeThread (h);
|
putdword (L"ResumeThread result", s, GDB_RESUMETHREAD, res);
|
putdword (L"ResumeThread result", s, GDB_RESUMETHREAD, res);
|
}
|
}
|
|
|
/* Emulate ContinueDebugEvent. Returns ContinueDebugEvent success. */
|
/* Emulate ContinueDebugEvent. Returns ContinueDebugEvent success. */
|
static void
|
static void
|
continue_debug_event (int s)
|
continue_debug_event (int s)
|
{
|
{
|
gdb_wince_result res;
|
gdb_wince_result res;
|
DWORD pid = getdword (L"ContinueDebugEvent pid", s, GDB_CONTINUEDEBUGEVENT);
|
DWORD pid = getdword (L"ContinueDebugEvent pid", s, GDB_CONTINUEDEBUGEVENT);
|
DWORD tid = getdword (L"ContinueDebugEvent tid", s, GDB_CONTINUEDEBUGEVENT);
|
DWORD tid = getdword (L"ContinueDebugEvent tid", s, GDB_CONTINUEDEBUGEVENT);
|
DWORD status = getdword (L"ContinueDebugEvent status", s, GDB_CONTINUEDEBUGEVENT);
|
DWORD status = getdword (L"ContinueDebugEvent status", s, GDB_CONTINUEDEBUGEVENT);
|
res = (gdb_wince_result) ContinueDebugEvent (pid, tid, status);
|
res = (gdb_wince_result) ContinueDebugEvent (pid, tid, status);
|
putresult (L"ContinueDebugEvent result", res, s, GDB_CONTINUEDEBUGEVENT, &res, sizeof (res));
|
putresult (L"ContinueDebugEvent result", res, s, GDB_CONTINUEDEBUGEVENT, &res, sizeof (res));
|
}
|
}
|
|
|
/* Emulate CloseHandle. Returns CloseHandle success. */
|
/* Emulate CloseHandle. Returns CloseHandle success. */
|
static void
|
static void
|
close_handle (int s)
|
close_handle (int s)
|
{
|
{
|
gdb_wince_result res;
|
gdb_wince_result res;
|
HANDLE h = gethandle (L"CloseHandle handle", s, GDB_CLOSEHANDLE);
|
HANDLE h = gethandle (L"CloseHandle handle", s, GDB_CLOSEHANDLE);
|
res = (gdb_wince_result) CloseHandle (h);
|
res = (gdb_wince_result) CloseHandle (h);
|
putresult (L"CloseHandle result", res, s, GDB_CLOSEHANDLE, &res, sizeof (res));
|
putresult (L"CloseHandle result", res, s, GDB_CLOSEHANDLE, &res, sizeof (res));
|
}
|
}
|
|
|
/* Handle single step instruction */
|
/* Handle single step instruction */
|
static void
|
static void
|
single_step (int s)
|
single_step (int s)
|
{
|
{
|
}
|
}
|
|
|
/* Main loop for reading requests from gdb host on the socket. */
|
/* Main loop for reading requests from gdb host on the socket. */
|
static void
|
static void
|
dispatch (int s)
|
dispatch (int s)
|
{
|
{
|
gdb_wince_id id;
|
gdb_wince_id id;
|
|
|
/* Continue reading from socket until receive a GDB_STOPSUB. */
|
/* Continue reading from socket until receive a GDB_STOPSUB. */
|
while (sockread (L"Dispatch", s, &id, sizeof (id)) > 0)
|
while (sockread (L"Dispatch", s, &id, sizeof (id)) > 0)
|
{
|
{
|
skip_next_id = 1;
|
skip_next_id = 1;
|
switch (id)
|
switch (id)
|
{
|
{
|
case GDB_CREATEPROCESS:
|
case GDB_CREATEPROCESS:
|
create_process (s);
|
create_process (s);
|
break;
|
break;
|
case GDB_TERMINATEPROCESS:
|
case GDB_TERMINATEPROCESS:
|
terminate_process (s);
|
terminate_process (s);
|
break;
|
break;
|
case GDB_WAITFORDEBUGEVENT:
|
case GDB_WAITFORDEBUGEVENT:
|
wait_for_debug_event (s);
|
wait_for_debug_event (s);
|
break;
|
break;
|
case GDB_GETTHREADCONTEXT:
|
case GDB_GETTHREADCONTEXT:
|
get_thread_context (s);
|
get_thread_context (s);
|
break;
|
break;
|
case GDB_SETTHREADCONTEXT:
|
case GDB_SETTHREADCONTEXT:
|
set_thread_context (s);
|
set_thread_context (s);
|
break;
|
break;
|
case GDB_READPROCESSMEMORY:
|
case GDB_READPROCESSMEMORY:
|
read_process_memory (s);
|
read_process_memory (s);
|
break;
|
break;
|
case GDB_WRITEPROCESSMEMORY:
|
case GDB_WRITEPROCESSMEMORY:
|
write_process_memory (s);
|
write_process_memory (s);
|
break;
|
break;
|
case GDB_THREADALIVE:
|
case GDB_THREADALIVE:
|
thread_alive (s);
|
thread_alive (s);
|
break;
|
break;
|
case GDB_SUSPENDTHREAD:
|
case GDB_SUSPENDTHREAD:
|
suspend_thread (s);
|
suspend_thread (s);
|
break;
|
break;
|
case GDB_RESUMETHREAD:
|
case GDB_RESUMETHREAD:
|
resume_thread (s);
|
resume_thread (s);
|
break;
|
break;
|
case GDB_CONTINUEDEBUGEVENT:
|
case GDB_CONTINUEDEBUGEVENT:
|
continue_debug_event (s);
|
continue_debug_event (s);
|
break;
|
break;
|
case GDB_CLOSEHANDLE:
|
case GDB_CLOSEHANDLE:
|
close_handle (s);
|
close_handle (s);
|
break;
|
break;
|
case GDB_STOPSTUB:
|
case GDB_STOPSTUB:
|
terminate_process (s);
|
terminate_process (s);
|
return;
|
return;
|
case GDB_SINGLESTEP:
|
case GDB_SINGLESTEP:
|
single_step (s);
|
single_step (s);
|
return;
|
return;
|
default:
|
default:
|
{
|
{
|
WCHAR buf[80];
|
WCHAR buf[80];
|
wsprintfW (buf, L"Invalid command id received: %d", id);
|
wsprintfW (buf, L"Invalid command id received: %d", id);
|
MessageBoxW (NULL, buf, L"GDB", MB_ICONERROR);
|
MessageBoxW (NULL, buf, L"GDB", MB_ICONERROR);
|
skip_next_id = 0;
|
skip_next_id = 0;
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
/* The Windows Main entry point */
|
/* The Windows Main entry point */
|
int WINAPI
|
int WINAPI
|
WinMain (HINSTANCE hi, HINSTANCE hp, LPWSTR cmd, int show)
|
WinMain (HINSTANCE hi, HINSTANCE hp, LPWSTR cmd, int show)
|
{
|
{
|
struct hostent *h;
|
struct hostent *h;
|
int s;
|
int s;
|
struct WSAData wd;
|
struct WSAData wd;
|
struct sockaddr_in sin;
|
struct sockaddr_in sin;
|
int tmp;
|
int tmp;
|
LPWSTR whost;
|
LPWSTR whost;
|
char host[80];
|
char host[80];
|
|
|
whost = wcschr (cmd, L' '); /* Look for argument. */
|
whost = wcschr (cmd, L' '); /* Look for argument. */
|
|
|
/* If no host is specified, just use default */
|
/* If no host is specified, just use default */
|
if (whost)
|
if (whost)
|
{
|
{
|
/* Eat any spaces. */
|
/* Eat any spaces. */
|
while (*whost == L' ' || *whost == L'\t')
|
while (*whost == L' ' || *whost == L'\t')
|
whost++;
|
whost++;
|
|
|
wcstombs (host, whost, 80); /* Convert from UNICODE to ascii */
|
wcstombs (host, whost, 80); /* Convert from UNICODE to ascii */
|
}
|
}
|
|
|
MessageBoxW (NULL, whost, L"GDB", MB_ICONERROR);
|
MessageBoxW (NULL, whost, L"GDB", MB_ICONERROR);
|
|
|
/* Winsock initialization. */
|
/* Winsock initialization. */
|
if (WSAStartup (MAKEWORD (1, 1), &wd))
|
if (WSAStartup (MAKEWORD (1, 1), &wd))
|
stub_error (L"Couldn't initialize WINSOCK.");
|
stub_error (L"Couldn't initialize WINSOCK.");
|
|
|
/* If whost was specified, first try it. If it was not specified or the
|
/* If whost was specified, first try it. If it was not specified or the
|
host lookup failed, try the Windows CE magic ppp_peer lookup. ppp_peer
|
host lookup failed, try the Windows CE magic ppp_peer lookup. ppp_peer
|
is supposed to be the Windows host sitting on the other end of the
|
is supposed to be the Windows host sitting on the other end of the
|
serial cable. */
|
serial cable. */
|
if (whost && *whost && (h = gethostbyname (host)) != NULL)
|
if (whost && *whost && (h = gethostbyname (host)) != NULL)
|
/* nothing to do */ ;
|
/* nothing to do */ ;
|
else if ((h = gethostbyname ("ppp_peer")) == NULL)
|
else if ((h = gethostbyname ("ppp_peer")) == NULL)
|
stub_error (L"Couldn't get IP address of host system. Error %d", WSAGetLastError ());
|
stub_error (L"Couldn't get IP address of host system. Error %d", WSAGetLastError ());
|
|
|
/* Get a socket. */
|
/* Get a socket. */
|
if ((s = socket (AF_INET, SOCK_STREAM, 0)) < 0)
|
if ((s = socket (AF_INET, SOCK_STREAM, 0)) < 0)
|
stub_error (L"Couldn't connect to host system. Error %d", WSAGetLastError ());
|
stub_error (L"Couldn't connect to host system. Error %d", WSAGetLastError ());
|
|
|
/* Allow rapid reuse of the port. */
|
/* Allow rapid reuse of the port. */
|
tmp = 1;
|
tmp = 1;
|
setsockopt (s, SOL_SOCKET, SO_REUSEADDR, (char *) &tmp, sizeof (tmp));
|
setsockopt (s, SOL_SOCKET, SO_REUSEADDR, (char *) &tmp, sizeof (tmp));
|
|
|
/* Set up the information for connecting to the host gdb process. */
|
/* Set up the information for connecting to the host gdb process. */
|
memset (&sin, 0, sizeof (sin));
|
memset (&sin, 0, sizeof (sin));
|
sin.sin_family = h->h_addrtype;
|
sin.sin_family = h->h_addrtype;
|
memcpy (&sin.sin_addr, h->h_addr, h->h_length);
|
memcpy (&sin.sin_addr, h->h_addr, h->h_length);
|
sin.sin_port = htons (7000); /* FIXME: This should be configurable */
|
sin.sin_port = htons (7000); /* FIXME: This should be configurable */
|
|
|
/* Connect to host */
|
/* Connect to host */
|
if (connect (s, (struct sockaddr *) &sin, sizeof (sin)) < 0)
|
if (connect (s, (struct sockaddr *) &sin, sizeof (sin)) < 0)
|
stub_error (L"Couldn't connect to host gdb.");
|
stub_error (L"Couldn't connect to host gdb.");
|
|
|
/* Read from socket until told to exit. */
|
/* Read from socket until told to exit. */
|
dispatch (s);
|
dispatch (s);
|
WSACleanup ();
|
WSACleanup ();
|
return 0;
|
return 0;
|
}
|
}
|
|
|
