Subversion Repositories or1k

/* Interface between GDB and target environments, including files and processes

   Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,

   2000, 2001 Free Software Foundation, Inc.

   Contributed by Cygnus Support.  Written by John Gilmore.

   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.  */

#if !defined (TARGET_H)

#define TARGET_H

/* This include file defines the interface between the main part

   of the debugger, and the part which is target-specific, or

   specific to the communications interface between us and the

   target.

   A TARGET is an interface between the debugger and a particular

   kind of file or process.  Targets can be STACKED in STRATA,

   so that more than one target can potentially respond to a request.

   In particular, memory accesses will walk down the stack of targets

   until they find a target that is interested in handling that particular

   address.  STRATA are artificial boundaries on the stack, within

   which particular kinds of targets live.  Strata exist so that

   people don't get confused by pushing e.g. a process target and then

   a file target, and wondering why they can't see the current values

   of variables any more (the file target is handling them and they

   never get to the process target).  So when you push a file target,

   it goes into the file stratum, which is always below the process

   stratum.  */

#include "bfd.h"

#include "symtab.h"

#include "dcache.h"

#include "memattr.h"

enum strata

  {

    dummy_stratum,              /* The lowest of the low */

    file_stratum,               /* Executable files, etc */

    core_stratum,               /* Core dump files */

    download_stratum,           /* Downloading of remote targets */

    process_stratum,            /* Executing processes */

    thread_stratum              /* Executing threads */

  };

enum thread_control_capabilities

  {

    tc_none = 0,         /* Default: can't control thread execution.  */

    tc_schedlock = 1,           /* Can lock the thread scheduler.  */

    tc_switch = 2               /* Can switch the running thread on demand.  */

  };

/* Stuff for target_wait.  */

/* Generally, what has the program done?  */

enum target_waitkind

  {

    /* The program has exited.  The exit status is in value.integer.  */

    TARGET_WAITKIND_EXITED,

    /* The program has stopped with a signal.  Which signal is in

       value.sig.  */

    TARGET_WAITKIND_STOPPED,

    /* The program has terminated with a signal.  Which signal is in

       value.sig.  */

    TARGET_WAITKIND_SIGNALLED,

    /* The program is letting us know that it dynamically loaded something

       (e.g. it called load(2) on AIX).  */

    TARGET_WAITKIND_LOADED,

    /* The program has forked.  A "related" process' ID is in

       value.related_pid.  I.e., if the child forks, value.related_pid

       is the parent's ID.  */

    TARGET_WAITKIND_FORKED,

    /* The program has vforked.  A "related" process's ID is in

       value.related_pid.  */

    TARGET_WAITKIND_VFORKED,

    /* The program has exec'ed a new executable file.  The new file's

       pathname is pointed to by value.execd_pathname.  */

    TARGET_WAITKIND_EXECD,

    /* The program has entered or returned from a system call.  On

       HP-UX, this is used in the hardware watchpoint implementation.

       The syscall's unique integer ID number is in value.syscall_id */

    TARGET_WAITKIND_SYSCALL_ENTRY,

    TARGET_WAITKIND_SYSCALL_RETURN,

    /* Nothing happened, but we stopped anyway.  This perhaps should be handled

       within target_wait, but I'm not sure target_wait should be resuming the

       inferior.  */

    TARGET_WAITKIND_SPURIOUS,

    /* This is used for target async and extended-async

       only. Remote_async_wait() returns this when there is an event

       on the inferior, but the rest of the world is not interested in

       it. The inferior has not stopped, but has just sent some output

       to the console, for instance. In this case, we want to go back

       to the event loop and wait there for another event from the

       inferior, rather than being stuck in the remote_async_wait()

       function. This way the event loop is responsive to other events,

       like for instance the user typing.  */

    TARGET_WAITKIND_IGNORE

  };

struct target_waitstatus

  {

    enum target_waitkind kind;

    /* Forked child pid, execd pathname, exit status or signal number.  */

    union

      {

        int integer;

        enum target_signal sig;

        int related_pid;

        char *execd_pathname;

        int syscall_id;

      }

    value;

  };

/* Possible types of events that the inferior handler will have to

   deal with.  */

