1 /* Target-vector operations for controlling Mac applications, for GDB.
2 Copyright 1995, 2001 Free Software Foundation, Inc.
3 Written by Stan Shebs. Contributed by Cygnus Support.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without eve nthe implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
22 /* Note that because all the available Mac compilers are ANSI or very
23 close, and this is a native-only file, the code may be purely ANSI. */
26 #include "frame.h" /* required by inferior.h */
33 #include <sys/types.h>
36 #include "gdb_string.h"
37 #include "gdbthread.h"
41 #include <Processes.h>
43 /* We call the functions "child_..." rather than "mac_..." so no one
44 is tempted to try to link this with other native-only code. */
46 /* Forward declaration */
48 extern struct target_ops child_ops
;
50 static void child_stop (void);
53 child_fetch_inferior_registers (int r
)
57 for (r
= 0; r
< NUM_REGS
; r
++)
58 child_fetch_inferior_registers (r
);
62 supply_register (r
, 0);
67 child_store_inferior_registers (int r
)
71 for (r
= 0; r
< NUM_REGS
; r
++)
72 child_store_inferior_registers (r
);
76 read_register_gen (r
, 0);
81 child_wait (int pid
, struct target_waitstatus
*ourstatus
)
85 /* Attach to process PID, then initialize for debugging it. */
88 child_attach (char *args
, int from_tty
)
90 ProcessSerialNumber psn
;
91 ProcessInfoRec inforec
;
99 error_no_arg ("process-id to attach");
103 psn
.highLongOfPSN
= 0;
104 psn
.lowLongOfPSN
= pid
;
106 inforec
.processInfoLength
= sizeof (ProcessInfoRec
);
107 inforec
.processName
= name
;
108 inforec
.processAppSpec
= fsspec
;
110 if (GetProcessInformation (&psn
, &inforec
) == noErr
)
114 exec_file
= (char *) get_exec_file (0);
117 printf_unfiltered ("Attaching to program `%s', %s\n", exec_file
,
118 target_pid_to_str (pid
));
120 printf_unfiltered ("Attaching to %s\n", target_pid_to_str (pid
));
122 gdb_flush (gdb_stdout
);
124 /* Do we need to do anything special? */
127 push_target (&child_ops
);
132 child_detach (char *args
, int from_tty
)
138 exec_file
= get_exec_file (0);
141 printf_unfiltered ("Detaching from program: %s %s\n", exec_file
,
142 target_pid_to_str (inferior_pid
));
143 gdb_flush (gdb_stdout
);
146 unpush_target (&child_ops
);
149 /* Print status information about what we're accessing. */
152 child_files_info (struct target_ops
*ignore
)
154 printf_unfiltered ("\tUsing the running image of %s %s.\n",
155 attach_flag
? "attached" : "child", target_pid_to_str (inferior_pid
));
160 child_open (char *arg
, int from_tty
)
162 error ("Use the \"run\" command to start a Mac application.");
165 /* Start an inferior Mac program and sets inferior_pid to its pid.
166 EXEC_FILE is the file to run.
167 ALLARGS is a string containing the arguments to the program.
168 ENV is the environment vector to pass. Errors reported with error(). */
171 child_create_inferior (char *exec_file
, char *allargs
, char **env
)
173 LaunchParamBlockRec launchparms
;
179 error ("No executable specified, use `target exec'.\n");
182 launchparms
.launchBlockID
= extendedBlock
;
183 launchparms
.launchEPBLength
= extendedBlockLen
;
184 launchparms
.launchFileFlags
= 0;
185 launchparms
.launchControlFlags
= launchContinue
| launchNoFileFlags
;
188 strcpy (fsspec
.name
+ 1, exec_file
);
189 fsspec
.name
[0] = strlen (exec_file
);
190 launchparms
.launchAppSpec
= &fsspec
;
191 launchparms
.launchAppParameters
= nil
;
193 launch_err
= LaunchApplication (&launchparms
);
195 if (launch_err
== 999 /*memFullErr */ )
197 error ("Not enough memory to launch %s\n", exec_file
);
199 else if (launch_err
!= noErr
)
201 error ("Error launching %s, code %d\n", exec_file
, launch_err
);
204 inferior_pid
= launchparms
.launchProcessSN
.lowLongOfPSN
;
205 /* FIXME be sure that high long of PSN is 0 */
207 push_target (&child_ops
);
208 init_wait_for_inferior ();
209 clear_proceed_status ();
211 /* proceed ((CORE_ADDR) -1, TARGET_SIGNAL_0, 0); */
215 child_mourn_inferior (void)
217 unpush_target (&child_ops
);
218 generic_mourn_inferior ();
227 child_xfer_memory (CORE_ADDR memaddr
, char *myaddr
, int len
,
228 int write
, struct target_ops
*target
)
232 for (i
= 0; i
< len
; ++i
)
236 ((char *) memaddr
)[i
] = myaddr
[i
];
240 myaddr
[i
] = ((char *) memaddr
)[i
];
247 child_kill_inferior (void)
252 child_resume (int pid
, int step
, enum target_signal signal
)
257 child_prepare_to_store (void)
259 /* Do nothing, since we can store individual regs */
274 info_proc (char *args
, int from_tty
)
276 ProcessSerialNumber psn
;
277 ProcessInfoRec inforec
;
282 /* Eventually use args, but not right now. */
284 psn
.highLongOfPSN
= 0;
285 psn
.lowLongOfPSN
= kNoProcess
;
287 inforec
.processInfoLength
= sizeof (ProcessInfoRec
);
288 inforec
.processName
= name
;
289 inforec
.processAppSpec
= fsspec
;
291 printf_filtered ("Process Name Sgnt Type PSN Loc Size FreeMem Time\n");
293 while (GetNextProcess (&psn
) == noErr
)
295 if (GetProcessInformation (&psn
, &inforec
) == noErr
)
297 name
[name
[0] + 1] = '\0';
298 printf_filtered ("%-32.32s", name
+ 1);
299 code
= inforec
.processSignature
;
300 printf_filtered (" %c%c%c%c",
305 code
= inforec
.processType
;
306 printf_filtered (" %c%c%c%c",
311 if (psn
.highLongOfPSN
== 0)
312 printf_filtered (" %9d", psn
.lowLongOfPSN
);
314 printf_filtered (" %9d,%9d\n",
315 psn
.highLongOfPSN
, psn
.lowLongOfPSN
);
316 printf_filtered (" 0x%x", inforec
.processLocation
);
317 printf_filtered (" %9d", inforec
.processSize
);
318 printf_filtered (" %9d", inforec
.processFreeMem
);
319 printf_filtered (" %9d", inforec
.processActiveTime
);
320 printf_filtered ("\n");
325 struct target_ops child_ops
;
328 init_child_ops (void)
330 child_ops
.to_shortname
= "mac";
331 child_ops
.to_longname
= "MacOS application";
332 child_ops
.to_doc
= "MacOS application (started by the \"run\" command).";
333 child_ops
.to_open
= child_open
;
334 child_ops
.to_close
= child_close
;
335 child_ops
.to_attach
= child_attach
;
336 child_ops
.to_post_attach
= NULL
;
337 child_ops
.to_require_attach
= NULL
; /* to_require_attach */
338 child_ops
.to_detach
= child_detach
;
339 child_ops
.to_require_detach
= NULL
; /* to_require_detach */
340 child_ops
.to_resume
= child_resume
;
341 child_ops
.to_wait
= child_wait
;
342 child_ops
.to_post_wait
= NULL
; /* to_post_wait */
343 child_ops
.to_fetch_registers
= child_fetch_inferior_registers
;
344 child_ops
.to_store_registers
= child_store_inferior_registers
;
345 child_ops
.to_prepare_to_store
= child_prepare_to_store
;
346 child_ops
.to_xfer_memory
= child_xfer_memory
;
347 child_ops
.to_files_info
= child_files_info
;
348 child_ops
.to_insert_breakpoint
= memory_insert_breakpoint
;
349 child_ops
.to_remove_breakpoint
= memory_remove_breakpoint
;
350 child_ops
.to_terminal_init
= 0;
351 child_ops
.to_terminal_inferior
= 0;
352 child_ops
.to_terminal_ours_for_output
= 0;
353 child_ops
.to_terminal_ours
= 0;
354 child_ops
.to_terminal_info
= 0;
355 child_ops
.to_kill
= child_kill_inferior
;
356 child_ops
.to_load
= 0;
357 child_ops
.to_lookup_symbol
= 0;
358 child_ops
.to_create_inferior
= child_create_inferior
;
359 child_ops
.to_post_startup_inferior
= NULL
; /* to_post_startup_inferior */
360 child_ops
.to_acknowledge_created_inferior
= NULL
; /* to_acknowledge_created_inferior */
361 child_ops
.to_clone_and_follow_inferior
= NULL
; /* to_clone_and_follow_inferior */
362 child_ops
.to_post_follow_inferior_by_clone
= NULL
; /* to_post_follow_inferior_by_clone */
363 child_ops
.to_insert_fork_catchpoint
= NULL
;
364 child_ops
.to_remove_fork_catchpoint
= NULL
;
365 child_ops
.to_insert_vfork_catchpoint
= NULL
;
366 child_ops
.to_remove_vfork_catchpoint
= NULL
;
367 child_ops
.to_has_forked
= NULL
; /* to_has_forked */
368 child_ops
.to_has_vforked
= NULL
; /* to_has_vforked */
369 child_ops
.to_can_follow_vfork_prior_to_exec
= NULL
;
370 child_ops
.to_post_follow_vfork
= NULL
; /* to_post_follow_vfork */
371 child_ops
.to_insert_exec_catchpoint
= NULL
;
372 child_ops
.to_remove_exec_catchpoint
= NULL
;
373 child_ops
.to_has_execd
= NULL
;
374 child_ops
.to_reported_exec_events_per_exec_call
= NULL
;
375 child_ops
.to_has_exited
= NULL
;
376 child_ops
.to_mourn_inferior
= child_mourn_inferior
;
377 child_ops
.to_can_run
= child_can_run
;
378 child_ops
.to_notice_signals
= 0;
379 child_ops
.to_thread_alive
= 0;
380 child_ops
.to_stop
= child_stop
;
381 child_ops
.to_pid_to_exec_file
= NULL
; /* to_pid_to_exec_file */
382 child_ops
.to_core_file_to_sym_file
= NULL
;
383 child_ops
.to_stratum
= process_stratum
;
384 child_ops
.DONT_USE
= 0;
385 child_ops
.to_has_all_memory
= 1;
386 child_ops
.to_has_memory
= 1;
387 child_ops
.to_has_stack
= 1;
388 child_ops
.to_has_registers
= 1;
389 child_ops
.to_has_execution
= 1;
390 child_ops
.to_sections
= 0;
391 child_ops
.to_sections_end
= 0;
392 child_ops
.to_magic
= OPS_MAGIC
;
396 _initialize_mac_nat (void)
400 add_info ("proc", info_proc
,
401 "Show information about processes.");