URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [trunk/] [gdb-5.3/] [gdb/] [wince.c] - Rev 1775
Go to most recent revision | Compare with Previous | Blame | View Log
/* Target-vector operations for controlling Windows CE child processes, for GDB. Copyright 1999, 2000, 2001 Free Software Foundation, Inc. Contributed by Cygnus Solutions, A Red Hat Company. This file is part of GDB. 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 the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* by Christopher Faylor (cgf@cygnus.com) */ /* We assume we're being built with and will be used for cygwin. */ #ifdef SHx #undef SH4 #define SH4 /* Just to get all of the CONTEXT defines. */ #endif #include "defs.h" #include "frame.h" /* required by inferior.h */ #include "inferior.h" #include "target.h" #include "gdbcore.h" #include "command.h" #include <signal.h> #include <sys/types.h> #include <fcntl.h> #include <stdlib.h> #include <windows.h> #include <rapi.h> #include <netdb.h> #include <cygwin/in.h> #include <cygwin/socket.h> #include "buildsym.h" #include "symfile.h" #include "objfiles.h" #include "gdb_string.h" #include "gdbthread.h" #include "gdbcmd.h" #include <sys/param.h> #include "wince-stub.h" #include <time.h> #include "regcache.h" /* The ui's event loop. */ extern int (*ui_loop_hook) (int signo); /* If we're not using the old Cygwin header file set, define the following which never should have been in the generic Win32 API headers in the first place since they were our own invention... */ #ifndef _GNU_H_WINDOWS_H #define FLAG_TRACE_BIT 0x100 #ifdef CONTEXT_FLOATING_POINT #define CONTEXT_DEBUGGER0 (CONTEXT_FULL | CONTEXT_FLOATING_POINT) #else #define CONTEXT_DEBUGGER0 (CONTEXT_FULL) #endif #endif #ifdef SH4 #define CONTEXT_DEBUGGER ((CONTEXT_DEBUGGER0 & ~(CONTEXT_SH4 | CONTEXT_FLOATING_POINT)) | CONTEXT_SH3) #else #define CONTEXT_DEBUGGER CONTEXT_DEBUGGER0 #endif /* The string sent by cygwin when it processes a signal. FIXME: This should be in a cygwin include file. */ #define CYGWIN_SIGNAL_STRING "cygwin: signal" #define CHECK(x) check (x, __FILE__,__LINE__) #define DEBUG_EXEC(x) if (debug_exec) printf x #define DEBUG_EVENTS(x) if (debug_events) printf x #define DEBUG_MEM(x) if (debug_memory) printf x #define DEBUG_EXCEPT(x) if (debug_exceptions) printf x static int connection_initialized = 0; /* True if we've initialized a RAPI session. */ /* The directory where the stub and executable files are uploaded. */ static const char *remote_directory = "\\gdb"; /* The types automatic upload available. */ static enum { UPLOAD_ALWAYS = 0, UPLOAD_NEWER = 1, UPLOAD_NEVER = 2 } upload_when = UPLOAD_NEWER; /* Valid options for 'set remoteupload'. Note that options must track upload_when enum. */ static struct opts { const char *name; int abbrev; } upload_options[3] = { { "always", 1 } , { "newer", 3 } , { "never", 3 } }; static char *remote_upload = NULL; /* Set by set remoteupload */ static int remote_add_host = 0; /* Forward declaration */ extern struct target_ops child_ops; static int win32_child_thread_alive (ptid_t); void child_kill_inferior (void); static int last_sig = 0; /* Set if a signal was received from the debugged process */ /* Thread information structure used to track information that is not available in gdb's thread structure. */ typedef struct thread_info_struct { struct thread_info_struct *next; DWORD id; HANDLE h; char *name; int suspend_count; int stepped; /* True if stepped. */ CORE_ADDR step_pc; unsigned long step_prev; CONTEXT context; } thread_info; static thread_info thread_head = {NULL}; static thread_info * thread_rec (DWORD id, int get_context); /* The process and thread handles for the above context. */ static DEBUG_EVENT current_event; /* The current debug event from WaitForDebugEvent */ static HANDLE current_process_handle; /* Currently executing process */ static thread_info *current_thread; /* Info on currently selected thread */ static thread_info *this_thread; /* Info on thread returned by wait_for_debug_event */ static DWORD main_thread_id; /* Thread ID of the main thread */ /* Counts of things. */ static int exception_count = 0; static int event_count = 0; /* User options. */ static int debug_exec = 0; /* show execution */ static int debug_events = 0; /* show events from kernel */ static int debug_memory = 0; /* show target memory accesses */ static int debug_exceptions = 0; /* show target exceptions */ /* An array of offset mappings into a Win32 Context structure. This is a one-to-one mapping which is indexed by gdb's register numbers. It retrieves an offset into the context structure where the 4 byte register is located. An offset value of -1 indicates that Win32 does not provide this register in it's CONTEXT structure. regptr will return zero for this register. This is used by the regptr function. */ #define context_offset(x) ((int)&(((PCONTEXT)NULL)->x)) static const int mappings[NUM_REGS + 1] = { #ifdef __i386__ context_offset (Eax), context_offset (Ecx), context_offset (Edx), context_offset (Ebx), context_offset (Esp), context_offset (Ebp), context_offset (Esi), context_offset (Edi), context_offset (Eip), context_offset (EFlags), context_offset (SegCs), context_offset (SegSs), context_offset (SegDs), context_offset (SegEs), context_offset (SegFs), context_offset (SegGs), context_offset (FloatSave.RegisterArea[0 * 10]), context_offset (FloatSave.RegisterArea[1 * 10]), context_offset (FloatSave.RegisterArea[2 * 10]), context_offset (FloatSave.RegisterArea[3 * 10]), context_offset (FloatSave.RegisterArea[4 * 10]), context_offset (FloatSave.RegisterArea[5 * 10]), context_offset (FloatSave.RegisterArea[6 * 10]), context_offset (FloatSave.RegisterArea[7 * 10]), #elif defined(SHx) context_offset (R0), context_offset (R1), context_offset (R2), context_offset (R3), context_offset (R4), context_offset (R5), context_offset (R6), context_offset (R7), context_offset (R8), context_offset (R9), context_offset (R10), context_offset (R11), context_offset (R12), context_offset (R13), context_offset (R14), context_offset (R15), context_offset (Fir), context_offset (PR), /* Procedure Register */ context_offset (GBR), /* Global Base Register */ context_offset (MACH), /* Accumulate */ context_offset (MACL), /* Multiply */ context_offset (Psr), context_offset (Fpul), context_offset (Fpscr), context_offset (FRegs[0]), context_offset (FRegs[1]), context_offset (FRegs[2]), context_offset (FRegs[3]), context_offset (FRegs[4]), context_offset (FRegs[5]), context_offset (FRegs[6]), context_offset (FRegs[7]), context_offset (FRegs[8]), context_offset (FRegs[9]), context_offset (FRegs[10]), context_offset (FRegs[11]), context_offset (FRegs[12]), context_offset (FRegs[13]), context_offset (FRegs[14]), context_offset (FRegs[15]), context_offset (xFRegs[0]), context_offset (xFRegs[1]), context_offset (xFRegs[2]), context_offset (xFRegs[3]), context_offset (xFRegs[4]), context_offset (xFRegs[5]), context_offset (xFRegs[6]), context_offset (xFRegs[7]), context_offset (xFRegs[8]), context_offset (xFRegs[9]), context_offset (xFRegs[10]), context_offset (xFRegs[11]), context_offset (xFRegs[12]), context_offset (xFRegs[13]), context_offset (xFRegs[14]), context_offset (xFRegs[15]), #elif defined(MIPS) context_offset (IntZero), context_offset (IntAt), context_offset (IntV0), context_offset (IntV1), context_offset (IntA0), context_offset (IntA1), context_offset (IntA2), context_offset (IntA3), context_offset (IntT0), context_offset (IntT1), context_offset (IntT2), context_offset (IntT3), context_offset (IntT4), context_offset (IntT5), context_offset (IntT6), context_offset (IntT7), context_offset (IntS0), context_offset (IntS1), context_offset (IntS2), context_offset (IntS3), context_offset (IntS4), context_offset (IntS5), context_offset (IntS6), context_offset (IntS7), context_offset (IntT8), context_offset (IntT9), context_offset (IntK0), context_offset (IntK1), context_offset (IntGp), context_offset (IntSp), context_offset (IntS8), context_offset (IntRa), context_offset (Psr), context_offset (IntLo), context_offset (IntHi), -1, /* bad */ -1, /* cause */ context_offset (Fir), context_offset (FltF0), context_offset (FltF1), context_offset (FltF2), context_offset (FltF3), context_offset (FltF4), context_offset (FltF5), context_offset (FltF6), context_offset (FltF7), context_offset (FltF8), context_offset (FltF9), context_offset (FltF10), context_offset (FltF11), context_offset (FltF12), context_offset (FltF13), context_offset (FltF14), context_offset (FltF15), context_offset (FltF16), context_offset (FltF17), context_offset (FltF18), context_offset (FltF19), context_offset (FltF20), context_offset (FltF21), context_offset (FltF22), context_offset (FltF23), context_offset (FltF24), context_offset (FltF25), context_offset (FltF26), context_offset (FltF27), context_offset (FltF28), context_offset (FltF29), context_offset (FltF30), context_offset (FltF31), context_offset (Fsr), context_offset (Fir), -1, /* fp */ #elif defined(ARM) context_offset (R0), context_offset (R1), context_offset (R2), context_offset (R3), context_offset (R4), context_offset (R5), context_offset (R6), context_offset (R7), context_offset (R8), context_offset (R9), context_offset (R10), context_offset (R11), context_offset (R12), context_offset (Sp), context_offset (Lr), context_offset (Pc), -1, -1, -1, -1, -1, -1, -1, -1, -1, context_offset (Psr), #endif -1 }; /* Return a pointer into a CONTEXT field indexed by gdb register number. Return a pointer to an address pointing to zero if there is no corresponding CONTEXT field for the given register number. */ static ULONG * regptr (LPCONTEXT c, int r) { static ULONG zero = 0; ULONG *p; if (mappings[r] < 0) p = &zero; else p = (ULONG *) (((char *) c) + mappings[r]); return p; } /******************** Beginning of stub interface ********************/ /* Stub interface description: The Windows CE stub implements a crude RPC. The hand-held device connects to gdb using port 7000. gdb and the stub then communicate using packets where: byte 0: command id (e.g. Create Process) byte 1-4: DWORD byte 1-2: WORD byte 1-2: length byte 3-n: arbitrary memory. The interface is deterministic, i.e., if the stub expects a DWORD then the gdb server should send a DWORD. */ /* Note: In the functions below, the `huh' parameter is a string passed from the function containing a descriptive string concerning the current operation. This is used for error reporting. The 'what' parameter is a command id as found in wince-stub.h. Hopefully, the rest of the parameters are self-explanatory. */ static int s; /* communication socket */ /* v-style interface for handling varying argyment list error messages. Displays the error message in a dialog box and exits when user clicks on OK. */ static void vstub_error (LPCSTR fmt, va_list * args) { char buf[4096]; vsprintf (buf, fmt, args); s = -1; error ("%s", buf); } /* The standard way to display an error message and exit. */ static void stub_error (LPCSTR fmt,...) { va_list args; va_start (args, fmt); vstub_error (fmt, args); } /* Standard "oh well" can't communicate error. Someday this might attempt synchronization. */ static void attempt_resync (LPCSTR huh, int s) { stub_error ("lost synchronization with target attempting %s", huh); } /* Read arbitrary stuff from a socket. */ static int sockread (LPCSTR huh, int s, void *str, size_t n) { for (;;) { if (recv (s, str, n, 0) == n) return n; attempt_resync (huh, s); } } /* Write arbitrary stuff to a socket. */ static int sockwrite (LPCSTR huh, const void *str, size_t n) { for (;;) { if (send (s, str, n, 0) == n) return n; attempt_resync (huh, s); } } /* Output an id/dword to the host */ static void putdword (LPCSTR huh, gdb_wince_id what, DWORD n) { if (sockwrite (huh, &what, sizeof (what)) != sizeof (what)) stub_error ("error writing record id to host for %s", huh); if (sockwrite (huh, &n, sizeof (n)) != sizeof (n)) stub_error ("error writing %s to host.", huh); } /* Output an id/word to the host */ static void putword (LPCSTR huh, gdb_wince_id what, WORD n) { if (sockwrite (huh, &what, sizeof (what)) != sizeof (what)) stub_error ("error writing record id to host for %s", huh); if (sockwrite (huh, &n, sizeof (n)) != sizeof (n)) stub_error ("error writing %s host.", huh); } /* Convenience define for outputting a "gdb_wince_len" type. */ #define putlen(huh, what, n) putword((huh), (what), (gdb_wince_len) (n)) /* 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 itself. */ static void putmemory (LPCSTR huh, gdb_wince_id what, const void *mem, gdb_wince_len len) { putlen (huh, what, len); if (((short) len > 0) && sockwrite (huh, mem, len) != len) stub_error ("error writing %s to host.", huh); } /* 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 avoids sending the mem. */ static DWORD getdword (LPCSTR huh, gdb_wince_id what_this) { DWORD n; gdb_wince_id what; do if (sockread (huh, s, &what, sizeof (what)) != sizeof (what)) stub_error ("error getting record type from host - %s.", huh); while (what_this != what); if (sockread (huh, s, &n, sizeof (n)) != sizeof (n)) stub_error ("error getting %s from host.", huh); return n; } /* Get a an ID (possibly) and a WORD from the host gdb. Don't bother with the id if the main loop has already read it. */ static WORD getword (LPCSTR huh, gdb_wince_id what_this) { WORD n; gdb_wince_id what; do if (sockread (huh, s, &what, sizeof (what)) != sizeof (what)) stub_error ("error getting record type from host - %s.", huh); while (what_this != what); if (sockread (huh, s, &n, sizeof (n)) != sizeof (n)) stub_error ("error getting %s from host.", huh); return n; } /* Handy defines for getting/putting various types of values. */ #define gethandle(huh, what) (HANDLE) getdword ((huh), (what)) #define getpvoid(huh, what) (LPVOID) getdword ((huh), (what)) #define getlen(huh, what) (gdb_wince_len) getword ((huh), (what)) #define puthandle(huh, what, h) putdword ((huh), (what), (DWORD) (h)) #define putpvoid(huh, what, p) putdword ((huh), (what), (DWORD) (p)) /* Retrieve the result of an operation from the stub. If nbytes < 0) then nbytes is actually an error and nothing else follows. Use SetLastError to remember this. if nbytes > 0, retrieve a block of *nbytes into buf. */ int getresult (LPCSTR huh, gdb_wince_id what, LPVOID buf, gdb_wince_len * nbytes) { gdb_wince_len dummy; if (nbytes == NULL) nbytes = &dummy; *nbytes = getlen (huh, what); if ((short) *nbytes < 0) { SetLastError (-(short) *nbytes); return 0; } if ((gdb_wince_len) sockread (huh, s, buf, *nbytes) != *nbytes) stub_error ("couldn't read information from wince stub - %s", huh); return 1; } /* Convert "narrow" string to "wide". Manipulates a buffer ring of 8 buffers which hold the translated string. This is an arbitrary limit but it is approximately double the current needs of this module. */ LPWSTR towide (const char *s, gdb_wince_len * out_len) { static int n = -1; static LPWSTR outs[8] = {NULL /*, NULL, etc. */ }; gdb_wince_len dummy; if (!out_len) out_len = &dummy; /* First determine the length required to hold the converted string. */ *out_len = sizeof (WCHAR) * MultiByteToWideChar (CP_ACP, 0, s, -1, NULL, 0); if (!*out_len) return NULL; /* The conversion failed */ if (++n >= (sizeof (outs) / sizeof (outs[0]))) n = 0; /* wrap */ /* Allocate space for the converted string, reusing any previously allocated space, if applicable. Note that if outs[n] is NULL, xrealloc will act as a malloc (under cygwin, at least). */ outs[n] = (LPWSTR) xrealloc (outs[n], *out_len); memset (outs[n], 0, *out_len); (void) MultiByteToWideChar (CP_ACP, 0, s, -1, outs[n], *out_len); return outs[n]; } /******************** Emulation routines start here. ******************** The functions below are modelled after their Win32 counterparts. They are named similarly to Win32 and take exactly the same arguments except where otherwise noted. They communicate with the stub on the hand-held device by sending their arguments over the socket and waiting for results from the socket. There is one universal change. In cases where a length is expected to be returned in a DWORD, we use a gdb_wince_len type instead. Currently this is an unsigned short which is smaller than the standard Win32 DWORD. This is done to minimize unnecessary traffic since the connection to Windows CE can be slow. To change this, modify the typedef in wince-stub.h and change the putlen/getlen macros in this file and in the stub. */ static int create_process (LPSTR exec_file, LPSTR args, DWORD flags, PROCESS_INFORMATION * pi) { gdb_wince_len len; LPWSTR buf; buf = towide (exec_file, &len); putmemory ("CreateProcess exec_file", GDB_CREATEPROCESS, buf, len); buf = towide (args, &len); putmemory ("CreateProcess args", GDB_CREATEPROCESS, buf, len); putdword ("CreateProcess flags", GDB_CREATEPROCESS, flags); return getresult ("CreateProcess result", GDB_CREATEPROCESS, pi, NULL); } /* Emulate TerminateProcess. Don't bother with the second argument since CE ignores it. */ static int terminate_process (HANDLE h) { gdb_wince_result res; if (s < 0) return 1; puthandle ("TerminateProcess handle", GDB_TERMINATEPROCESS, h); return getresult ("TerminateProcess result", GDB_TERMINATEPROCESS, &res, NULL); } static int wait_for_debug_event (DEBUG_EVENT * ev, DWORD ms) { if (s < 0) return 1; putdword ("WaitForDebugEvent ms", GDB_WAITFORDEBUGEVENT, ms); return getresult ("WaitForDebugEvent event", GDB_WAITFORDEBUGEVENT, ev, NULL); } static int get_thread_context (HANDLE h, CONTEXT * c) { if (s < 0) return 1; puthandle ("GetThreadContext handle", GDB_GETTHREADCONTEXT, h); putdword ("GetThreadContext flags", GDB_GETTHREADCONTEXT, c->ContextFlags); return getresult ("GetThreadContext context", GDB_GETTHREADCONTEXT, c, NULL); } static int set_thread_context (HANDLE h, CONTEXT * c) { gdb_wince_result res; if (s < 0) return 1; puthandle ("SetThreadContext handle", GDB_SETTHREADCONTEXT, h); putmemory ("SetThreadContext context", GDB_SETTHREADCONTEXT, c, sizeof (*c)); return getresult ("SetThreadContext context", GDB_SETTHREADCONTEXT, &res, NULL); } static int read_process_memory (HANDLE h, LPCVOID where, LPVOID buf, gdb_wince_len len, gdb_wince_len * nbytes) { if (s < 0) return 1; puthandle ("ReadProcessMemory handle", GDB_READPROCESSMEMORY, h); putpvoid ("ReadProcessMemory location", GDB_READPROCESSMEMORY, where); putlen ("ReadProcessMemory size", GDB_READPROCESSMEMORY, len); return getresult ("ReadProcessMemory buf", GDB_READPROCESSMEMORY, buf, nbytes); } static int write_process_memory (HANDLE h, LPCVOID where, LPCVOID buf, gdb_wince_len len, gdb_wince_len * nbytes) { if (s < 0) return 1; puthandle ("WriteProcessMemory handle", GDB_WRITEPROCESSMEMORY, h); putpvoid ("WriteProcessMemory location", GDB_WRITEPROCESSMEMORY, where); putmemory ("WriteProcProcessMemory buf", GDB_WRITEPROCESSMEMORY, buf, len); return getresult ("WriteProcessMemory result", GDB_WRITEPROCESSMEMORY, nbytes, NULL); } static int remote_read_bytes (CORE_ADDR memaddr, char *myaddr, int len) { gdb_wince_len nbytes; if (!read_process_memory (current_process_handle, (LPCVOID) memaddr, (LPVOID) myaddr, len, &nbytes)) return -1; return nbytes; } static int remote_write_bytes (CORE_ADDR memaddr, char *myaddr, int len) { gdb_wince_len nbytes; if (!write_process_memory (current_process_handle, (LPCVOID) memaddr, (LPCVOID) myaddr, len, &nbytes)) return -1; return nbytes; } /* This is not a standard Win32 function. It instructs the stub to return TRUE if the thread referenced by HANDLE h is alive. */ static int thread_alive (HANDLE h) { gdb_wince_result res; if (s < 0) return 1; puthandle ("ThreadAlive handle", GDB_THREADALIVE, h); return getresult ("ThreadAlive result", GDB_THREADALIVE, &res, NULL); } static int suspend_thread (HANDLE h) { if (s < 0) return 1; puthandle ("SuspendThread handle", GDB_SUSPENDTHREAD, h); return (int) getdword ("SuspendThread result", GDB_SUSPENDTHREAD); } static int resume_thread (HANDLE h) { if (s < 0) return 1; puthandle ("ResumeThread handle", GDB_RESUMETHREAD, h); return (int) getdword ("SuspendThread result", GDB_RESUMETHREAD); } static int continue_debug_event (DWORD pid, DWORD tid, DWORD status) { gdb_wince_result res; if (s < 0) return 0; putdword ("ContinueDebugEvent pid", GDB_CONTINUEDEBUGEVENT, pid); putdword ("ContinueDebugEvent tid", GDB_CONTINUEDEBUGEVENT, tid); putdword ("ContinueDebugEvent status", GDB_CONTINUEDEBUGEVENT, status); return getresult ("ContinueDebugEvent result", GDB_CONTINUEDEBUGEVENT, &res, NULL); } static int close_handle (HANDLE h) { gdb_wince_result res; if (s < 0) return 1; puthandle ("CloseHandle handle", GDB_CLOSEHANDLE, h); return (int) getresult ("CloseHandle result", GDB_CLOSEHANDLE, &res, NULL); } /* This is not a standard Win32 interface. This function tells the stub to terminate. */ static void stop_stub (void) { if (s < 0) return; (void) putdword ("Stopping gdb stub", GDB_STOPSTUB, 0); s = -1; } /******************** End of emulation routines. ********************/ /******************** End of stub interface ********************/ #define check_for_step(a, x) (x) #ifdef MIPS static void undoSStep (thread_info * th) { if (th->stepped) { memory_remove_breakpoint (th->step_pc, (void *) &th->step_prev); th->stepped = 0; } } void wince_software_single_step (enum target_signal ignore, int insert_breakpoints_p) { unsigned long pc; thread_info *th = current_thread; /* Info on currently selected thread */ CORE_ADDR mips_next_pc (CORE_ADDR pc); if (!insert_breakpoints_p) { undoSStep (th); return; } th->stepped = 1; pc = read_register (PC_REGNUM); th->step_pc = mips_next_pc (pc); th->step_prev = 0; memory_insert_breakpoint (th->step_pc, (void *) &th->step_prev); return; } #elif SHx /* Hitachi SH architecture instruction encoding masks */ #define COND_BR_MASK 0xff00 #define UCOND_DBR_MASK 0xe000 #define UCOND_RBR_MASK 0xf0df #define TRAPA_MASK 0xff00 #define COND_DISP 0x00ff #define UCOND_DISP 0x0fff #define UCOND_REG 0x0f00 /* Hitachi SH instruction opcodes */ #define BF_INSTR 0x8b00 #define BT_INSTR 0x8900 #define BRA_INSTR 0xa000 #define BSR_INSTR 0xb000 #define JMP_INSTR 0x402b #define JSR_INSTR 0x400b #define RTS_INSTR 0x000b #define RTE_INSTR 0x002b #define TRAPA_INSTR 0xc300 #define SSTEP_INSTR 0xc3ff #define T_BIT_MASK 0x0001 static CORE_ADDR sh_get_next_pc (CONTEXT *c) { short *instrMem; int displacement; int reg; unsigned short opcode; instrMem = (short *) c->Fir; opcode = read_memory_integer ((CORE_ADDR) c->Fir, sizeof (opcode)); if ((opcode & COND_BR_MASK) == BT_INSTR) { if (c->Psr & T_BIT_MASK) { displacement = (opcode & COND_DISP) << 1; if (displacement & 0x80) displacement |= 0xffffff00; /* * Remember PC points to second instr. * after PC of branch ... so add 4 */ instrMem = (short *) (c->Fir + displacement + 4); } else instrMem += 1; } else if ((opcode & COND_BR_MASK) == BF_INSTR) { if (c->Psr & T_BIT_MASK) instrMem += 1; else { displacement = (opcode & COND_DISP) << 1; if (displacement & 0x80) displacement |= 0xffffff00; /* * Remember PC points to second instr. * after PC of branch ... so add 4 */ instrMem = (short *) (c->Fir + displacement + 4); } } else if ((opcode & UCOND_DBR_MASK) == BRA_INSTR) { displacement = (opcode & UCOND_DISP) << 1; if (displacement & 0x0800) displacement |= 0xfffff000; /* * Remember PC points to second instr. * after PC of branch ... so add 4 */ instrMem = (short *) (c->Fir + displacement + 4); } else if ((opcode & UCOND_RBR_MASK) == JSR_INSTR) { reg = (char) ((opcode & UCOND_REG) >> 8); instrMem = (short *) *regptr (c, reg); } else if (opcode == RTS_INSTR) instrMem = (short *) c->PR; else if (opcode == RTE_INSTR) instrMem = (short *) *regptr (c, 15); else if ((opcode & TRAPA_MASK) == TRAPA_INSTR) instrMem = (short *) ((opcode & ~TRAPA_MASK) << 2); else instrMem += 1; return (CORE_ADDR) instrMem; } /* Single step (in a painstaking fashion) by inspecting the current instruction and setting a breakpoint on the "next" instruction which would be executed. This code hails from sh-stub.c. */ static void undoSStep (thread_info * th) { if (th->stepped) { memory_remove_breakpoint (th->step_pc, (void *) &th->step_prev); th->stepped = 0; } return; } /* Single step (in a painstaking fashion) by inspecting the current instruction and setting a breakpoint on the "next" instruction which would be executed. This code hails from sh-stub.c. */ void wince_software_single_step (enum target_signal ignore, int insert_breakpoints_p) { thread_info *th = current_thread; /* Info on currently selected thread */ if (!insert_breakpoints_p) { undoSStep (th); return; } th->stepped = 1; th->step_pc = sh_get_next_pc (&th->context); th->step_prev = 0; memory_insert_breakpoint (th->step_pc, (void *) &th->step_prev); return; } #elif defined (ARM) #undef check_for_step static enum target_signal check_for_step (DEBUG_EVENT *ev, enum target_signal x) { thread_info *th = thread_rec (ev->dwThreadId, 1); if (th->stepped && th->step_pc == (CORE_ADDR) ev->u.Exception.ExceptionRecord.ExceptionAddress) return TARGET_SIGNAL_TRAP; else return x; } /* Single step (in a painstaking fashion) by inspecting the current instruction and setting a breakpoint on the "next" instruction which would be executed. This code hails from sh-stub.c. */ static void undoSStep (thread_info * th) { if (th->stepped) { memory_remove_breakpoint (th->step_pc, (void *) &th->step_prev); th->stepped = 0; } } void wince_software_single_step (enum target_signal ignore, int insert_breakpoints_p) { unsigned long pc; thread_info *th = current_thread; /* Info on currently selected thread */ CORE_ADDR mips_next_pc (CORE_ADDR pc); if (!insert_breakpoints_p) { undoSStep (th); return; } th->stepped = 1; pc = read_register (PC_REGNUM); th->step_pc = arm_get_next_pc (pc); th->step_prev = 0; memory_insert_breakpoint (th->step_pc, (void *) &th->step_prev); return; } #endif /* Find a thread record given a thread id. If get_context then also retrieve the context for this thread. */ static thread_info * thread_rec (DWORD id, int get_context) { thread_info *th; for (th = &thread_head; (th = th->next) != NULL;) if (th->id == id) { if (!th->suspend_count && get_context) { if (get_context > 0 && th != this_thread) th->suspend_count = suspend_thread (th->h) + 1; else if (get_context < 0) th->suspend_count = -1; th->context.ContextFlags = CONTEXT_DEBUGGER; get_thread_context (th->h, &th->context); } return th; } return NULL; } /* Add a thread to the thread list */ static thread_info * child_add_thread (DWORD id, HANDLE h) { thread_info *th; if ((th = thread_rec (id, FALSE))) return th; th = (thread_info *) xmalloc (sizeof (*th)); memset (th, 0, sizeof (*th)); th->id = id; th->h = h; th->next = thread_head.next; thread_head.next = th; add_thread (id); return th; } /* Clear out any old thread list and reintialize it to a pristine state. */ static void child_init_thread_list (void) { thread_info *th = &thread_head; DEBUG_EVENTS (("gdb: child_init_thread_list\n")); init_thread_list (); while (th->next != NULL) { thread_info *here = th->next; th->next = here->next; (void) close_handle (here->h); xfree (here); } } /* Delete a thread from the list of threads */ static void child_delete_thread (DWORD id) { thread_info *th; if (info_verbose) printf_unfiltered ("[Deleting %s]\n", target_pid_to_str (id)); delete_thread (id); for (th = &thread_head; th->next != NULL && th->next->id != id; th = th->next) continue; if (th->next != NULL) { thread_info *here = th->next; th->next = here->next; close_handle (here->h); xfree (here); } } static void check (BOOL ok, const char *file, int line) { if (!ok) printf_filtered ("error return %s:%d was %d\n", file, line, GetLastError ()); } static void do_child_fetch_inferior_registers (int r) { if (r >= 0) { supply_register (r, (char *) regptr (¤t_thread->context, r)); } else { for (r = 0; r < NUM_REGS; r++) do_child_fetch_inferior_registers (r); } } static void child_fetch_inferior_registers (int r) { current_thread = thread_rec (PIDGET (inferior_ptid), TRUE); do_child_fetch_inferior_registers (r); } static void do_child_store_inferior_registers (int r) { if (r >= 0) read_register_gen (r, ((char *) ¤t_thread->context) + mappings[r]); else { for (r = 0; r < NUM_REGS; r++) do_child_store_inferior_registers (r); } } /* Store a new register value into the current thread context */ static void child_store_inferior_registers (int r) { current_thread = thread_rec (PIDGET (inferior_ptid), TRUE); do_child_store_inferior_registers (r); } /* Wait for child to do something. Return pid of child, or -1 in case of error; store status through argument pointer OURSTATUS. */ static int handle_load_dll (void *dummy) { LOAD_DLL_DEBUG_INFO *event = ¤t_event.u.LoadDll; char dll_buf[MAX_PATH + 1]; char *p, *bufp, *imgp, *dll_name, *dll_basename; int len; dll_buf[0] = dll_buf[sizeof (dll_buf) - 1] = '\0'; if (!event->lpImageName) return 1; len = 0; for (bufp = dll_buf, imgp = event->lpImageName; bufp < dll_buf + sizeof (dll_buf); bufp += 16, imgp += 16) { gdb_wince_len nbytes = 0; (void) read_process_memory (current_process_handle, imgp, bufp, 16, &nbytes); if (!nbytes && bufp == dll_buf) return 1; /* couldn't read it */ for (p = bufp; p < bufp + nbytes; p++) { len++; if (*p == '\0') goto out; if (event->fUnicode) p++; } if (!nbytes) break; } out: if (!len) return 1; #if 0 dll_buf[len] = '\0'; #endif dll_name = alloca (len); if (!dll_name) return 1; if (!event->fUnicode) memcpy (dll_name, dll_buf, len); else WideCharToMultiByte (CP_ACP, 0, (LPCWSTR) dll_buf, len, dll_name, len, 0, 0); while ((p = strchr (dll_name, '\\'))) *p = '/'; /* FIXME!! It would be nice to define one symbol which pointed to the front of the dll if we can't find any symbols. */ if (!(dll_basename = strrchr (dll_name, '/'))) dll_basename = dll_name; else dll_basename++; /* The symbols in a dll are offset by 0x1000, which is the the offset from 0 of the first byte in an image - because of the file header and the section alignment. FIXME: Is this the real reason that we need the 0x1000 ? */ printf_unfiltered ("%x:%s", event->lpBaseOfDll, dll_name); printf_unfiltered ("\n"); return 1; } /* Handle DEBUG_STRING output from child process. */ static void handle_output_debug_string (struct target_waitstatus *ourstatus) { char p[256]; char s[255]; char *q; gdb_wince_len nbytes_read; gdb_wince_len nbytes = current_event.u.DebugString.nDebugStringLength; if (nbytes > 255) nbytes = 255; memset (p, 0, sizeof (p)); if (!read_process_memory (current_process_handle, current_event.u.DebugString.lpDebugStringData, &p, nbytes, &nbytes_read) || !*p) return; memset (s, 0, sizeof (s)); WideCharToMultiByte (CP_ACP, 0, (LPCWSTR) p, (int) nbytes_read, s, sizeof (s) - 1, NULL, NULL); q = strchr (s, '\n'); if (q != NULL) { *q = '\0'; if (*--q = '\r') *q = '\0'; } warning (s); return; } /* Handle target exceptions. */ static int handle_exception (struct target_waitstatus *ourstatus) { #if 0 if (current_event.u.Exception.dwFirstChance) return 0; #endif ourstatus->kind = TARGET_WAITKIND_STOPPED; switch (current_event.u.Exception.ExceptionRecord.ExceptionCode) { case EXCEPTION_ACCESS_VIOLATION: DEBUG_EXCEPT (("gdb: Target exception ACCESS_VIOLATION at 0x%08x\n", (unsigned) current_event.u.Exception.ExceptionRecord.ExceptionAddress)); ourstatus->value.sig = TARGET_SIGNAL_SEGV; break; case STATUS_STACK_OVERFLOW: DEBUG_EXCEPT (("gdb: Target exception STACK_OVERFLOW at 0x%08x\n", (unsigned) current_event.u.Exception.ExceptionRecord.ExceptionAddress)); ourstatus->value.sig = TARGET_SIGNAL_SEGV; break; case EXCEPTION_BREAKPOINT: DEBUG_EXCEPT (("gdb: Target exception BREAKPOINT at 0x%08x\n", (unsigned) current_event.u.Exception.ExceptionRecord.ExceptionAddress)); ourstatus->value.sig = TARGET_SIGNAL_TRAP; break; case DBG_CONTROL_C: DEBUG_EXCEPT (("gdb: Target exception CONTROL_C at 0x%08x\n", (unsigned) current_event.u.Exception.ExceptionRecord.ExceptionAddress)); ourstatus->value.sig = TARGET_SIGNAL_INT; /* User typed CTRL-C. Continue with this status */ last_sig = SIGINT; /* FIXME - should check pass state */ break; case EXCEPTION_SINGLE_STEP: DEBUG_EXCEPT (("gdb: Target exception SINGLE_STEP at 0x%08x\n", (unsigned) current_event.u.Exception.ExceptionRecord.ExceptionAddress)); ourstatus->value.sig = TARGET_SIGNAL_TRAP; break; case EXCEPTION_ILLEGAL_INSTRUCTION: DEBUG_EXCEPT (("gdb: Target exception SINGLE_ILL at 0x%08x\n", current_event.u.Exception.ExceptionRecord.ExceptionAddress)); ourstatus->value.sig = check_for_step (¤t_event, TARGET_SIGNAL_ILL); break; default: /* This may be a structured exception handling exception. In that case, we want to let the program try to handle it, and only break if we see the exception a second time. */ printf_unfiltered ("gdb: unknown target exception 0x%08x at 0x%08x\n", current_event.u.Exception.ExceptionRecord.ExceptionCode, current_event.u.Exception.ExceptionRecord.ExceptionAddress); ourstatus->value.sig = TARGET_SIGNAL_UNKNOWN; break; } exception_count++; return 1; } /* Resume all artificially suspended threads if we are continuing execution */ static BOOL child_continue (DWORD continue_status, int id) { int i; thread_info *th; BOOL res; DEBUG_EVENTS (("ContinueDebugEvent (cpid=%d, ctid=%d, DBG_CONTINUE);\n", (unsigned) current_event.dwProcessId, (unsigned) current_event.dwThreadId)); res = continue_debug_event (current_event.dwProcessId, current_event.dwThreadId, continue_status); if (res) for (th = &thread_head; (th = th->next) != NULL;) if (((id == -1) || (id == th->id)) && th->suspend_count) { for (i = 0; i < th->suspend_count; i++) (void) resume_thread (th->h); th->suspend_count = 0; } return res; } /* Get the next event from the child. Return 1 if the event requires handling by WFI (or whatever). */ static int get_child_debug_event (int pid, struct target_waitstatus *ourstatus, DWORD target_event_code, int *retval) { int breakout = 0; BOOL debug_event; DWORD continue_status, event_code; thread_info *th = NULL; static thread_info dummy_thread_info; if (!(debug_event = wait_for_debug_event (¤t_event, 1000))) { *retval = 0; goto out; } event_count++; continue_status = DBG_CONTINUE; *retval = 0; event_code = current_event.dwDebugEventCode; breakout = event_code == target_event_code; switch (event_code) { case CREATE_THREAD_DEBUG_EVENT: DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n", (unsigned) current_event.dwProcessId, (unsigned) current_event.dwThreadId, "CREATE_THREAD_DEBUG_EVENT")); /* Record the existence of this thread */ th = child_add_thread (current_event.dwThreadId, current_event.u.CreateThread.hThread); if (info_verbose) printf_unfiltered ("[New %s]\n", target_pid_to_str (current_event.dwThreadId)); break; case EXIT_THREAD_DEBUG_EVENT: DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n", (unsigned) current_event.dwProcessId, (unsigned) current_event.dwThreadId, "EXIT_THREAD_DEBUG_EVENT")); child_delete_thread (current_event.dwThreadId); th = &dummy_thread_info; break; case CREATE_PROCESS_DEBUG_EVENT: DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n", (unsigned) current_event.dwProcessId, (unsigned) current_event.dwThreadId, "CREATE_PROCESS_DEBUG_EVENT")); current_process_handle = current_event.u.CreateProcessInfo.hProcess; main_thread_id = current_event.dwThreadId; inferior_ptid = pid_to_ptid (main_thread_id); /* Add the main thread */ th = child_add_thread (PIDGET (inferior_ptid), current_event.u.CreateProcessInfo.hThread); break; case EXIT_PROCESS_DEBUG_EVENT: DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n", (unsigned) current_event.dwProcessId, (unsigned) current_event.dwThreadId, "EXIT_PROCESS_DEBUG_EVENT")); ourstatus->kind = TARGET_WAITKIND_EXITED; ourstatus->value.integer = current_event.u.ExitProcess.dwExitCode; close_handle (current_process_handle); *retval = current_event.dwProcessId; breakout = 1; break; case LOAD_DLL_DEBUG_EVENT: DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n", (unsigned) current_event.dwProcessId, (unsigned) current_event.dwThreadId, "LOAD_DLL_DEBUG_EVENT")); catch_errors (handle_load_dll, NULL, (char *) "", RETURN_MASK_ALL); registers_changed (); /* mark all regs invalid */ break; case UNLOAD_DLL_DEBUG_EVENT: DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n", (unsigned) current_event.dwProcessId, (unsigned) current_event.dwThreadId, "UNLOAD_DLL_DEBUG_EVENT")); break; /* FIXME: don't know what to do here */ case EXCEPTION_DEBUG_EVENT: DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n", (unsigned) current_event.dwProcessId, (unsigned) current_event.dwThreadId, "EXCEPTION_DEBUG_EVENT")); if (handle_exception (ourstatus)) *retval = current_event.dwThreadId; else { continue_status = DBG_EXCEPTION_NOT_HANDLED; breakout = 0; } break; case OUTPUT_DEBUG_STRING_EVENT: /* message from the kernel */ DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n", (unsigned) current_event.dwProcessId, (unsigned) current_event.dwThreadId, "OUTPUT_DEBUG_STRING_EVENT")); handle_output_debug_string ( ourstatus); break; default: printf_unfiltered ("gdb: kernel event for pid=%d tid=%d\n", current_event.dwProcessId, current_event.dwThreadId); printf_unfiltered (" unknown event code %d\n", current_event.dwDebugEventCode); break; } if (breakout) this_thread = current_thread = th ?: thread_rec (current_event.dwThreadId, TRUE); else CHECK (child_continue (continue_status, -1)); out: return breakout; } /* Wait for interesting events to occur in the target process. */ static ptid_t child_wait (ptid_t ptid, struct target_waitstatus *ourstatus) { DWORD event_code; int retval; int pid = PIDGET (ptid); /* We loop when we get a non-standard exception rather than return with a SPURIOUS because resume can try and step or modify things, which needs a current_thread->h. But some of these exceptions mark the birth or death of threads, which mean that the current thread isn't necessarily what you think it is. */ while (1) if (get_child_debug_event (pid, ourstatus, EXCEPTION_DEBUG_EVENT, &retval)) return pid_to_ptid (retval); else { int detach = 0; if (ui_loop_hook != NULL) detach = ui_loop_hook (0); if (detach) child_kill_inferior (); } } /* Print status information about what we're accessing. */ static void child_files_info (struct target_ops *ignore) { printf_unfiltered ("\tUsing the running image of child %s.\n", target_pid_to_str (inferior_ptid)); } /* ARGSUSED */ static void child_open (char *arg, int from_tty) { error ("Use the \"run\" command to start a child process."); } #define FACTOR (0x19db1ded53ea710LL) #define NSPERSEC 10000000 /* Convert a Win32 time to "UNIX" format. */ long to_time_t (FILETIME * ptr) { /* A file time is the number of 100ns since jan 1 1601 stuffed into two long words. A time_t is the number of seconds since jan 1 1970. */ long rem; long long x = ((long long) ptr->dwHighDateTime << 32) + ((unsigned) ptr->dwLowDateTime); x -= FACTOR; /* number of 100ns between 1601 and 1970 */ rem = x % ((long long) NSPERSEC); rem += (NSPERSEC / 2); x /= (long long) NSPERSEC; /* number of 100ns in a second */ x += (long long) (rem / NSPERSEC); return x; } /* Upload a file to the remote device depending on the user's 'set remoteupload' specification. */ char * upload_to_device (const char *to, const char *from) { HANDLE h; const char *dir = remote_directory ?: "\\gdb"; int len; static char *remotefile = NULL; LPWSTR wstr; char *p; DWORD err; const char *in_to = to; FILETIME crtime, actime, wrtime; time_t utime; struct stat st; int fd; /* Look for a path separator and only use trailing part. */ while ((p = strpbrk (to, "/\\")) != NULL) to = p + 1; if (!*to) error ("no filename found to upload - %s.", in_to); len = strlen (dir) + strlen (to) + 2; remotefile = (char *) xrealloc (remotefile, len); strcpy (remotefile, dir); strcat (remotefile, "\\"); strcat (remotefile, to); if (upload_when == UPLOAD_NEVER) return remotefile; /* Don't bother uploading. */ /* Open the source. */ if ((fd = openp (getenv ("PATH"), TRUE, (char *) from, O_RDONLY, 0, NULL)) < 0) error ("couldn't open %s", from); /* Get the time for later comparison. */ if (fstat (fd, &st)) st.st_mtime = (time_t) - 1; /* Always attempt to create the directory on the remote system. */ wstr = towide (dir, NULL); (void) CeCreateDirectory (wstr, NULL); /* Attempt to open the remote file, creating it if it doesn't exist. */ wstr = towide (remotefile, NULL); h = CeCreateFile (wstr, GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL); /* Some kind of problem? */ err = CeGetLastError (); if (h == NULL || h == INVALID_HANDLE_VALUE) error ("error opening file \"%s\". Windows error %d.", remotefile, err); CeGetFileTime (h, &crtime, &actime, &wrtime); utime = to_time_t (&wrtime); #if 0 if (utime < st.st_mtime) { char buf[80]; strcpy (buf, ctime(&utime)); printf ("%s < %s\n", buf, ctime(&st.st_mtime)); } #endif /* See if we need to upload the file. */ if (upload_when == UPLOAD_ALWAYS || err != ERROR_ALREADY_EXISTS || !CeGetFileTime (h, &crtime, &actime, &wrtime) || to_time_t (&wrtime) < st.st_mtime) { DWORD nbytes; char buf[4096]; int n; /* Upload the file. */ while ((n = read (fd, buf, sizeof (buf))) > 0) if (!CeWriteFile (h, buf, (DWORD) n, &nbytes, NULL)) error ("error writing to remote device - %d.", CeGetLastError ()); } close (fd); if (!CeCloseHandle (h)) error ("error closing remote file - %d.", CeGetLastError ()); return remotefile; } /* Initialize the connection to the remote device. */ static void wince_initialize (void) { int tmp; char args[256]; char *hostname; struct sockaddr_in sin; char *stub_file_name; int s0; PROCESS_INFORMATION pi; if (!connection_initialized) switch (CeRapiInit ()) { case 0: connection_initialized = 1; break; default: CeRapiUninit (); error ("Can't initialize connection to remote device.\n"); break; } /* Upload the stub to the handheld device. */ stub_file_name = upload_to_device ("wince-stub.exe", WINCE_STUB); strcpy (args, stub_file_name); if (remote_add_host) { strcat (args, " "); hostname = strchr (args, '\0'); if (gethostname (hostname, sizeof (args) - strlen (args))) error ("couldn't get hostname of this system."); } /* Get a socket. */ if ((s0 = socket (AF_INET, SOCK_STREAM, 0)) < 0) stub_error ("Couldn't connect to host system."); /* Allow rapid reuse of the port. */ tmp = 1; (void) setsockopt (s0, SOL_SOCKET, SO_REUSEADDR, (char *) &tmp, sizeof (tmp)); /* Set up the information for connecting to the host gdb process. */ memset (&sin, 0, sizeof (sin)); sin.sin_family = AF_INET; sin.sin_port = htons (7000); /* FIXME: This should be configurable */ if (bind (s0, (struct sockaddr *) &sin, sizeof (sin))) error ("couldn't bind socket"); if (listen (s0, 1)) error ("Couldn't open socket for listening.\n"); /* Start up the stub on the remote device. */ if (!CeCreateProcess (towide (stub_file_name, NULL), towide (args, NULL), NULL, NULL, 0, 0, NULL, NULL, NULL, &pi)) error ("Unable to start remote stub '%s'. Windows CE error %d.", stub_file_name, CeGetLastError ()); /* Wait for a connection */ if ((s = accept (s0, NULL, NULL)) < 0) error ("couldn't set up server for connection."); close (s0); } /* Start an inferior win32 child process and sets inferior_ptid to its pid. EXEC_FILE is the file to run. ALLARGS is a string containing the arguments to the program. ENV is the environment vector to pass. Errors reported with error(). */ static void child_create_inferior (char *exec_file, char *args, char **env) { PROCESS_INFORMATION pi; struct target_waitstatus dummy; int ret; DWORD flags, event_code; char *exec_and_args; if (!exec_file) error ("No executable specified, use `target exec'.\n"); flags = DEBUG_PROCESS; wince_initialize (); /* Make sure we've got a connection. */ exec_file = upload_to_device (exec_file, exec_file); while (*args == ' ') args++; /* Allocate space for "command<sp>args" */ if (*args == '\0') { exec_and_args = alloca (strlen (exec_file) + 1); strcpy (exec_and_args, exec_file); } else { exec_and_args = alloca (strlen (exec_file + strlen (args) + 2)); sprintf (exec_and_args, "%s %s", exec_file, args); } memset (&pi, 0, sizeof (pi)); /* Execute the process */ if (!create_process (exec_file, exec_and_args, flags, &pi)) error ("Error creating process %s, (error %d)\n", exec_file, GetLastError ()); exception_count = 0; event_count = 0; current_process_handle = pi.hProcess; current_event.dwProcessId = pi.dwProcessId; memset (¤t_event, 0, sizeof (current_event)); current_event.dwThreadId = pi.dwThreadId; inferior_ptid = pid_to_ptid (current_event.dwThreadId); push_target (&child_ops); child_init_thread_list (); child_add_thread (pi.dwThreadId, pi.hThread); init_wait_for_inferior (); clear_proceed_status (); target_terminal_init (); target_terminal_inferior (); /* Run until process and threads are loaded */ while (!get_child_debug_event (PIDGET (inferior_ptid), &dummy, CREATE_PROCESS_DEBUG_EVENT, &ret)) continue; proceed ((CORE_ADDR) -1, TARGET_SIGNAL_0, 0); } /* Chile has gone bye-bye. */ static void child_mourn_inferior (void) { (void) child_continue (DBG_CONTINUE, -1); unpush_target (&child_ops); stop_stub (); CeRapiUninit (); connection_initialized = 0; generic_mourn_inferior (); } /* Move memory from child to/from gdb. */ int child_xfer_memory (CORE_ADDR memaddr, char *our, int len, int write, struct mem_attrib *attrib, struct target_ops *target) { if (len <= 0) return 0; if (write) res = remote_write_bytes (memaddr, our, len); else res = remote_read_bytes (memaddr, our, len); return res; } /* Terminate the process and wait for child to tell us it has completed. */ void child_kill_inferior (void) { CHECK (terminate_process (current_process_handle)); for (;;) { if (!child_continue (DBG_CONTINUE, -1)) break; if (!wait_for_debug_event (¤t_event, INFINITE)) break; if (current_event.dwDebugEventCode == EXIT_PROCESS_DEBUG_EVENT) break; } CHECK (close_handle (current_process_handle)); close_handle (current_thread->h); target_mourn_inferior (); /* or just child_mourn_inferior? */ } /* Resume the child after an exception. */ void child_resume (ptid_t ptid, int step, enum target_signal sig) { thread_info *th; DWORD continue_status = last_sig > 0 && last_sig < NSIG ? DBG_EXCEPTION_NOT_HANDLED : DBG_CONTINUE; int pid = PIDGET (ptid); DEBUG_EXEC (("gdb: child_resume (pid=%d, step=%d, sig=%d);\n", pid, step, sig)); /* Get context for currently selected thread */ th = thread_rec (current_event.dwThreadId, FALSE); if (th->context.ContextFlags) { CHECK (set_thread_context (th->h, &th->context)); th->context.ContextFlags = 0; } /* Allow continuing with the same signal that interrupted us. Otherwise complain. */ if (sig && sig != last_sig) fprintf_unfiltered (gdb_stderr, "Can't send signals to the child. signal %d\n", sig); last_sig = 0; child_continue (continue_status, pid); } static void child_prepare_to_store (void) { /* Do nothing, since we can store individual regs */ } static int child_can_run (void) { return 1; } static void child_close (void) { DEBUG_EVENTS (("gdb: child_close, inferior_ptid=%d\n", PIDGET (inferior_ptid))); } /* Explicitly upload file to remotedir */ static void child_load (char *file, int from_tty) { upload_to_device (file, file); } struct target_ops child_ops; static void init_child_ops (void) { memset (&child_ops, 0, sizeof (child_ops)); child_ops.to_shortname = (char *) "child"; child_ops.to_longname = (char *) "Windows CE process"; child_ops.to_doc = (char *) "Windows CE process (started by the \"run\" command)."; child_ops.to_open = child_open; child_ops.to_close = child_close; child_ops.to_resume = child_resume; child_ops.to_wait = child_wait; child_ops.to_fetch_registers = child_fetch_inferior_registers; child_ops.to_store_registers = child_store_inferior_registers; child_ops.to_prepare_to_store = child_prepare_to_store; child_ops.to_xfer_memory = child_xfer_memory; child_ops.to_files_info = child_files_info; child_ops.to_insert_breakpoint = memory_insert_breakpoint; child_ops.to_remove_breakpoint = memory_remove_breakpoint; child_ops.to_terminal_init = terminal_init_inferior; child_ops.to_terminal_inferior = terminal_inferior; child_ops.to_terminal_ours_for_output = terminal_ours_for_output; child_ops.to_terminal_ours = terminal_ours; child_ops.to_terminal_save_ours = terminal_save_ours; child_ops.to_terminal_info = child_terminal_info; child_ops.to_kill = child_kill_inferior; child_ops.to_load = child_load; child_ops.to_create_inferior = child_create_inferior; child_ops.to_mourn_inferior = child_mourn_inferior; child_ops.to_can_run = child_can_run; child_ops.to_thread_alive = win32_child_thread_alive; child_ops.to_stratum = process_stratum; child_ops.to_has_all_memory = 1; child_ops.to_has_memory = 1; child_ops.to_has_stack = 1; child_ops.to_has_registers = 1; child_ops.to_has_execution = 1; child_ops.to_sections = 0; child_ops.to_sections_end = 0; child_ops.to_magic = OPS_MAGIC; } /* Handle 'set remoteupload' parameter. */ #define replace_upload(what) \ upload_when = what; \ remote_upload = xrealloc (remote_upload, strlen (upload_options[upload_when].name) + 1); \ strcpy (remote_upload, upload_options[upload_when].name); static void set_upload_type (char *ignore, int from_tty) { int i, len; char *bad_option; if (!remote_upload || !remote_upload[0]) { replace_upload (UPLOAD_NEWER); if (from_tty) printf_unfiltered ("Upload upload_options are: always, newer, never.\n"); return; } len = strlen (remote_upload); for (i = 0; i < (sizeof (upload_options) / sizeof (upload_options[0])); i++) if (len >= upload_options[i].abbrev && strncasecmp (remote_upload, upload_options[i].name, len) == 0) { replace_upload (i); return; } bad_option = remote_upload; replace_upload (UPLOAD_NEWER); error ("Unknown upload type: %s.", bad_option); } void _initialize_wince (void) { struct cmd_list_element *set; init_child_ops (); add_show_from_set (add_set_cmd ((char *) "remotedirectory", no_class, var_string_noescape, (char *) &remote_directory, (char *) "Set directory for remote upload.\n", &setlist), &showlist); remote_directory = xstrdup (remote_directory); set = add_set_cmd ((char *) "remoteupload", no_class, var_string_noescape, (char *) &remote_upload, (char *) "Set how to upload executables to remote device.\n", &setlist); add_show_from_set (set, &showlist); set_cmd_cfunc (set, set_upload_type); set_upload_type (NULL, 0); add_show_from_set (add_set_cmd ((char *) "debugexec", class_support, var_boolean, (char *) &debug_exec, (char *) "Set whether to display execution in child process.", &setlist), &showlist); add_show_from_set (add_set_cmd ((char *) "remoteaddhost", class_support, var_boolean, (char *) &remote_add_host, (char *) "Set whether to add this host to remote stub arguments for\n debugging over a network.", &setlist), &showlist); add_show_from_set (add_set_cmd ((char *) "debugevents", class_support, var_boolean, (char *) &debug_events, (char *) "Set whether to display kernel events in child process.", &setlist), &showlist); add_show_from_set (add_set_cmd ((char *) "debugmemory", class_support, var_boolean, (char *) &debug_memory, (char *) "Set whether to display memory accesses in child process.", &setlist), &showlist); add_show_from_set (add_set_cmd ((char *) "debugexceptions", class_support, var_boolean, (char *) &debug_exceptions, (char *) "Set whether to display kernel exceptions in child process.", &setlist), &showlist); add_target (&child_ops); } /* Determine if the thread referenced by "pid" is alive by "polling" it. If WaitForSingleObject returns WAIT_OBJECT_0 it means that the pid has died. Otherwise it is assumed to be alive. */ static int win32_child_thread_alive (ptid_t ptid) { int pid = PIDGET (ptid); return thread_alive (thread_rec (pid, FALSE)->h); } /* Convert pid to printable format. */ char * cygwin_pid_to_str (int pid) { static char buf[80]; if (pid == current_event.dwProcessId) sprintf (buf, "process %d", pid); else sprintf (buf, "thread %d.0x%x", (unsigned) current_event.dwProcessId, pid); return buf; }
Go to most recent revision | Compare with Previous | Blame | View Log