enum inferior_event_type

  {

    /* There is a request to quit the inferior, abandon it.  */

    INF_QUIT_REQ,

    /* Process a normal inferior event which will result in target_wait

       being called.  */

    INF_REG_EVENT,

    /* Deal with an error on the inferior.  */

    INF_ERROR,

    /* We are called because a timer went off.  */

    INF_TIMER,

    /* We are called to do stuff after the inferior stops.  */

    INF_EXEC_COMPLETE,

    /* We are called to do some stuff after the inferior stops, but we

       are expected to reenter the proceed() and

       handle_inferior_event() functions. This is used only in case of

       'step n' like commands.  */

    INF_EXEC_CONTINUE

  };

/* Return the string for a signal.  */

extern char *target_signal_to_string (enum target_signal);

/* Return the name (SIGHUP, etc.) for a signal.  */

extern char *target_signal_to_name (enum target_signal);

/* Given a name (SIGHUP, etc.), return its signal.  */

enum target_signal target_signal_from_name (char *);

/* If certain kinds of activity happen, target_wait should perform

   callbacks.  */

/* Right now we just call (*TARGET_ACTIVITY_FUNCTION) if I/O is possible

   on TARGET_ACTIVITY_FD.  */

extern int target_activity_fd;

/* Returns zero to leave the inferior alone, one to interrupt it.  */

extern int (*target_activity_function) (void);

struct thread_info;             /* fwd decl for parameter list below: */

struct target_ops

  {

    char *to_shortname;         /* Name this target type */

    char *to_longname;          /* Name for printing */

    char *to_doc;               /* Documentation.  Does not include trailing

                                   newline, and starts with a one-line descrip-

                                   tion (probably similar to to_longname).  */

    void (*to_open) (char *, int);

    void (*to_close) (int);

    void (*to_attach) (char *, int);

    void (*to_post_attach) (int);

    void (*to_require_attach) (char *, int);

    void (*to_detach) (char *, int);

    void (*to_require_detach) (int, char *, int);

    void (*to_resume) (ptid_t, int, enum target_signal);

    ptid_t (*to_wait) (ptid_t, struct target_waitstatus *);

    void (*to_post_wait) (ptid_t, int);

    void (*to_fetch_registers) (int);

    void (*to_store_registers) (int);

    void (*to_prepare_to_store) (void);

    /* Transfer LEN bytes of memory between GDB address MYADDR and

       target address MEMADDR.  If WRITE, transfer them to the target, else

       transfer them from the target.  TARGET is the target from which we

       get this function.

       Return value, N, is one of the following:

       error which prevented us from doing it (FIXME: What about bfd_error?).

       positive (call it N) means that we have transferred N bytes

       starting at MEMADDR.  We might be able to handle more bytes

       beyond this length, but no promises.

       negative (call its absolute value N) means that we cannot

       transfer right at MEMADDR, but we could transfer at least

       something at MEMADDR + N.  */

    int (*to_xfer_memory) (CORE_ADDR memaddr, char *myaddr,

                           int len, int write,

                           struct mem_attrib *attrib,

                           struct target_ops *target);

#if 0

    /* Enable this after 4.12.  */

    /* Search target memory.  Start at STARTADDR and take LEN bytes of

       target memory, and them with MASK, and compare to DATA.  If they

       match, set *ADDR_FOUND to the address we found it at, store the data

       we found at LEN bytes starting at DATA_FOUND, and return.  If

       not, add INCREMENT to the search address and keep trying until

       the search address is outside of the range [LORANGE,HIRANGE).

       If we don't find anything, set *ADDR_FOUND to (CORE_ADDR)0 and

       return.  */

    void (*to_search) (int len, char *data, char *mask,

                       CORE_ADDR startaddr, int increment,

                       CORE_ADDR lorange, CORE_ADDR hirange,

                       CORE_ADDR * addr_found, char *data_found);

#define target_search(len, data, mask, startaddr, increment, lorange, hirange, addr_found, data_found)  \

    (*current_target.to_search) (len, data, mask, startaddr, increment, \

                                 lorange, hirange, addr_found, data_found)

#endif                          /* 0 */

    void (*to_files_info) (struct target_ops *);

    int (*to_insert_breakpoint) (CORE_ADDR, char *);

    int (*to_remove_breakpoint) (CORE_ADDR, char *);

    void (*to_terminal_init) (void);

    void (*to_terminal_inferior) (void);

    void (*to_terminal_ours_for_output) (void);

    void (*to_terminal_ours) (void);

    void (*to_terminal_info) (char *, int);

    void (*to_kill) (void);

    void (*to_load) (char *, int);

    int (*to_lookup_symbol) (char *, CORE_ADDR *);

    void (*to_create_inferior) (char *, char *, char **);

    void (*to_post_startup_inferior) (ptid_t);

    void (*to_acknowledge_created_inferior) (int);

    void (*to_clone_and_follow_inferior) (int, int *);

    void (*to_post_follow_inferior_by_clone) (void);

    int (*to_insert_fork_catchpoint) (int);

    int (*to_remove_fork_catchpoint) (int);

    int (*to_insert_vfork_catchpoint) (int);

    int (*to_remove_vfork_catchpoint) (int);

    int (*to_has_forked) (int, int *);

    int (*to_has_vforked) (int, int *);

    int (*to_can_follow_vfork_prior_to_exec) (void);

    void (*to_post_follow_vfork) (int, int, int, int);

    int (*to_insert_exec_catchpoint) (int);

    int (*to_remove_exec_catchpoint) (int);

    int (*to_has_execd) (int, char **);

    int (*to_reported_exec_events_per_exec_call) (void);

    int (*to_has_syscall_event) (int, enum target_waitkind *, int *);

    int (*to_has_exited) (int, int, int *);

    void (*to_mourn_inferior) (void);

    int (*to_can_run) (void);

    void (*to_notice_signals) (ptid_t ptid);

    int (*to_thread_alive) (ptid_t ptid);

    void (*to_find_new_threads) (void);

    char *(*to_pid_to_str) (ptid_t);

    char *(*to_extra_thread_info) (struct thread_info *);

    void (*to_stop) (void);

    int (*to_query) (int /*char */ , char *, char *, int *);

    void (*to_rcmd) (char *command, struct ui_file *output);

    struct symtab_and_line *(*to_enable_exception_callback) (enum

                                                             exception_event_kind,

                                                             int);

    struct exception_event_record *(*to_get_current_exception_event) (void);

    char *(*to_pid_to_exec_file) (int pid);

    enum strata to_stratum;

    struct target_ops

     *DONT_USE;                 /* formerly to_next */

    int to_has_all_memory;

    int to_has_memory;

    int to_has_stack;

    int to_has_registers;

    int to_has_execution;

    int to_has_thread_control;  /* control thread execution */

    struct section_table

     *to_sections;

    struct section_table

     *to_sections_end;

    /* ASYNC target controls */

    int (*to_can_async_p) (void);

    int (*to_is_async_p) (void);

    void (*to_async) (void (*cb) (enum inferior_event_type, void *context),

                      void *context);

    int to_async_mask_value;

    int to_magic;

    /* Need sub-structure for target machine related rather than comm related?

     */

  };

