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, Boston, MA 02111-1307, USA. */
21 /* Note that because all the available Mac compilers are ANSI or very
22 close, and this is a native-only file, the code may be purely ANSI. */
25 #include "frame.h" /* required by inferior.h */
32 #include <sys/types.h>
35 #include "gdb_string.h"
39 #include <Processes.h>
41 /* We call the functions "child_..." rather than "mac_..." so no one
42 is tempted to try to link this with other native-only code. */
44 /* Forward declaration */
46 extern struct target_ops child_ops
;
49 child_fetch_inferior_registers (int r
)
53 for (r
= 0; r
< NUM_REGS
; r
++)
54 child_fetch_inferior_registers (r
);
58 supply_register (r
, 0);
63 child_store_inferior_registers (int r
)
67 for (r
= 0; r
< NUM_REGS
; r
++)
68 child_store_inferior_registers (r
);
72 read_register_gen (r
, 0);
77 child_wait (int pid
, struct target_waitstatus
*ourstatus
)
81 /* Attach to process PID, then initialize for debugging it. */
84 child_attach (args
, from_tty
)
88 ProcessSerialNumber psn
;
89 ProcessInfoRec inforec
;
97 error_no_arg ("process-id to attach");
101 psn
.highLongOfPSN
= 0;
102 psn
.lowLongOfPSN
= pid
;
104 inforec
.processInfoLength
= sizeof(ProcessInfoRec
);
105 inforec
.processName
= name
;
106 inforec
.processAppSpec
= fsspec
;
108 if (GetProcessInformation (&psn
, &inforec
) == noErr
)
112 exec_file
= (char *) get_exec_file (0);
115 printf_unfiltered ("Attaching to program `%s', %s\n", exec_file
,
116 target_pid_to_str (pid
));
118 printf_unfiltered ("Attaching to %s\n", target_pid_to_str (pid
));
120 gdb_flush (gdb_stdout
);
122 /* Do we need to do anything special? */
125 push_target (&child_ops
);
130 child_detach (args
, 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 (ignore
)
153 struct target_ops
*ignore
;
155 printf_unfiltered ("\tUsing the running image of %s %s.\n",
156 attach_flag
? "attached" : "child", target_pid_to_str (inferior_pid
));
161 child_open (arg
, from_tty
)
165 error ("Use the \"run\" command to start a Mac application.");
168 /* Start an inferior Mac program and sets inferior_pid to its pid.
169 EXEC_FILE is the file to run.
170 ALLARGS is a string containing the arguments to the program.
171 ENV is the environment vector to pass. Errors reported with error(). */
174 child_create_inferior (exec_file
, allargs
, env
)
179 LaunchParamBlockRec launchparms
;
185 error ("No executable specified, use `target exec'.\n");
188 launchparms
.launchBlockID
= extendedBlock
;
189 launchparms
.launchEPBLength
= extendedBlockLen
;
190 launchparms
.launchFileFlags
= 0;
191 launchparms
.launchControlFlags
= launchContinue
| launchNoFileFlags
;
194 strcpy(fsspec
.name
+ 1, exec_file
);
195 fsspec
.name
[0] = strlen(exec_file
);
196 launchparms
.launchAppSpec
= &fsspec
;
197 launchparms
.launchAppParameters
= nil
;
199 launch_err
= LaunchApplication (&launchparms
);
201 if (launch_err
== 999 /*memFullErr*/)
203 error ("Not enough memory to launch %s\n", exec_file
);
205 else if (launch_err
!= noErr
)
207 error ("Error launching %s, code %d\n", exec_file
, launch_err
);
210 inferior_pid
= launchparms
.launchProcessSN
.lowLongOfPSN
;
211 /* FIXME be sure that high long of PSN is 0 */
213 push_target (&child_ops
);
214 init_wait_for_inferior ();
215 clear_proceed_status ();
217 /* proceed ((CORE_ADDR) - 1, TARGET_SIGNAL_0, 0); */
221 child_mourn_inferior ()
223 unpush_target (&child_ops
);
224 generic_mourn_inferior ();
233 child_xfer_memory (CORE_ADDR memaddr
, char *myaddr
, int len
,
234 int write
, struct target_ops
*target
)
238 for (i
= 0; i
< len
; ++i
)
242 ((char *) memaddr
)[i
] = myaddr
[i
];
246 myaddr
[i
] = ((char *) memaddr
)[i
];
253 child_kill_inferior (void)
258 child_resume (int pid
, int step
, enum target_signal signal
)
263 child_prepare_to_store ()
265 /* Do nothing, since we can store individual regs */
280 info_proc (args
, from_tty
)
284 ProcessSerialNumber psn
;
285 ProcessInfoRec inforec
;
290 /* Eventually use args, but not right now. */
292 psn
.highLongOfPSN
= 0;
293 psn
.lowLongOfPSN
= kNoProcess
;
295 inforec
.processInfoLength
= sizeof(ProcessInfoRec
);
296 inforec
.processName
= name
;
297 inforec
.processAppSpec
= fsspec
;
299 printf_filtered ("Process Name Sgnt Type PSN Loc Size FreeMem Time\n");
301 while (GetNextProcess (&psn
) == noErr
)
303 if (GetProcessInformation (&psn
, &inforec
) == noErr
)
305 name
[name
[0] + 1] = '\0';
306 printf_filtered ("%-32.32s", name
+ 1);
307 code
= inforec
.processSignature
;
308 printf_filtered (" %c%c%c%c",
313 code
= inforec
.processType
;
314 printf_filtered (" %c%c%c%c",
319 if (psn
.highLongOfPSN
== 0)
320 printf_filtered (" %9d", psn
.lowLongOfPSN
);
322 printf_filtered (" %9d,%9d\n",
323 psn
.highLongOfPSN
, psn
.lowLongOfPSN
);
324 printf_filtered (" 0x%x", inforec
.processLocation
);
325 printf_filtered (" %9d", inforec
.processSize
);
326 printf_filtered (" %9d", inforec
.processFreeMem
);
327 printf_filtered (" %9d", inforec
.processActiveTime
);
328 printf_filtered ("\n");
333 struct target_ops child_ops
=
335 "mac", /* to_shortname */
336 "MacOS application", /* to_longname */
337 "MacOS application (started by the \"run\" command).", /* to_doc */
338 child_open
, /* to_open */
339 child_close
, /* to_close */
340 child_attach
, /* to_attach */
341 child_detach
, /* to_detach */
342 child_resume
, /* to_resume */
343 child_wait
, /* to_wait */
344 child_fetch_inferior_registers
,/* to_fetch_registers */
345 child_store_inferior_registers
,/* to_store_registers */
346 child_prepare_to_store
, /* to_prepare_to_store */
347 child_xfer_memory
, /* to_xfer_memory */
348 child_files_info
, /* to_files_info */
349 memory_insert_breakpoint
, /* to_insert_breakpoint */
350 memory_remove_breakpoint
, /* to_remove_breakpoint */
351 0, /* to_terminal_init */
352 0, /* to_terminal_inferior */
353 0, /* to_terminal_ours_for_output */
354 0, /* to_terminal_ours */
355 0, /* to_terminal_info */
356 child_kill_inferior
, /* to_kill */
358 0, /* to_lookup_symbol */
359 child_create_inferior
, /* to_create_inferior */
360 child_mourn_inferior
, /* to_mourn_inferior */
361 child_can_run
, /* to_can_run */
362 0, /* to_notice_signals */
363 0, /* to_thread_alive */
364 child_stop
, /* to_stop */
365 process_stratum
, /* to_stratum */
367 1, /* to_has_all_memory */
368 1, /* to_has_memory */
369 1, /* to_has_stack */
370 1, /* to_has_registers */
371 1, /* to_has_execution */
373 0, /* to_sections_end */
374 OPS_MAGIC
/* to_magic */
378 _initialize_mac_nat ()
380 add_target (&child_ops
);
382 add_info ("proc", info_proc
,
383 "Show information about processes.");