1 /* Target-vector operations for controlling Mac applications, for GDB.
2 Copyright (C) 1995 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"
40 #include <Processes.h>
42 /* We call the functions "child_..." rather than "mac_..." so no one
43 is tempted to try to link this with other native-only code. */
45 /* Forward declaration */
47 extern struct target_ops child_ops
;
49 static void child_stop
PARAMS ((void));
52 child_fetch_inferior_registers (int r
)
56 for (r
= 0; r
< NUM_REGS
; r
++)
57 child_fetch_inferior_registers (r
);
61 supply_register (r
, 0);
66 child_store_inferior_registers (int r
)
70 for (r
= 0; r
< NUM_REGS
; r
++)
71 child_store_inferior_registers (r
);
75 read_register_gen (r
, 0);
80 child_wait (int pid
, struct target_waitstatus
*ourstatus
)
84 /* Attach to process PID, then initialize for debugging it. */
87 child_attach (args
, from_tty
)
91 ProcessSerialNumber psn
;
92 ProcessInfoRec inforec
;
100 error_no_arg ("process-id to attach");
104 psn
.highLongOfPSN
= 0;
105 psn
.lowLongOfPSN
= pid
;
107 inforec
.processInfoLength
= sizeof (ProcessInfoRec
);
108 inforec
.processName
= name
;
109 inforec
.processAppSpec
= fsspec
;
111 if (GetProcessInformation (&psn
, &inforec
) == noErr
)
115 exec_file
= (char *) get_exec_file (0);
118 printf_unfiltered ("Attaching to program `%s', %s\n", exec_file
,
119 target_pid_to_str (pid
));
121 printf_unfiltered ("Attaching to %s\n", target_pid_to_str (pid
));
123 gdb_flush (gdb_stdout
);
125 /* Do we need to do anything special? */
128 push_target (&child_ops
);
133 child_detach (args
, from_tty
)
141 exec_file
= get_exec_file (0);
144 printf_unfiltered ("Detaching from program: %s %s\n", exec_file
,
145 target_pid_to_str (inferior_pid
));
146 gdb_flush (gdb_stdout
);
149 unpush_target (&child_ops
);
152 /* Print status information about what we're accessing. */
155 child_files_info (ignore
)
156 struct target_ops
*ignore
;
158 printf_unfiltered ("\tUsing the running image of %s %s.\n",
159 attach_flag
? "attached" : "child", target_pid_to_str (inferior_pid
));
164 child_open (arg
, from_tty
)
168 error ("Use the \"run\" command to start a Mac application.");
171 /* Start an inferior Mac program and sets inferior_pid to its pid.
172 EXEC_FILE is the file to run.
173 ALLARGS is a string containing the arguments to the program.
174 ENV is the environment vector to pass. Errors reported with error(). */
177 child_create_inferior (exec_file
, allargs
, env
)
182 LaunchParamBlockRec launchparms
;
188 error ("No executable specified, use `target exec'.\n");
191 launchparms
.launchBlockID
= extendedBlock
;
192 launchparms
.launchEPBLength
= extendedBlockLen
;
193 launchparms
.launchFileFlags
= 0;
194 launchparms
.launchControlFlags
= launchContinue
| launchNoFileFlags
;
197 strcpy (fsspec
.name
+ 1, exec_file
);
198 fsspec
.name
[0] = strlen (exec_file
);
199 launchparms
.launchAppSpec
= &fsspec
;
200 launchparms
.launchAppParameters
= nil
;
202 launch_err
= LaunchApplication (&launchparms
);
204 if (launch_err
== 999 /*memFullErr */ )
206 error ("Not enough memory to launch %s\n", exec_file
);
208 else if (launch_err
!= noErr
)
210 error ("Error launching %s, code %d\n", exec_file
, launch_err
);
213 inferior_pid
= launchparms
.launchProcessSN
.lowLongOfPSN
;
214 /* FIXME be sure that high long of PSN is 0 */
216 push_target (&child_ops
);
217 init_wait_for_inferior ();
218 clear_proceed_status ();
220 /* proceed ((CORE_ADDR) - 1, TARGET_SIGNAL_0, 0); */
224 child_mourn_inferior ()
226 unpush_target (&child_ops
);
227 generic_mourn_inferior ();
236 child_xfer_memory (CORE_ADDR memaddr
, char *myaddr
, int len
,
237 int write
, struct target_ops
*target
)
241 for (i
= 0; i
< len
; ++i
)
245 ((char *) memaddr
)[i
] = myaddr
[i
];
249 myaddr
[i
] = ((char *) memaddr
)[i
];
256 child_kill_inferior (void)
261 child_resume (int pid
, int step
, enum target_signal signal
)
266 child_prepare_to_store ()
268 /* Do nothing, since we can store individual regs */
283 info_proc (args
, from_tty
)
287 ProcessSerialNumber psn
;
288 ProcessInfoRec inforec
;
293 /* Eventually use args, but not right now. */
295 psn
.highLongOfPSN
= 0;
296 psn
.lowLongOfPSN
= kNoProcess
;
298 inforec
.processInfoLength
= sizeof (ProcessInfoRec
);
299 inforec
.processName
= name
;
300 inforec
.processAppSpec
= fsspec
;
302 printf_filtered ("Process Name Sgnt Type PSN Loc Size FreeMem Time\n");
304 while (GetNextProcess (&psn
) == noErr
)
306 if (GetProcessInformation (&psn
, &inforec
) == noErr
)
308 name
[name
[0] + 1] = '\0';
309 printf_filtered ("%-32.32s", name
+ 1);
310 code
= inforec
.processSignature
;
311 printf_filtered (" %c%c%c%c",
316 code
= inforec
.processType
;
317 printf_filtered (" %c%c%c%c",
322 if (psn
.highLongOfPSN
== 0)
323 printf_filtered (" %9d", psn
.lowLongOfPSN
);
325 printf_filtered (" %9d,%9d\n",
326 psn
.highLongOfPSN
, psn
.lowLongOfPSN
);
327 printf_filtered (" 0x%x", inforec
.processLocation
);
328 printf_filtered (" %9d", inforec
.processSize
);
329 printf_filtered (" %9d", inforec
.processFreeMem
);
330 printf_filtered (" %9d", inforec
.processActiveTime
);
331 printf_filtered ("\n");
336 struct target_ops child_ops
;
339 init_child_ops (void)
341 child_ops
.to_shortname
= "mac";
342 child_ops
.to_longname
= "MacOS application";
343 child_ops
.to_doc
= "MacOS application (started by the \"run\" command).";
344 child_ops
.to_open
= child_open
;
345 child_ops
.to_close
= child_close
;
346 child_ops
.to_attach
= child_attach
;
347 child_ops
.to_post_attach
= NULL
;
348 child_ops
.to_require_attach
= NULL
; /* to_require_attach */
349 child_ops
.to_detach
= child_detach
;
350 child_ops
.to_require_detach
= NULL
; /* to_require_detach */
351 child_ops
.to_resume
= child_resume
;
352 child_ops
.to_wait
= child_wait
;
353 child_ops
.to_post_wait
= NULL
; /* to_post_wait */
354 child_ops
.to_fetch_registers
= child_fetch_inferior_registers
;
355 child_ops
.to_store_registers
= child_store_inferior_registers
;
356 child_ops
.to_prepare_to_store
= child_prepare_to_store
;
357 child_ops
.to_xfer_memory
= child_xfer_memory
;
358 child_ops
.to_files_info
= child_files_info
;
359 child_ops
.to_insert_breakpoint
= memory_insert_breakpoint
;
360 child_ops
.to_remove_breakpoint
= memory_remove_breakpoint
;
361 child_ops
.to_terminal_init
= 0;
362 child_ops
.to_terminal_inferior
= 0;
363 child_ops
.to_terminal_ours_for_output
= 0;
364 child_ops
.to_terminal_ours
= 0;
365 child_ops
.to_terminal_info
= 0;
366 child_ops
.to_kill
= child_kill_inferior
;
367 child_ops
.to_load
= 0;
368 child_ops
.to_lookup_symbol
= 0;
369 child_ops
.to_create_inferior
= child_create_inferior
;
370 child_ops
.to_post_startup_inferior
= NULL
; /* to_post_startup_inferior */
371 child_ops
.to_acknowledge_created_inferior
= NULL
; /* to_acknowledge_created_inferior */
372 child_ops
.to_clone_and_follow_inferior
= NULL
; /* to_clone_and_follow_inferior */
373 child_ops
.to_post_follow_inferior_by_clone
= NULL
; /* to_post_follow_inferior_by_clone */
374 child_ops
.to_insert_fork_catchpoint
= NULL
;
375 child_ops
.to_remove_fork_catchpoint
= NULL
;
376 child_ops
.to_insert_vfork_catchpoint
= NULL
;
377 child_ops
.to_remove_vfork_catchpoint
= NULL
;
378 child_ops
.to_has_forked
= NULL
; /* to_has_forked */
379 child_ops
.to_has_vforked
= NULL
; /* to_has_vforked */
380 child_ops
.to_can_follow_vfork_prior_to_exec
= NULL
;
381 child_ops
.to_post_follow_vfork
= NULL
; /* to_post_follow_vfork */
382 child_ops
.to_insert_exec_catchpoint
= NULL
;
383 child_ops
.to_remove_exec_catchpoint
= NULL
;
384 child_ops
.to_has_execd
= NULL
;
385 child_ops
.to_reported_exec_events_per_exec_call
= NULL
;
386 child_ops
.to_has_exited
= NULL
;
387 child_ops
.to_mourn_inferior
= child_mourn_inferior
;
388 child_ops
.to_can_run
= child_can_run
;
389 child_ops
.to_notice_signals
= 0;
390 child_ops
.to_thread_alive
= 0;
391 child_ops
.to_stop
= child_stop
;
392 child_ops
.to_pid_to_exec_file
= NULL
; /* to_pid_to_exec_file */
393 child_ops
.to_core_file_to_sym_file
= NULL
;
394 child_ops
.to_stratum
= process_stratum
;
395 child_ops
.DONT_USE
= 0;
396 child_ops
.to_has_all_memory
= 1;
397 child_ops
.to_has_memory
= 1;
398 child_ops
.to_has_stack
= 1;
399 child_ops
.to_has_registers
= 1;
400 child_ops
.to_has_execution
= 1;
401 child_ops
.to_sections
= 0;
402 child_ops
.to_sections_end
= 0;
403 child_ops
.to_magic
= OPS_MAGIC
;
407 _initialize_mac_nat ()
411 add_info ("proc", info_proc
,
412 "Show information about processes.");