/* Magic number for checking ops size.  If a struct doesn't end with this

   number, somebody changed the declaration but didn't change all the

   places that initialize one.  */

#define OPS_MAGIC       3840

/* The ops structure for our "current" target process.  This should

   never be NULL.  If there is no target, it points to the dummy_target.  */

extern struct target_ops current_target;

/* An item on the target stack.  */

struct target_stack_item

  {

    struct target_stack_item *next;

    struct target_ops *target_ops;

  };

/* The target stack.  */

extern struct target_stack_item *target_stack;

/* Define easy words for doing these operations on our current target.  */

#define target_shortname        (current_target.to_shortname)

#define target_longname         (current_target.to_longname)

/* The open routine takes the rest of the parameters from the command,

   and (if successful) pushes a new target onto the stack.

   Targets should supply this routine, if only to provide an error message.  */

#define target_open(name, from_tty)                                     \

  do {                                                                  \

    dcache_invalidate (target_dcache);                                  \

    (*current_target.to_open) (name, from_tty);                         \

  } while (0)

/* Does whatever cleanup is required for a target that we are no longer

   going to be calling.  Argument says whether we are quitting gdb and

   should not get hung in case of errors, or whether we want a clean

   termination even if it takes a while.  This routine is automatically

   always called just before a routine is popped off the target stack.

   Closing file descriptors and freeing memory are typical things it should

   do.  */

