1 /* Target operations for the remote server for GDB.
2 Copyright (C) 2002-2013 Free Software Foundation, Inc.
4 Contributed by MontaVista Software.
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 3 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 even the 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, see <http://www.gnu.org/licenses/>. */
23 struct target_ops
*the_target
;
26 set_desired_inferior (int use_general
)
28 struct thread_info
*found
;
31 found
= find_thread_ptid (general_thread
);
33 found
= find_thread_ptid (cont_thread
);
36 current_inferior
= (struct thread_info
*) all_threads
.head
;
38 current_inferior
= found
;
42 read_inferior_memory (CORE_ADDR memaddr
, unsigned char *myaddr
, int len
)
45 res
= (*the_target
->read_memory
) (memaddr
, myaddr
, len
);
46 check_mem_read (memaddr
, myaddr
, len
);
51 write_inferior_memory (CORE_ADDR memaddr
, const unsigned char *myaddr
,
54 /* Lacking cleanups, there is some potential for a memory leak if the
55 write fails and we go through error(). Make sure that no more than
56 one buffer is ever pending by making BUFFER static. */
57 static unsigned char *buffer
= 0;
63 buffer
= xmalloc (len
);
64 memcpy (buffer
, myaddr
, len
);
65 check_mem_write (memaddr
, buffer
, myaddr
, len
);
66 res
= (*the_target
->write_memory
) (memaddr
, buffer
, len
);
74 mywait (ptid_t ptid
, struct target_waitstatus
*ourstatus
, int options
,
82 ret
= (*the_target
->wait
) (ptid
, ourstatus
, options
);
84 if (ourstatus
->kind
== TARGET_WAITKIND_EXITED
)
86 "\nChild exited with status %d\n", ourstatus
->value
.integer
);
87 else if (ourstatus
->kind
== TARGET_WAITKIND_SIGNALLED
)
88 fprintf (stderr
, "\nChild terminated with signal = 0x%x (%s)\n",
89 gdb_signal_to_host (ourstatus
->value
.sig
),
90 gdb_signal_to_name (ourstatus
->value
.sig
));
99 start_non_stop (int nonstop
)
101 if (the_target
->start_non_stop
== NULL
)
109 return (*the_target
->start_non_stop
) (nonstop
);
113 set_target_ops (struct target_ops
*target
)
115 the_target
= (struct target_ops
*) xmalloc (sizeof (*the_target
));
116 memcpy (the_target
, target
, sizeof (*the_target
));
119 /* Convert pid to printable format. */
122 target_pid_to_str (ptid_t ptid
)
126 if (ptid_equal (ptid
, minus_one_ptid
))
127 xsnprintf (buf
, sizeof (buf
), "<all threads>");
128 else if (ptid_equal (ptid
, null_ptid
))
129 xsnprintf (buf
, sizeof (buf
), "<null thread>");
130 else if (ptid_get_tid (ptid
) != 0)
131 xsnprintf (buf
, sizeof (buf
), "Thread %d.0x%lx",
132 ptid_get_pid (ptid
), ptid_get_tid (ptid
));
133 else if (ptid_get_lwp (ptid
) != 0)
134 xsnprintf (buf
, sizeof (buf
), "LWP %d.%ld",
135 ptid_get_pid (ptid
), ptid_get_lwp (ptid
));
137 xsnprintf (buf
, sizeof (buf
), "Process %d",
138 ptid_get_pid (ptid
));
143 /* Return a pretty printed form of target_waitstatus. */
146 target_waitstatus_to_string (const struct target_waitstatus
*ws
)
148 static char buf
[200];
149 const char *kind_str
= "status->kind = ";
153 case TARGET_WAITKIND_EXITED
:
154 sprintf (buf
, "%sexited, status = %d",
155 kind_str
, ws
->value
.integer
);
157 case TARGET_WAITKIND_STOPPED
:
158 sprintf (buf
, "%sstopped, signal = %s",
159 kind_str
, gdb_signal_to_name (ws
->value
.sig
));
161 case TARGET_WAITKIND_SIGNALLED
:
162 sprintf (buf
, "%ssignalled, signal = %s",
163 kind_str
, gdb_signal_to_name (ws
->value
.sig
));
165 case TARGET_WAITKIND_LOADED
:
166 sprintf (buf
, "%sloaded", kind_str
);
168 case TARGET_WAITKIND_EXECD
:
169 sprintf (buf
, "%sexecd", kind_str
);
171 case TARGET_WAITKIND_SPURIOUS
:
172 sprintf (buf
, "%sspurious", kind_str
);
174 case TARGET_WAITKIND_IGNORE
:
175 sprintf (buf
, "%signore", kind_str
);
178 sprintf (buf
, "%sunknown???", kind_str
);
186 kill_inferior (int pid
)
188 gdb_agent_about_to_close (pid
);
190 return (*the_target
->kill
) (pid
);