1 /* Target-vector operations for controlling win32 child processes, for GDB.
2 Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001
3 Free Software Foundation, Inc.
4 Contributed by Cygnus Solutions, A Red Hat Company.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without eve nthe implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
23 /* by Steve Chamberlain, sac@cygnus.com */
25 /* We assume we're being built with and will be used for cygwin. */
28 #include "frame.h" /* required by inferior.h */
33 #include "completer.h"
36 #include <sys/types.h>
41 #include <sys/cygwin.h>
46 #include "gdb_string.h"
47 #include "gdbthread.h"
49 #include <sys/param.h>
52 /* The ui's event loop. */
53 extern int (*ui_loop_hook
) (int signo
);
55 /* If we're not using the old Cygwin header file set, define the
56 following which never should have been in the generic Win32 API
57 headers in the first place since they were our own invention... */
58 #ifndef _GNU_H_WINDOWS_H
61 FLAG_TRACE_BIT
= 0x100,
62 CONTEXT_DEBUGGER
= (CONTEXT_FULL
| CONTEXT_FLOATING_POINT
)
65 #include <sys/procfs.h>
68 /* The string sent by cygwin when it processes a signal.
69 FIXME: This should be in a cygwin include file. */
70 #define CYGWIN_SIGNAL_STRING "cygwin: signal"
72 #define CHECK(x) check (x, __FILE__,__LINE__)
73 #define DEBUG_EXEC(x) if (debug_exec) printf x
74 #define DEBUG_EVENTS(x) if (debug_events) printf x
75 #define DEBUG_MEM(x) if (debug_memory) printf x
76 #define DEBUG_EXCEPT(x) if (debug_exceptions) printf x
78 /* Forward declaration */
79 extern struct target_ops child_ops
;
81 static void child_stop (void);
82 static int win32_child_thread_alive (ptid_t
);
83 void child_kill_inferior (void);
85 static int last_sig
= 0; /* Set if a signal was received from the
87 /* Thread information structure used to track information that is
88 not available in gdb's thread structure. */
89 typedef struct thread_info_struct
91 struct thread_info_struct
*next
;
101 static thread_info thread_head
;
103 /* The process and thread handles for the above context. */
105 static DEBUG_EVENT current_event
; /* The current debug event from
107 static HANDLE current_process_handle
; /* Currently executing process */
108 static thread_info
*current_thread
; /* Info on currently selected thread */
109 static DWORD main_thread_id
; /* Thread ID of the main thread */
111 /* Counts of things. */
112 static int exception_count
= 0;
113 static int event_count
= 0;
116 static int new_console
= 0;
117 static int new_group
= 1;
118 static int debug_exec
= 0; /* show execution */
119 static int debug_events
= 0; /* show events from kernel */
120 static int debug_memory
= 0; /* show target memory accesses */
121 static int debug_exceptions
= 0; /* show target exceptions */
123 /* This vector maps GDB's idea of a register's number into an address
124 in the win32 exception context vector.
126 It also contains the bit mask needed to load the register in question.
128 One day we could read a reg, we could inspect the context we
129 already have loaded, if it doesn't have the bit set that we need,
130 we read that set of registers in using GetThreadContext. If the
131 context already contains what we need, we just unpack it. Then to
132 write a register, first we have to ensure that the context contains
133 the other regs of the group, and then we copy the info in and set
136 #define context_offset(x) ((int)&(((CONTEXT *)NULL)->x))
137 static const int mappings
[] =
139 context_offset (Eax
),
140 context_offset (Ecx
),
141 context_offset (Edx
),
142 context_offset (Ebx
),
143 context_offset (Esp
),
144 context_offset (Ebp
),
145 context_offset (Esi
),
146 context_offset (Edi
),
147 context_offset (Eip
),
148 context_offset (EFlags
),
149 context_offset (SegCs
),
150 context_offset (SegSs
),
151 context_offset (SegDs
),
152 context_offset (SegEs
),
153 context_offset (SegFs
),
154 context_offset (SegGs
),
155 context_offset (FloatSave
.RegisterArea
[0 * 10]),
156 context_offset (FloatSave
.RegisterArea
[1 * 10]),
157 context_offset (FloatSave
.RegisterArea
[2 * 10]),
158 context_offset (FloatSave
.RegisterArea
[3 * 10]),
159 context_offset (FloatSave
.RegisterArea
[4 * 10]),
160 context_offset (FloatSave
.RegisterArea
[5 * 10]),
161 context_offset (FloatSave
.RegisterArea
[6 * 10]),
162 context_offset (FloatSave
.RegisterArea
[7 * 10]),
163 context_offset (FloatSave
.ControlWord
),
164 context_offset (FloatSave
.StatusWord
),
165 context_offset (FloatSave
.TagWord
),
166 context_offset (FloatSave
.ErrorSelector
),
167 context_offset (FloatSave
.ErrorOffset
),
168 context_offset (FloatSave
.DataSelector
),
169 context_offset (FloatSave
.DataOffset
),
170 context_offset (FloatSave
.ErrorSelector
)
173 #undef context_offset
175 /* This vector maps the target's idea of an exception (extracted
176 from the DEBUG_EVENT structure) to GDB's idea. */
178 struct xlate_exception
181 enum target_signal us
;
184 static const struct xlate_exception
187 {EXCEPTION_ACCESS_VIOLATION
, TARGET_SIGNAL_SEGV
},
188 {STATUS_STACK_OVERFLOW
, TARGET_SIGNAL_SEGV
},
189 {EXCEPTION_BREAKPOINT
, TARGET_SIGNAL_TRAP
},
190 {DBG_CONTROL_C
, TARGET_SIGNAL_INT
},
191 {EXCEPTION_SINGLE_STEP
, TARGET_SIGNAL_TRAP
},
194 /* Find a thread record given a thread id.
195 If get_context then also retrieve the context for this
198 thread_rec (DWORD id
, int get_context
)
202 for (th
= &thread_head
; (th
= th
->next
) != NULL
;)
205 if (!th
->suspend_count
&& get_context
)
207 if (get_context
> 0 && id
!= current_event
.dwThreadId
)
208 th
->suspend_count
= SuspendThread (th
->h
) + 1;
209 else if (get_context
< 0)
210 th
->suspend_count
= -1;
212 th
->context
.ContextFlags
= CONTEXT_DEBUGGER
;
213 GetThreadContext (th
->h
, &th
->context
);
221 /* Add a thread to the thread list */
223 child_add_thread (DWORD id
, HANDLE h
)
227 if ((th
= thread_rec (id
, FALSE
)))
230 th
= (thread_info
*) xmalloc (sizeof (*th
));
231 memset (th
, 0, sizeof (*th
));
234 th
->next
= thread_head
.next
;
235 thread_head
.next
= th
;
236 add_thread (pid_to_ptid (id
));
240 /* Clear out any old thread list and reintialize it to a
243 child_init_thread_list (void)
245 thread_info
*th
= &thread_head
;
247 DEBUG_EVENTS (("gdb: child_init_thread_list\n"));
249 while (th
->next
!= NULL
)
251 thread_info
*here
= th
->next
;
252 th
->next
= here
->next
;
253 (void) CloseHandle (here
->h
);
258 /* Delete a thread from the list of threads */
260 child_delete_thread (DWORD id
)
265 printf_unfiltered ("[Deleting %s]\n", target_pid_to_str (pid_to_ptid (id
)));
266 delete_thread (pid_to_ptid (id
));
268 for (th
= &thread_head
;
269 th
->next
!= NULL
&& th
->next
->id
!= id
;
273 if (th
->next
!= NULL
)
275 thread_info
*here
= th
->next
;
276 th
->next
= here
->next
;
277 CloseHandle (here
->h
);
283 check (BOOL ok
, const char *file
, int line
)
286 printf_filtered ("error return %s:%d was %lu\n", file
, line
, GetLastError ());
290 do_child_fetch_inferior_registers (int r
)
292 char *context_offset
= ((char *) ¤t_thread
->context
) + mappings
[r
];
296 l
= *((long *) context_offset
) & 0xffff;
297 supply_register (r
, (char *) &l
);
299 else if (r
== FOP_REGNUM
)
301 l
= (*((long *) context_offset
) >> 16) & ((1 << 11) - 1);
302 supply_register (r
, (char *) &l
);
305 supply_register (r
, context_offset
);
308 for (r
= 0; r
< NUM_REGS
; r
++)
309 do_child_fetch_inferior_registers (r
);
314 child_fetch_inferior_registers (int r
)
316 current_thread
= thread_rec (PIDGET (inferior_ptid
), TRUE
);
317 do_child_fetch_inferior_registers (r
);
321 do_child_store_inferior_registers (int r
)
324 read_register_gen (r
, ((char *) ¤t_thread
->context
) + mappings
[r
]);
327 for (r
= 0; r
< NUM_REGS
; r
++)
328 do_child_store_inferior_registers (r
);
332 /* Store a new register value into the current thread context */
334 child_store_inferior_registers (int r
)
336 current_thread
= thread_rec (PIDGET (inferior_ptid
), TRUE
);
337 do_child_store_inferior_registers (r
);
340 static int psapi_loaded
= 0;
341 static HMODULE psapi_module_handle
= NULL
;
342 static BOOL
WINAPI (*psapi_EnumProcessModules
) (HANDLE
, HMODULE
*, DWORD
, LPDWORD
) = NULL
;
343 static BOOL
WINAPI (*psapi_GetModuleInformation
) (HANDLE
, HMODULE
, LPMODULEINFO
, DWORD
) = NULL
;
344 static DWORD
WINAPI (*psapi_GetModuleFileNameExA
) (HANDLE
, HMODULE
, LPSTR
, DWORD
) = NULL
;
347 psapi_get_dll_name (DWORD BaseAddress
, char *dll_name_ret
)
353 HMODULE
*DllHandle
= dh_buf
;
358 psapi_EnumProcessModules
== NULL
||
359 psapi_GetModuleInformation
== NULL
||
360 psapi_GetModuleFileNameExA
== NULL
)
365 psapi_module_handle
= LoadLibrary ("psapi.dll");
366 if (!psapi_module_handle
)
368 /* printf_unfiltered ("error loading psapi.dll: %u", GetLastError ()); */
371 psapi_EnumProcessModules
= GetProcAddress (psapi_module_handle
, "EnumProcessModules");
372 psapi_GetModuleInformation
= GetProcAddress (psapi_module_handle
, "GetModuleInformation");
373 psapi_GetModuleFileNameExA
= (void *) GetProcAddress (psapi_module_handle
,
374 "GetModuleFileNameExA");
375 if (psapi_EnumProcessModules
== NULL
||
376 psapi_GetModuleInformation
== NULL
||
377 psapi_GetModuleFileNameExA
== NULL
)
382 ok
= (*psapi_EnumProcessModules
) (current_process_handle
,
387 if (!ok
|| !cbNeeded
)
390 DllHandle
= (HMODULE
*) alloca (cbNeeded
);
394 ok
= (*psapi_EnumProcessModules
) (current_process_handle
,
401 for (i
= 0; i
< (int) (cbNeeded
/ sizeof (HMODULE
)); i
++)
403 if (!(*psapi_GetModuleInformation
) (current_process_handle
,
407 error ("Can't get module info");
409 len
= (*psapi_GetModuleFileNameExA
) (current_process_handle
,
414 error ("Error getting dll name: %u\n", GetLastError ());
416 if ((DWORD
) (mi
.lpBaseOfDll
) == BaseAddress
)
421 dll_name_ret
[0] = '\0';
425 /* Encapsulate the information required in a call to
426 symbol_file_add_args */
427 struct safe_symbol_file_add_args
431 struct section_addr_info
*addrs
;
434 struct ui_file
*err
, *out
;
438 /* Maintain a linked list of "so" information. */
441 struct so_stuff
*next
, **last
;
445 } solib_start
, *solib_end
;
447 /* Call symbol_file_add with stderr redirected. We don't care if there
450 safe_symbol_file_add_stub (void *argv
)
452 #define p ((struct safe_symbol_file_add_args *)argv)
453 struct so_stuff
*so
= &solib_start
;
455 while ((so
= so
->next
))
456 if (so
->loaded
&& strcasecmp (so
->name
, p
->name
) == 0)
458 p
->ret
= symbol_file_add (p
->name
, p
->from_tty
, p
->addrs
, p
->mainline
, p
->flags
);
463 /* Restore gdb's stderr after calling symbol_file_add */
465 safe_symbol_file_add_cleanup (void *p
)
467 #define sp ((struct safe_symbol_file_add_args *)p)
468 gdb_flush (gdb_stderr
);
469 gdb_flush (gdb_stdout
);
470 /* ui_file_delete (gdb_stderr); */
471 ui_file_delete (gdb_stdout
);
472 /* gdb_stderr = sp->err; */
473 gdb_stdout
= sp
->out
;
477 /* symbol_file_add wrapper that prevents errors from being displayed. */
478 static struct objfile
*
479 safe_symbol_file_add (char *name
, int from_tty
,
480 struct section_addr_info
*addrs
,
481 int mainline
, int flags
)
483 struct safe_symbol_file_add_args p
;
484 struct cleanup
*cleanup
;
486 cleanup
= make_cleanup (safe_symbol_file_add_cleanup
, &p
);
490 gdb_flush (gdb_stderr
);
491 gdb_flush (gdb_stdout
);
492 /* gdb_stderr = ui_file_new (); */
493 gdb_stdout
= ui_file_new ();
495 p
.from_tty
= from_tty
;
497 p
.mainline
= mainline
;
499 catch_errors (safe_symbol_file_add_stub
, &p
, "", RETURN_MASK_ERROR
);
501 do_cleanups (cleanup
);
505 /* Remember the maximum DLL length for printing in info dll command. */
506 int max_dll_name_len
;
509 register_loaded_dll (const char *name
, DWORD load_addr
)
512 char ppath
[MAX_PATH
+ 1];
513 cygwin_conv_to_posix_path (name
, ppath
);
514 so
= (struct so_stuff
*) xmalloc (sizeof (struct so_stuff
) + strlen (ppath
) + 8 + 1);
516 so
->load_addr
= load_addr
;
517 strcpy (so
->name
, ppath
);
519 solib_end
->next
= so
;
524 /* Wait for child to do something. Return pid of child, or -1 in case
525 of error; store status through argument pointer OURSTATUS. */
527 handle_load_dll (void *dummy ATTRIBUTE_UNUSED
)
529 LOAD_DLL_DEBUG_INFO
*event
= ¤t_event
.u
.LoadDll
;
532 char dll_buf
[MAX_PATH
+ 1];
533 char *dll_name
= NULL
;
537 dll_buf
[0] = dll_buf
[sizeof (dll_buf
) - 1] = '\0';
539 if (!psapi_get_dll_name ((DWORD
) (event
->lpBaseOfDll
), dll_buf
))
540 dll_buf
[0] = dll_buf
[sizeof (dll_buf
) - 1] = '\0';
544 /* Attempt to read the name of the dll that was detected.
545 This is documented to work only when actively debugging
546 a program. It will not work for attached processes. */
547 if (dll_name
== NULL
|| *dll_name
== '\0')
549 DWORD size
= event
->fUnicode
? sizeof (WCHAR
) : sizeof (char);
553 ReadProcessMemory (current_process_handle
,
554 (LPCVOID
) event
->lpImageName
,
555 (char *) &dll_name_ptr
,
556 sizeof (dll_name_ptr
), &done
);
558 /* See if we could read the address of a string, and that the
559 address isn't null. */
561 if (done
!= sizeof (dll_name_ptr
) || !dll_name_ptr
)
566 ReadProcessMemory (current_process_handle
,
567 (LPCVOID
) (dll_name_ptr
+ len
* size
),
573 while ((b
[0] != 0 || b
[size
- 1] != 0) && done
== size
);
575 dll_name
= alloca (len
);
579 WCHAR
*unicode_dll_name
= (WCHAR
*) alloca (len
* sizeof (WCHAR
));
580 ReadProcessMemory (current_process_handle
,
581 (LPCVOID
) dll_name_ptr
,
583 len
* sizeof (WCHAR
),
586 WideCharToMultiByte (CP_ACP
, 0,
587 unicode_dll_name
, len
,
588 dll_name
, len
, 0, 0);
592 ReadProcessMemory (current_process_handle
,
593 (LPCVOID
) dll_name_ptr
,
603 (void) strlwr (dll_name
);
605 while ((p
= strchr (dll_name
, '\\')))
608 register_loaded_dll (dll_name
, (DWORD
) event
->lpBaseOfDll
+ 0x1000);
609 len
= strlen (dll_name
);
610 if (len
> max_dll_name_len
)
611 max_dll_name_len
= len
;
616 /* Return name of last loaded DLL. */
618 child_solib_loaded_library_pathname (int pid ATTRIBUTE_UNUSED
)
620 return !solib_end
|| !solib_end
->name
[0] ? NULL
: solib_end
->name
;
623 /* Clear list of loaded DLLs. */
625 child_clear_solibs (void)
627 struct so_stuff
*so
, *so1
= solib_start
.next
;
629 while ((so
= so1
) != NULL
)
635 solib_start
.next
= NULL
;
636 solib_end
= &solib_start
;
637 max_dll_name_len
= sizeof ("DLL Name") - 1;
640 /* Add DLL symbol information. */
642 solib_symbols_add (char *name
, int from_tty
, CORE_ADDR load_addr
)
644 struct section_addr_info section_addrs
;
646 /* The symbols in a dll are offset by 0x1000, which is the
647 the offset from 0 of the first byte in an image - because
648 of the file header and the section alignment. */
650 if (!name
|| !name
[0])
653 memset (§ion_addrs
, 0, sizeof (section_addrs
));
654 section_addrs
.other
[0].name
= ".text";
655 section_addrs
.other
[0].addr
= load_addr
;
656 safe_symbol_file_add (name
, from_tty
, NULL
, 0, OBJF_SHARED
);
661 /* Load DLL symbol info. */
663 dll_symbol_command (char *args
, int from_tty
)
669 error ("dll-symbols requires a file name");
672 if (n
> 4 && strcasecmp (args
+ n
- 4, ".dll") != 0)
674 char *newargs
= (char *) alloca (n
+ 4 + 1);
675 strcpy (newargs
, args
);
676 strcat (newargs
, ".dll");
680 safe_symbol_file_add (args
, from_tty
, NULL
, 0, OBJF_SHARED
| OBJF_USERLOADED
);
683 /* List currently loaded DLLs. */
685 info_dll_command (char *ignore ATTRIBUTE_UNUSED
, int from_tty ATTRIBUTE_UNUSED
)
687 struct so_stuff
*so
= &solib_start
;
692 printf ("%*s Load Address\n", -max_dll_name_len
, "DLL Name");
693 while ((so
= so
->next
) != NULL
)
694 printf_filtered ("%*s %08lx\n", -max_dll_name_len
, so
->name
, so
->load_addr
);
699 /* Handle DEBUG_STRING output from child process.
700 Cygwin prepends its messages with a "cygwin:". Interpret this as
701 a Cygwin signal. Otherwise just print the string as a warning. */
703 handle_output_debug_string (struct target_waitstatus
*ourstatus
)
708 if (!target_read_string
709 ((CORE_ADDR
) current_event
.u
.DebugString
.lpDebugStringData
, &s
, 1024, 0)
713 if (strncmp (s
, CYGWIN_SIGNAL_STRING
, sizeof (CYGWIN_SIGNAL_STRING
) - 1) != 0)
715 if (strncmp (s
, "cYg", 3) != 0)
721 int sig
= strtol (s
+ sizeof (CYGWIN_SIGNAL_STRING
) - 1, &p
, 0);
722 gotasig
= target_signal_from_host (sig
);
723 ourstatus
->value
.sig
= gotasig
;
725 ourstatus
->kind
= TARGET_WAITKIND_STOPPED
;
733 handle_exception (struct target_waitstatus
*ourstatus
)
736 DWORD code
= current_event
.u
.Exception
.ExceptionRecord
.ExceptionCode
;
738 ourstatus
->kind
= TARGET_WAITKIND_STOPPED
;
740 /* Record the context of the current thread */
741 th
= thread_rec (current_event
.dwThreadId
, -1);
745 case EXCEPTION_ACCESS_VIOLATION
:
746 DEBUG_EXCEPT (("gdb: Target exception ACCESS_VIOLATION at 0x%08lx\n",
747 (DWORD
) current_event
.u
.Exception
.ExceptionRecord
.ExceptionAddress
));
748 ourstatus
->value
.sig
= TARGET_SIGNAL_SEGV
;
751 case STATUS_FLOAT_UNDERFLOW
:
752 case STATUS_FLOAT_DIVIDE_BY_ZERO
:
753 case STATUS_FLOAT_OVERFLOW
:
754 case STATUS_INTEGER_DIVIDE_BY_ZERO
:
755 DEBUG_EXCEPT (("gdb: Target exception STACK_OVERFLOW at 0x%08lx\n",
756 (DWORD
) current_event
.u
.Exception
.ExceptionRecord
.ExceptionAddress
));
757 ourstatus
->value
.sig
= TARGET_SIGNAL_FPE
;
760 case STATUS_STACK_OVERFLOW
:
761 DEBUG_EXCEPT (("gdb: Target exception STACK_OVERFLOW at 0x%08lx\n",
762 (DWORD
) current_event
.u
.Exception
.ExceptionRecord
.ExceptionAddress
));
763 ourstatus
->value
.sig
= TARGET_SIGNAL_SEGV
;
765 case EXCEPTION_BREAKPOINT
:
766 DEBUG_EXCEPT (("gdb: Target exception BREAKPOINT at 0x%08lx\n",
767 (DWORD
) current_event
.u
.Exception
.ExceptionRecord
.ExceptionAddress
));
768 ourstatus
->value
.sig
= TARGET_SIGNAL_TRAP
;
771 DEBUG_EXCEPT (("gdb: Target exception CONTROL_C at 0x%08lx\n",
772 (DWORD
) current_event
.u
.Exception
.ExceptionRecord
.ExceptionAddress
));
773 ourstatus
->value
.sig
= TARGET_SIGNAL_INT
;
774 last_sig
= SIGINT
; /* FIXME - should check pass state */
776 case EXCEPTION_SINGLE_STEP
:
777 DEBUG_EXCEPT (("gdb: Target exception SINGLE_STEP at 0x%08lx\n",
778 (DWORD
) current_event
.u
.Exception
.ExceptionRecord
.ExceptionAddress
));
779 ourstatus
->value
.sig
= TARGET_SIGNAL_TRAP
;
781 case EXCEPTION_ILLEGAL_INSTRUCTION
:
782 DEBUG_EXCEPT (("gdb: Target exception SINGLE_ILL at 0x%08lx\n",
783 (DWORD
) current_event
.u
.Exception
.ExceptionRecord
.ExceptionAddress
));
784 ourstatus
->value
.sig
= TARGET_SIGNAL_ILL
;
788 if (current_event
.u
.Exception
.dwFirstChance
)
790 printf_unfiltered ("gdb: unknown target exception 0x%08lx at 0x%08lx\n",
791 current_event
.u
.Exception
.ExceptionRecord
.ExceptionCode
,
792 (DWORD
) current_event
.u
.Exception
.ExceptionRecord
.ExceptionAddress
);
793 ourstatus
->value
.sig
= TARGET_SIGNAL_UNKNOWN
;
800 /* Resume all artificially suspended threads if we are continuing
803 child_continue (DWORD continue_status
, int id
)
809 DEBUG_EVENTS (("ContinueDebugEvent (cpid=%ld, ctid=%ld, DBG_CONTINUE);\n",
810 current_event
.dwProcessId
, current_event
.dwThreadId
));
811 res
= ContinueDebugEvent (current_event
.dwProcessId
,
812 current_event
.dwThreadId
,
816 for (th
= &thread_head
; (th
= th
->next
) != NULL
;)
817 if (((id
== -1) || (id
== (int) th
->id
)) && th
->suspend_count
)
819 for (i
= 0; i
< th
->suspend_count
; i
++)
820 (void) ResumeThread (th
->h
);
821 th
->suspend_count
= 0;
827 /* Get the next event from the child. Return 1 if the event requires
828 handling by WFI (or whatever).
831 get_child_debug_event (int pid ATTRIBUTE_UNUSED
, struct target_waitstatus
*ourstatus
)
834 DWORD continue_status
, event_code
;
835 thread_info
*th
= NULL
;
836 static thread_info dummy_thread_info
;
841 if (!(debug_event
= WaitForDebugEvent (¤t_event
, 1000)))
845 continue_status
= DBG_CONTINUE
;
847 event_code
= current_event
.dwDebugEventCode
;
848 ourstatus
->kind
= TARGET_WAITKIND_SPURIOUS
;
852 case CREATE_THREAD_DEBUG_EVENT
:
853 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%x code=%s)\n",
854 (unsigned) current_event
.dwProcessId
,
855 (unsigned) current_event
.dwThreadId
,
856 "CREATE_THREAD_DEBUG_EVENT"));
857 /* Record the existence of this thread */
858 th
= child_add_thread (current_event
.dwThreadId
,
859 current_event
.u
.CreateThread
.hThread
);
861 printf_unfiltered ("[New %s]\n",
863 pid_to_ptid (current_event
.dwThreadId
)));
864 retval
= current_event
.dwThreadId
;
867 case EXIT_THREAD_DEBUG_EVENT
:
868 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
869 (unsigned) current_event
.dwProcessId
,
870 (unsigned) current_event
.dwThreadId
,
871 "EXIT_THREAD_DEBUG_EVENT"));
872 child_delete_thread (current_event
.dwThreadId
);
873 th
= &dummy_thread_info
;
876 case CREATE_PROCESS_DEBUG_EVENT
:
877 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
878 (unsigned) current_event
.dwProcessId
,
879 (unsigned) current_event
.dwThreadId
,
880 "CREATE_PROCESS_DEBUG_EVENT"));
881 CloseHandle (current_event
.u
.CreateProcessInfo
.hFile
);
882 current_process_handle
= current_event
.u
.CreateProcessInfo
.hProcess
;
884 main_thread_id
= current_event
.dwThreadId
;
885 /* Add the main thread */
887 th
= child_add_thread (current_event
.dwProcessId
,
888 current_event
.u
.CreateProcessInfo
.hProcess
);
890 th
= child_add_thread (main_thread_id
,
891 current_event
.u
.CreateProcessInfo
.hThread
);
892 retval
= ourstatus
->value
.related_pid
= current_event
.dwThreadId
;
895 case EXIT_PROCESS_DEBUG_EVENT
:
896 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
897 (unsigned) current_event
.dwProcessId
,
898 (unsigned) current_event
.dwThreadId
,
899 "EXIT_PROCESS_DEBUG_EVENT"));
900 ourstatus
->kind
= TARGET_WAITKIND_EXITED
;
901 ourstatus
->value
.integer
= current_event
.u
.ExitProcess
.dwExitCode
;
902 CloseHandle (current_process_handle
);
903 retval
= main_thread_id
;
906 case LOAD_DLL_DEBUG_EVENT
:
907 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
908 (unsigned) current_event
.dwProcessId
,
909 (unsigned) current_event
.dwThreadId
,
910 "LOAD_DLL_DEBUG_EVENT"));
911 CloseHandle (current_event
.u
.LoadDll
.hFile
);
912 catch_errors (handle_load_dll
, NULL
, (char *) "", RETURN_MASK_ALL
);
913 registers_changed (); /* mark all regs invalid */
914 ourstatus
->kind
= TARGET_WAITKIND_LOADED
;
915 ourstatus
->value
.integer
= 0;
916 retval
= main_thread_id
;
919 case UNLOAD_DLL_DEBUG_EVENT
:
920 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
921 (unsigned) current_event
.dwProcessId
,
922 (unsigned) current_event
.dwThreadId
,
923 "UNLOAD_DLL_DEBUG_EVENT"));
924 break; /* FIXME: don't know what to do here */
926 case EXCEPTION_DEBUG_EVENT
:
927 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
928 (unsigned) current_event
.dwProcessId
,
929 (unsigned) current_event
.dwThreadId
,
930 "EXCEPTION_DEBUG_EVENT"));
931 if (handle_exception (ourstatus
))
932 retval
= current_event
.dwThreadId
;
935 case OUTPUT_DEBUG_STRING_EVENT
: /* message from the kernel */
936 DEBUG_EVENTS (("gdb: kernel event for pid=%d tid=%d code=%s)\n",
937 (unsigned) current_event
.dwProcessId
,
938 (unsigned) current_event
.dwThreadId
,
939 "OUTPUT_DEBUG_STRING_EVENT"));
940 if (handle_output_debug_string (ourstatus
))
941 retval
= main_thread_id
;
945 printf_unfiltered ("gdb: kernel event for pid=%ld tid=%ld\n",
946 (DWORD
) current_event
.dwProcessId
,
947 (DWORD
) current_event
.dwThreadId
);
948 printf_unfiltered (" unknown event code %ld\n",
949 current_event
.dwDebugEventCode
);
954 CHECK (child_continue (continue_status
, -1));
957 current_thread
= th
? : thread_rec (current_event
.dwThreadId
, TRUE
);
958 inferior_ptid
= pid_to_ptid (retval
);
965 /* Wait for interesting events to occur in the target process. */
967 child_wait (ptid_t ptid
, struct target_waitstatus
*ourstatus
)
969 int pid
= PIDGET (ptid
);
971 /* We loop when we get a non-standard exception rather than return
972 with a SPURIOUS because resume can try and step or modify things,
973 which needs a current_thread->h. But some of these exceptions mark
974 the birth or death of threads, which mean that the current thread
975 isn't necessarily what you think it is. */
979 int retval
= get_child_debug_event (pid
, ourstatus
);
981 return pid_to_ptid (retval
);
986 if (ui_loop_hook
!= NULL
)
987 detach
= ui_loop_hook (0);
990 child_kill_inferior ();
996 do_initial_child_stuff (DWORD pid
)
998 extern int stop_after_trap
;
1002 exception_count
= 0;
1003 current_event
.dwProcessId
= pid
;
1004 memset (¤t_event
, 0, sizeof (current_event
));
1005 push_target (&child_ops
);
1006 child_init_thread_list ();
1007 child_clear_solibs ();
1008 clear_proceed_status ();
1009 init_wait_for_inferior ();
1011 target_terminal_init ();
1012 target_terminal_inferior ();
1016 stop_after_trap
= 1;
1017 wait_for_inferior ();
1018 if (stop_signal
!= TARGET_SIGNAL_TRAP
)
1019 resume (0, stop_signal
);
1023 stop_after_trap
= 0;
1027 /* Attach to process PID, then initialize for debugging it. */
1030 child_attach (char *args
, int from_tty
)
1036 error_no_arg ("process-id to attach");
1038 pid
= strtoul (args
, 0, 0);
1039 ok
= DebugActiveProcess (pid
);
1042 error ("Can't attach to process.");
1046 char *exec_file
= (char *) get_exec_file (0);
1049 printf_unfiltered ("Attaching to program `%s', %s\n", exec_file
,
1050 target_pid_to_str (pid_to_ptid (pid
)));
1052 printf_unfiltered ("Attaching to %s\n",
1053 target_pid_to_str (pid_to_ptid (pid
)));
1055 gdb_flush (gdb_stdout
);
1058 do_initial_child_stuff (pid
);
1059 target_terminal_ours ();
1063 child_detach (char *args ATTRIBUTE_UNUSED
, int from_tty
)
1067 char *exec_file
= get_exec_file (0);
1070 printf_unfiltered ("Detaching from program: %s %s\n", exec_file
,
1071 target_pid_to_str (inferior_ptid
));
1072 gdb_flush (gdb_stdout
);
1074 inferior_ptid
= null_ptid
;
1075 unpush_target (&child_ops
);
1078 /* Print status information about what we're accessing. */
1081 child_files_info (struct target_ops
*ignore ATTRIBUTE_UNUSED
)
1083 printf_unfiltered ("\tUsing the running image of %s %s.\n",
1084 attach_flag
? "attached" : "child", target_pid_to_str (inferior_ptid
));
1089 child_open (char *arg ATTRIBUTE_UNUSED
, int from_tty ATTRIBUTE_UNUSED
)
1091 error ("Use the \"run\" command to start a Unix child process.");
1094 /* Start an inferior win32 child process and sets inferior_ptid to its pid.
1095 EXEC_FILE is the file to run.
1096 ALLARGS is a string containing the arguments to the program.
1097 ENV is the environment vector to pass. Errors reported with error(). */
1100 child_create_inferior (char *exec_file
, char *allargs
, char **env
)
1102 char real_path
[MAXPATHLEN
];
1108 PROCESS_INFORMATION pi
;
1114 error ("No executable specified, use `target exec'.\n");
1116 memset (&si
, 0, sizeof (si
));
1117 si
.cb
= sizeof (si
);
1119 cygwin_conv_to_win32_path (exec_file
, real_path
);
1121 flags
= DEBUG_ONLY_THIS_PROCESS
;
1124 flags
|= CREATE_NEW_PROCESS_GROUP
;
1127 flags
|= CREATE_NEW_CONSOLE
;
1129 args
= alloca (strlen (real_path
) + strlen (allargs
) + 2);
1131 strcpy (args
, real_path
);
1134 strcat (args
, allargs
);
1136 /* Prepare the environment vars for CreateProcess. */
1138 /* This code use to assume all env vars were file names and would
1139 translate them all to win32 style. That obviously doesn't work in the
1140 general case. The current rule is that we only translate PATH.
1141 We need to handle PATH because we're about to call CreateProcess and
1142 it uses PATH to find DLL's. Fortunately PATH has a well-defined value
1143 in both posix and win32 environments. cygwin.dll will change it back
1144 to posix style if necessary. */
1146 static const char *conv_path_names
[] =
1152 /* CreateProcess takes the environment list as a null terminated set of
1153 strings (i.e. two nulls terminate the list). */
1155 /* Get total size for env strings. */
1156 for (envlen
= 0, i
= 0; env
[i
] && *env
[i
]; i
++)
1160 for (j
= 0; conv_path_names
[j
]; j
++)
1162 len
= strlen (conv_path_names
[j
]);
1163 if (strncmp (conv_path_names
[j
], env
[i
], len
) == 0)
1165 if (cygwin_posix_path_list_p (env
[i
] + len
))
1167 + cygwin_posix_to_win32_path_list_buf_size (env
[i
] + len
);
1169 envlen
+= strlen (env
[i
]) + 1;
1173 if (conv_path_names
[j
] == NULL
)
1174 envlen
+= strlen (env
[i
]) + 1;
1177 winenv
= alloca (envlen
+ 1);
1179 /* Copy env strings into new buffer. */
1180 for (temp
= winenv
, i
= 0; env
[i
] && *env
[i
]; i
++)
1184 for (j
= 0; conv_path_names
[j
]; j
++)
1186 len
= strlen (conv_path_names
[j
]);
1187 if (strncmp (conv_path_names
[j
], env
[i
], len
) == 0)
1189 if (cygwin_posix_path_list_p (env
[i
] + len
))
1191 memcpy (temp
, env
[i
], len
);
1192 cygwin_posix_to_win32_path_list (env
[i
] + len
, temp
+ len
);
1195 strcpy (temp
, env
[i
]);
1199 if (conv_path_names
[j
] == NULL
)
1200 strcpy (temp
, env
[i
]);
1202 temp
+= strlen (temp
) + 1;
1205 /* Final nil string to terminate new env. */
1209 ret
= CreateProcess (0,
1210 args
, /* command line */
1211 NULL
, /* Security */
1213 TRUE
, /* inherit handles */
1214 flags
, /* start flags */
1216 NULL
, /* current directory */
1220 error ("Error creating process %s, (error %d)\n", exec_file
, GetLastError ());
1222 CloseHandle (pi
.hThread
);
1223 CloseHandle (pi
.hProcess
);
1224 do_initial_child_stuff (pi
.dwProcessId
);
1226 /* child_continue (DBG_CONTINUE, -1); */
1227 proceed ((CORE_ADDR
) - 1, TARGET_SIGNAL_0
, 0);
1231 child_mourn_inferior (void)
1233 (void) child_continue (DBG_CONTINUE
, -1);
1234 unpush_target (&child_ops
);
1235 generic_mourn_inferior ();
1238 /* Send a SIGINT to the process group. This acts just like the user typed a
1239 ^C on the controlling terminal. */
1244 DEBUG_EVENTS (("gdb: GenerateConsoleCtrlEvent (CTRLC_EVENT, 0)\n"));
1245 CHECK (GenerateConsoleCtrlEvent (CTRL_C_EVENT
, current_event
.dwProcessId
));
1246 registers_changed (); /* refresh register state */
1250 child_xfer_memory (CORE_ADDR memaddr
, char *our
, int len
,
1251 int write
, struct mem_attrib
*mem ATTRIBUTE_UNUSED
,
1252 struct target_ops
*target ATTRIBUTE_UNUSED
)
1257 DEBUG_MEM (("gdb: write target memory, %d bytes at 0x%08lx\n",
1258 len
, (DWORD
) memaddr
));
1259 WriteProcessMemory (current_process_handle
, (LPVOID
) memaddr
, our
,
1261 FlushInstructionCache (current_process_handle
, (LPCVOID
) memaddr
, len
);
1265 DEBUG_MEM (("gdb: read target memory, %d bytes at 0x%08lx\n",
1266 len
, (DWORD
) memaddr
));
1267 ReadProcessMemory (current_process_handle
, (LPCVOID
) memaddr
, our
, len
,
1274 child_kill_inferior (void)
1276 CHECK (TerminateProcess (current_process_handle
, 0));
1280 if (!child_continue (DBG_CONTINUE
, -1))
1282 if (!WaitForDebugEvent (¤t_event
, INFINITE
))
1284 if (current_event
.dwDebugEventCode
== EXIT_PROCESS_DEBUG_EVENT
)
1288 CHECK (CloseHandle (current_process_handle
));
1290 /* this may fail in an attached process so don't check. */
1291 (void) CloseHandle (current_thread
->h
);
1292 target_mourn_inferior (); /* or just child_mourn_inferior? */
1296 child_resume (ptid_t ptid
, int step
, enum target_signal sig
)
1299 DWORD continue_status
= last_sig
> 0 && last_sig
< NSIG
?
1300 DBG_EXCEPTION_NOT_HANDLED
: DBG_CONTINUE
;
1301 int pid
= PIDGET (ptid
);
1305 DEBUG_EXEC (("gdb: child_resume (pid=%d, step=%d, sig=%d);\n",
1308 /* Get context for currently selected thread */
1309 th
= thread_rec (current_event
.dwThreadId
, FALSE
);
1314 /* Single step by setting t bit */
1315 child_fetch_inferior_registers (PS_REGNUM
);
1316 th
->context
.EFlags
|= FLAG_TRACE_BIT
;
1319 if (th
->context
.ContextFlags
)
1321 CHECK (SetThreadContext (th
->h
, &th
->context
));
1322 th
->context
.ContextFlags
= 0;
1326 /* Allow continuing with the same signal that interrupted us.
1327 Otherwise complain. */
1329 child_continue (continue_status
, pid
);
1333 child_prepare_to_store (void)
1335 /* Do nothing, since we can store individual regs */
1339 child_can_run (void)
1345 child_close (int x ATTRIBUTE_UNUSED
)
1347 DEBUG_EVENTS (("gdb: child_close, inferior_ptid=%d\n",
1348 PIDGET (inferior_ptid
)));
1351 struct target_ops child_ops
;
1354 init_child_ops (void)
1356 child_ops
.to_shortname
= "child";
1357 child_ops
.to_longname
= "Win32 child process";
1358 child_ops
.to_doc
= "Win32 child process (started by the \"run\" command).";
1359 child_ops
.to_open
= child_open
;
1360 child_ops
.to_close
= child_close
;
1361 child_ops
.to_attach
= child_attach
;
1362 child_ops
.to_detach
= child_detach
;
1363 child_ops
.to_resume
= child_resume
;
1364 child_ops
.to_wait
= child_wait
;
1365 child_ops
.to_fetch_registers
= child_fetch_inferior_registers
;
1366 child_ops
.to_store_registers
= child_store_inferior_registers
;
1367 child_ops
.to_prepare_to_store
= child_prepare_to_store
;
1368 child_ops
.to_xfer_memory
= child_xfer_memory
;
1369 child_ops
.to_files_info
= child_files_info
;
1370 child_ops
.to_insert_breakpoint
= memory_insert_breakpoint
;
1371 child_ops
.to_remove_breakpoint
= memory_remove_breakpoint
;
1372 child_ops
.to_terminal_init
= terminal_init_inferior
;
1373 child_ops
.to_terminal_inferior
= terminal_inferior
;
1374 child_ops
.to_terminal_ours_for_output
= terminal_ours_for_output
;
1375 child_ops
.to_terminal_ours
= terminal_ours
;
1376 child_ops
.to_terminal_info
= child_terminal_info
;
1377 child_ops
.to_kill
= child_kill_inferior
;
1378 child_ops
.to_load
= 0;
1379 child_ops
.to_lookup_symbol
= 0;
1380 child_ops
.to_create_inferior
= child_create_inferior
;
1381 child_ops
.to_mourn_inferior
= child_mourn_inferior
;
1382 child_ops
.to_can_run
= child_can_run
;
1383 child_ops
.to_notice_signals
= 0;
1384 child_ops
.to_thread_alive
= win32_child_thread_alive
;
1385 child_ops
.to_pid_to_str
= cygwin_pid_to_str
;
1386 child_ops
.to_stop
= child_stop
;
1387 child_ops
.to_stratum
= process_stratum
;
1388 child_ops
.DONT_USE
= 0;
1389 child_ops
.to_has_all_memory
= 1;
1390 child_ops
.to_has_memory
= 1;
1391 child_ops
.to_has_stack
= 1;
1392 child_ops
.to_has_registers
= 1;
1393 child_ops
.to_has_execution
= 1;
1394 child_ops
.to_sections
= 0;
1395 child_ops
.to_sections_end
= 0;
1396 child_ops
.to_magic
= OPS_MAGIC
;
1400 _initialize_inftarg (void)
1402 struct cmd_list_element
*c
;
1406 c
= add_com ("dll-symbols", class_files
, dll_symbol_command
,
1407 "Load dll library symbols from FILE.");
1408 c
->completer
= filename_completer
;
1411 add_com_alias ("sharedlibrary", "dll-symbols", class_alias
, 1);
1413 add_show_from_set (add_set_cmd ("new-console", class_support
, var_boolean
,
1414 (char *) &new_console
,
1415 "Set creation of new console when creating child process.",
1419 add_show_from_set (add_set_cmd ("new-group", class_support
, var_boolean
,
1420 (char *) &new_group
,
1421 "Set creation of new group when creating child process.",
1425 add_show_from_set (add_set_cmd ("debugexec", class_support
, var_boolean
,
1426 (char *) &debug_exec
,
1427 "Set whether to display execution in child process.",
1431 add_show_from_set (add_set_cmd ("debugevents", class_support
, var_boolean
,
1432 (char *) &debug_events
,
1433 "Set whether to display kernel events in child process.",
1437 add_show_from_set (add_set_cmd ("debugmemory", class_support
, var_boolean
,
1438 (char *) &debug_memory
,
1439 "Set whether to display memory accesses in child process.",
1443 add_show_from_set (add_set_cmd ("debugexceptions", class_support
, var_boolean
,
1444 (char *) &debug_exceptions
,
1445 "Set whether to display kernel exceptions in child process.",
1449 add_info ("dll", info_dll_command
, "Status of loaded DLLs.");
1450 add_info_alias ("sharedlibrary", "dll", 1);
1452 add_target (&child_ops
);
1455 /* Determine if the thread referenced by "pid" is alive
1456 by "polling" it. If WaitForSingleObject returns WAIT_OBJECT_0
1457 it means that the pid has died. Otherwise it is assumed to be alive. */
1459 win32_child_thread_alive (ptid_t ptid
)
1461 int pid
= PIDGET (ptid
);
1463 return WaitForSingleObject (thread_rec (pid
, FALSE
)->h
, 0) == WAIT_OBJECT_0
?
1467 /* Convert pid to printable format. */
1469 cygwin_pid_to_str (ptid_t ptid
)
1471 static char buf
[80];
1472 int pid
= PIDGET (ptid
);
1474 if ((DWORD
) pid
== current_event
.dwProcessId
)
1475 sprintf (buf
, "process %d", pid
);
1477 sprintf (buf
, "thread %ld.0x%x", current_event
.dwProcessId
, pid
);
1482 core_dll_symbols_add (char *dll_name
, DWORD base_addr
)
1484 struct objfile
*objfile
;
1485 char *objfile_basename
;
1486 const char *dll_basename
;
1488 if (!(dll_basename
= strrchr (dll_name
, '/')))
1489 dll_basename
= dll_name
;
1493 ALL_OBJFILES (objfile
)
1495 objfile_basename
= strrchr (objfile
->name
, '/');
1497 if (objfile_basename
&&
1498 strcmp (dll_basename
, objfile_basename
+ 1) == 0)
1500 printf_unfiltered ("%08lx:%s (symbols previously loaded)\n",
1501 base_addr
, dll_name
);
1506 register_loaded_dll (dll_name
, base_addr
+ 0x1000);
1507 solib_symbols_add (dll_name
, 0, (CORE_ADDR
) base_addr
+ 0x1000);
1515 struct target_ops
*target
;
1518 map_code_section_args
;
1521 map_single_dll_code_section (bfd
* abfd
, asection
* sect
, void *obj
)
1525 struct section_table
*new_target_sect_ptr
;
1527 map_code_section_args
*args
= (map_code_section_args
*) obj
;
1528 struct target_ops
*target
= args
->target
;
1529 if (sect
->flags
& SEC_CODE
)
1531 update_coreops
= core_ops
.to_sections
== target
->to_sections
;
1533 if (target
->to_sections
)
1535 old
= target
->to_sections_end
- target
->to_sections
;
1536 target
->to_sections
= (struct section_table
*)
1537 xrealloc ((char *) target
->to_sections
,
1538 (sizeof (struct section_table
)) * (1 + old
));
1543 target
->to_sections
= (struct section_table
*)
1544 xmalloc ((sizeof (struct section_table
)));
1546 target
->to_sections_end
= target
->to_sections
+ (1 + old
);
1548 /* Update the to_sections field in the core_ops structure
1552 core_ops
.to_sections
= target
->to_sections
;
1553 core_ops
.to_sections_end
= target
->to_sections_end
;
1555 new_target_sect_ptr
= target
->to_sections
+ old
;
1556 new_target_sect_ptr
->addr
= args
->addr
+ bfd_section_vma (abfd
, sect
);
1557 new_target_sect_ptr
->endaddr
= args
->addr
+ bfd_section_vma (abfd
, sect
) +
1558 bfd_section_size (abfd
, sect
);;
1559 new_target_sect_ptr
->the_bfd_section
= sect
;
1560 new_target_sect_ptr
->bfd
= abfd
;
1565 dll_code_sections_add (const char *dll_name
, int base_addr
, struct target_ops
*target
)
1568 map_code_section_args map_args
;
1569 asection
*lowest_sect
;
1571 if (dll_name
== NULL
|| target
== NULL
)
1573 name
= xstrdup (dll_name
);
1574 dll_bfd
= bfd_openr (name
, "pei-i386");
1575 if (dll_bfd
== NULL
)
1578 if (bfd_check_format (dll_bfd
, bfd_object
))
1580 lowest_sect
= bfd_get_section_by_name (dll_bfd
, ".text");
1581 if (lowest_sect
== NULL
)
1583 map_args
.target
= target
;
1584 map_args
.addr
= base_addr
- bfd_section_vma (dll_bfd
, lowest_sect
);
1586 bfd_map_over_sections (dll_bfd
, &map_single_dll_code_section
, (void *) (&map_args
));
1593 core_section_load_dll_symbols (bfd
* abfd
, asection
* sect
, void *obj
)
1595 struct target_ops
*target
= (struct target_ops
*) obj
;
1600 char *dll_name
= NULL
;
1602 struct win32_pstatus
*pstatus
;
1605 if (strncmp (sect
->name
, ".module", 7))
1608 buf
= (char *) xmalloc (sect
->_raw_size
+ 1);
1611 printf_unfiltered ("memory allocation failed for %s\n", sect
->name
);
1614 if (!bfd_get_section_contents (abfd
, sect
, buf
, 0, sect
->_raw_size
))
1617 pstatus
= (struct win32_pstatus
*) buf
;
1619 memmove (&base_addr
, &(pstatus
->data
.module_info
.base_address
), sizeof (base_addr
));
1620 dll_name_size
= pstatus
->data
.module_info
.module_name_size
;
1621 if (offsetof (struct win32_pstatus
, data
.module_info
.module_name
) + dll_name_size
> sect
->_raw_size
)
1624 dll_name
= (char *) xmalloc (dll_name_size
+ 1);
1627 printf_unfiltered ("memory allocation failed for %s\n", sect
->name
);
1630 strncpy (dll_name
, pstatus
->data
.module_info
.module_name
, dll_name_size
);
1632 while ((p
= strchr (dll_name
, '\\')))
1635 if (!core_dll_symbols_add (dll_name
, (DWORD
) base_addr
))
1636 printf_unfiltered ("%s: Failed to load dll symbols.\n", dll_name
);
1638 if (!dll_code_sections_add (dll_name
, (DWORD
) base_addr
+ 0x1000, target
))
1639 printf_unfiltered ("%s: Failed to map dll code sections.\n", dll_name
);
1650 child_solib_add (char *filename ATTRIBUTE_UNUSED
, int from_tty
, struct target_ops
*target
)
1654 child_clear_solibs ();
1655 bfd_map_over_sections (core_bfd
, &core_section_load_dll_symbols
, target
);
1659 if (solib_end
&& solib_end
->name
)
1660 solib_symbols_add (solib_end
->name
, from_tty
, solib_end
->load_addr
);
1665 fetch_elf_core_registers (char *core_reg_sect
,
1666 unsigned core_reg_size
,
1671 if (core_reg_size
< sizeof (CONTEXT
))
1673 error ("Core file register section too small (%u bytes).", core_reg_size
);
1676 for (r
= 0; r
< NUM_REGS
; r
++)
1677 supply_register (r
, core_reg_sect
+ mappings
[r
]);
1680 static struct core_fns win32_elf_core_fns
=
1682 bfd_target_elf_flavour
,
1683 default_check_format
,
1684 default_core_sniffer
,
1685 fetch_elf_core_registers
,
1690 _initialize_core_win32 (void)
1692 add_core_fns (&win32_elf_core_fns
);