#define target_close(quitting)  \

     (*current_target.to_close) (quitting)

/* Attaches to a process on the target side.  Arguments are as passed

   to the `attach' command by the user.  This routine can be called

   when the target is not on the target-stack, if the target_can_run

   routine returns 1; in that case, it must push itself onto the stack.

   Upon exit, the target should be ready for normal operations, and

   should be ready to deliver the status of the process immediately

   (without waiting) to an upcoming target_wait call.  */

#define target_attach(args, from_tty)   \

     (*current_target.to_attach) (args, from_tty)

/* The target_attach operation places a process under debugger control,

   and stops the process.

   This operation provides a target-specific hook that allows the

   necessary bookkeeping to be performed after an attach completes.  */

#define target_post_attach(pid) \

     (*current_target.to_post_attach) (pid)

/* Attaches to a process on the target side, if not already attached.

   (If already attached, takes no action.)

   This operation can be used to follow the child process of a fork.

   On some targets, such child processes of an original inferior process

   are automatically under debugger control, and thus do not require an

   actual attach operation.  */

#define target_require_attach(args, from_tty)   \

     (*current_target.to_require_attach) (args, from_tty)

/* Takes a program previously attached to and detaches it.

   The program may resume execution (some targets do, some don't) and will

   no longer stop on signals, etc.  We better not have left any breakpoints

   in the program or it'll die when it hits one.  ARGS is arguments

   typed by the user (e.g. a signal to send the process).  FROM_TTY

   says whether to be verbose or not.  */

extern void target_detach (char *, int);

/* Detaches from a process on the target side, if not already dettached.

   (If already detached, takes no action.)

   This operation can be used to follow the parent process of a fork.

   On some targets, such child processes of an original inferior process

   are automatically under debugger control, and thus do require an actual

   detach operation.

   PID is the process id of the child to detach from.

   ARGS is arguments typed by the user (e.g. a signal to send the process).

   FROM_TTY says whether to be verbose or not.  */

#define target_require_detach(pid, args, from_tty)      \

     (*current_target.to_require_detach) (pid, args, from_tty)

/* Resume execution of the target process PTID.  STEP says whether to

   single-step or to run free; SIGGNAL is the signal to be given to

   the target, or TARGET_SIGNAL_0 for no signal.  The caller may not

   pass TARGET_SIGNAL_DEFAULT.  */

#define target_resume(ptid, step, siggnal)                              \

  do {                                                                  \

    dcache_invalidate(target_dcache);                                   \

    (*current_target.to_resume) (ptid, step, siggnal);                  \

  } while (0)

/* Wait for process pid to do something.  PTID = -1 to wait for any pid

   to do something.  Return pid of child, or -1 in case of error;

   store status through argument pointer STATUS.  Note that it is

   *not* OK to return_to_top_level out of target_wait without popping

   the debugging target from the stack; GDB isn't prepared to get back

   to the prompt with a debugging target but without the frame cache,

   stop_pc, etc., set up.  */

#define target_wait(ptid, status)               \

     (*current_target.to_wait) (ptid, status)

/* The target_wait operation waits for a process event to occur, and

   thereby stop the process.

   On some targets, certain events may happen in sequences.  gdb's

   correct response to any single event of such a sequence may require

   knowledge of what earlier events in the sequence have been seen.

   This operation provides a target-specific hook that allows the

   necessary bookkeeping to be performed to track such sequences.  */

#define target_post_wait(ptid, status) \

     (*current_target.to_post_wait) (ptid, status)

/* Fetch at least register REGNO, or all regs if regno == -1.  No result.  */

#define target_fetch_registers(regno)   \

     (*current_target.to_fetch_registers) (regno)

/* Store at least register REGNO, or all regs if REGNO == -1.

   It can store as many registers as it wants to, so target_prepare_to_store

   must have been previously called.  Calls error() if there are problems.  */

#define target_store_registers(regs)    \

     (*current_target.to_store_registers) (regs)

/* Get ready to modify the registers array.  On machines which store

   individual registers, this doesn't need to do anything.  On machines

   which store all the registers in one fell swoop, this makes sure

   that REGISTERS contains all the registers from the program being

   debugged.  */

#define target_prepare_to_store()       \

     (*current_target.to_prepare_to_store) ()

extern DCACHE *target_dcache;

extern int do_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len, int write,

                           struct mem_attrib *attrib);

extern int target_read_string (CORE_ADDR, char **, int, int *);

extern int target_read_memory (CORE_ADDR memaddr, char *myaddr, int len);

extern int target_write_memory (CORE_ADDR memaddr, char *myaddr, int len);

extern int xfer_memory (CORE_ADDR, char *, int, int,

                        struct mem_attrib *, struct target_ops *);

extern int child_xfer_memory (CORE_ADDR, char *, int, int,

                              struct mem_attrib *, struct target_ops *);

/* Make a single attempt at transfering LEN bytes.  On a successful

   transfer, the number of bytes actually transfered is returned and

   ERR is set to 0.  When a transfer fails, -1 is returned (the number

   of bytes actually transfered is not defined) and ERR is set to a

   non-zero error indication.  */

extern int

target_read_memory_partial (CORE_ADDR addr, char *buf, int len, int *err);

extern int

target_write_memory_partial (CORE_ADDR addr, char *buf, int len, int *err);

extern char *child_pid_to_exec_file (int);

extern char *child_core_file_to_sym_file (char *);

#if defined(CHILD_POST_ATTACH)

extern void child_post_attach (int);

#endif

extern void child_post_wait (ptid_t, int);

extern void child_post_startup_inferior (ptid_t);

extern void child_acknowledge_created_inferior (int);

extern void child_clone_and_follow_inferior (int, int *);

extern void child_post_follow_inferior_by_clone (void);

extern int child_insert_fork_catchpoint (int);

extern int child_remove_fork_catchpoint (int);

extern int child_insert_vfork_catchpoint (int);

extern int child_remove_vfork_catchpoint (int);

extern int child_has_forked (int, int *);

extern int child_has_vforked (int, int *);

extern void child_acknowledge_created_inferior (int);

extern int child_can_follow_vfork_prior_to_exec (void);

extern void child_post_follow_vfork (int, int, int, int);

extern int child_insert_exec_catchpoint (int);

extern int child_remove_exec_catchpoint (int);

extern int child_has_execd (int, char **);

extern int child_reported_exec_events_per_exec_call (void);

extern int child_has_syscall_event (int, enum target_waitkind *, int *);

extern int child_has_exited (int, int, int *);

extern int child_thread_alive (ptid_t);

/* From exec.c */

extern void print_section_info (struct target_ops *, bfd *);

/* Print a line about the current target.  */

#define target_files_info()     \

     (*current_target.to_files_info) (&current_target)

/* Insert a breakpoint at address ADDR in the target machine.

   SAVE is a pointer to memory allocated for saving the

   target contents.  It is guaranteed by the caller to be long enough

   to save "sizeof BREAKPOINT" bytes.  Result is 0 for success, or

   an errno value.  */

#define target_insert_breakpoint(addr, save)    \

     (*current_target.to_insert_breakpoint) (addr, save)

/* Remove a breakpoint at address ADDR in the target machine.

   SAVE is a pointer to the same save area

   that was previously passed to target_insert_breakpoint.

   Result is 0 for success, or an errno value.  */

#define target_remove_breakpoint(addr, save)    \

     (*current_target.to_remove_breakpoint) (addr, save)

/* Initialize the terminal settings we record for the inferior,

   before we actually run the inferior.  */

#define target_terminal_init() \

     (*current_target.to_terminal_init) ()

/* Put the inferior's terminal settings into effect.

   This is preparation for starting or resuming the inferior.  */

#define target_terminal_inferior() \

     (*current_target.to_terminal_inferior) ()

/* Put some of our terminal settings into effect,

   enough to get proper results from our output,

   but do not change into or out of RAW mode

   so that no input is discarded.

   After doing this, either terminal_ours or terminal_inferior

   should be called to get back to a normal state of affairs.  */

#define target_terminal_ours_for_output() \

     (*current_target.to_terminal_ours_for_output) ()

/* Put our terminal settings into effect.

   First record the inferior's terminal settings

   so they can be restored properly later.  */

#define target_terminal_ours() \

     (*current_target.to_terminal_ours) ()

/* Print useful information about our terminal status, if such a thing

   exists.  */

#define target_terminal_info(arg, from_tty) \

     (*current_target.to_terminal_info) (arg, from_tty)

/* Kill the inferior process.   Make it go away.  */

#define target_kill() \

     (*current_target.to_kill) ()

/* Load an executable file into the target process.  This is expected

   to not only bring new code into the target process, but also to

   update GDB's symbol tables to match.  */

extern void target_load (char *arg, int from_tty);

/* Look up a symbol in the target's symbol table.  NAME is the symbol

   name.  ADDRP is a CORE_ADDR * pointing to where the value of the

   symbol should be returned.  The result is 0 if successful, nonzero

   if the symbol does not exist in the target environment.  This

   function should not call error() if communication with the target

   is interrupted, since it is called from symbol reading, but should

   return nonzero, possibly doing a complain().  */

#define target_lookup_symbol(name, addrp) \

     (*current_target.to_lookup_symbol) (name, addrp)

/* Start an inferior process and set 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().

   On VxWorks and various standalone systems, we ignore exec_file.  */

#define target_create_inferior(exec_file, args, env)    \

     (*current_target.to_create_inferior) (exec_file, args, env)

/* Some targets (such as ttrace-based HPUX) don't allow us to request

   notification of inferior events such as fork and vork immediately

   after the inferior is created.  (This because of how gdb gets an

   inferior created via invoking a shell to do it.  In such a scenario,

   if the shell init file has commands in it, the shell will fork and

   exec for each of those commands, and we will see each such fork

   event.  Very bad.)

   Such targets will supply an appropriate definition for this function.  */

#define target_post_startup_inferior(ptid) \

     (*current_target.to_post_startup_inferior) (ptid)

/* On some targets, the sequence of starting up an inferior requires

   some synchronization between gdb and the new inferior process, PID.  */

#define target_acknowledge_created_inferior(pid) \

     (*current_target.to_acknowledge_created_inferior) (pid)

/* An inferior process has been created via a fork() or similar

   system call.  This function will clone the debugger, then ensure

   that CHILD_PID is attached to by that debugger.

   FOLLOWED_CHILD is set TRUE on return *for the clone debugger only*,

   and FALSE otherwise.  (The original and clone debuggers can use this

   to determine which they are, if need be.)

   (This is not a terribly useful feature without a GUI to prevent

   the two debuggers from competing for shell input.)  */

#define target_clone_and_follow_inferior(child_pid,followed_child) \

     (*current_target.to_clone_and_follow_inferior) (child_pid, followed_child)

/* This operation is intended to be used as the last in a sequence of

   steps taken when following both parent and child of a fork.  This

   is used by a clone of the debugger, which will follow the child.

   The original debugger has detached from this process, and the

   clone has attached to it.

   On some targets, this requires a bit of cleanup to make it work

   correctly.  */

#define target_post_follow_inferior_by_clone() \

     (*current_target.to_post_follow_inferior_by_clone) ()

/* On some targets, we can catch an inferior fork or vfork event when

   it occurs.  These functions insert/remove an already-created

   catchpoint for such events.  */

#define target_insert_fork_catchpoint(pid) \

     (*current_target.to_insert_fork_catchpoint) (pid)

#define target_remove_fork_catchpoint(pid) \

     (*current_target.to_remove_fork_catchpoint) (pid)

#define target_insert_vfork_catchpoint(pid) \

     (*current_target.to_insert_vfork_catchpoint) (pid)

#define target_remove_vfork_catchpoint(pid) \

     (*current_target.to_remove_vfork_catchpoint) (pid)

/* Returns TRUE if PID has invoked the fork() system call.  And,

   also sets CHILD_PID to the process id of the other ("child")

   inferior process that was created by that call.  */

#define target_has_forked(pid,child_pid) \

     (*current_target.to_has_forked) (pid,child_pid)

/* Returns TRUE if PID has invoked the vfork() system call.  And,

   also sets CHILD_PID to the process id of the other ("child")

   inferior process that was created by that call.  */

#define target_has_vforked(pid,child_pid) \

     (*current_target.to_has_vforked) (pid,child_pid)

/* Some platforms (such as pre-10.20 HP-UX) don't allow us to do

   anything to a vforked child before it subsequently calls exec().

   On such platforms, we say that the debugger cannot "follow" the

   child until it has vforked.