1 /* Data structures and API for event locations in GDB.
2 Copyright (C) 2013-2015 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program. If not, see <http://www.gnu.org/licenses/>. */
20 #include "gdb_assert.h"
25 #include "cli/cli-utils.h"
31 /* An event location used to set a stop event in the inferior.
32 This structure is an amalgam of the various ways
33 to specify where a stop event should be set. */
37 /* The type of this breakpoint specification. */
38 enum event_location_type type
;
39 #define EL_TYPE(PTR) (PTR)->type
43 /* A generic "this is a string specification" for a location.
44 This representation is used by both "normal" linespecs and
47 #define EL_LINESPEC(PTR) ((PTR)->u.addr_string)
49 /* An address in the inferior. */
51 #define EL_ADDRESS(PTR) (PTR)->u.address
54 /* Cached string representation of this location. This is used, e.g., to
55 save stop event locations to file. Malloc'd. */
57 #define EL_STRING(PTR) ((PTR)->as_string)
60 /* See description in location.h. */
62 enum event_location_type
63 event_location_type (const struct event_location
*location
)
65 return EL_TYPE (location
);
68 /* See description in location.h. */
70 struct event_location
*
71 new_linespec_location (char **linespec
)
73 struct event_location
*location
;
75 location
= XCNEW (struct event_location
);
76 EL_TYPE (location
) = LINESPEC_LOCATION
;
77 if (*linespec
!= NULL
)
80 char *orig
= *linespec
;
82 linespec_lex_to_end (linespec
);
83 p
= remove_trailing_whitespace (orig
, *linespec
);
85 EL_LINESPEC (location
) = savestring (orig
, p
- orig
);
90 /* See description in location.h. */
93 get_linespec_location (const struct event_location
*location
)
95 gdb_assert (EL_TYPE (location
) == LINESPEC_LOCATION
);
96 return EL_LINESPEC (location
);
99 /* See description in location.h. */
101 struct event_location
*
102 new_address_location (CORE_ADDR addr
)
104 struct event_location
*location
;
106 location
= XCNEW (struct event_location
);
107 EL_TYPE (location
) = ADDRESS_LOCATION
;
108 EL_ADDRESS (location
) = addr
;
112 /* See description in location.h. */
115 get_address_location (const struct event_location
*location
)
117 gdb_assert (EL_TYPE (location
) == ADDRESS_LOCATION
);
118 return EL_ADDRESS (location
);
121 /* See description in location.h. */
123 struct event_location
*
124 copy_event_location (const struct event_location
*src
)
126 struct event_location
*dst
;
128 dst
= XCNEW (struct event_location
);
129 EL_TYPE (dst
) = EL_TYPE (src
);
130 if (EL_STRING (src
) != NULL
)
131 EL_STRING (dst
) = xstrdup (EL_STRING (src
));
133 switch (EL_TYPE (src
))
135 case LINESPEC_LOCATION
:
136 if (EL_LINESPEC (src
) != NULL
)
137 EL_LINESPEC (dst
) = xstrdup (EL_LINESPEC (src
));
140 case ADDRESS_LOCATION
:
141 EL_ADDRESS (dst
) = EL_ADDRESS (src
);
145 gdb_assert_not_reached ("unknown event location type");
151 /* A cleanup function for struct event_location. */
154 delete_event_location_cleanup (void *data
)
156 struct event_location
*location
= (struct event_location
*) data
;
158 delete_event_location (location
);
161 /* See description in location.h. */
164 make_cleanup_delete_event_location (struct event_location
*location
)
166 return make_cleanup (delete_event_location_cleanup
, location
);
169 /* See description in location.h. */
172 delete_event_location (struct event_location
*location
)
174 if (location
!= NULL
)
176 xfree (EL_STRING (location
));
178 switch (EL_TYPE (location
))
180 case LINESPEC_LOCATION
:
181 xfree (EL_LINESPEC (location
));
184 case ADDRESS_LOCATION
:
189 gdb_assert_not_reached ("unknown event location type");
196 /* See description in location.h. */
199 event_location_to_string (struct event_location
*location
)
201 if (EL_STRING (location
) == NULL
)
203 switch (EL_TYPE (location
))
205 case LINESPEC_LOCATION
:
206 if (EL_LINESPEC (location
) != NULL
)
207 EL_STRING (location
) = xstrdup (EL_LINESPEC (location
));
210 case ADDRESS_LOCATION
:
213 core_addr_to_string (EL_ADDRESS (location
)));
217 gdb_assert_not_reached ("unknown event location type");
221 return EL_STRING (location
);
224 /* See description in location.h. */
226 struct event_location
*
227 string_to_event_location (char **stringp
,
228 const struct language_defn
*language
)
230 struct event_location
*location
;
232 /* First, check if the string is an address location. */
233 if (*stringp
!= NULL
&& **stringp
== '*')
235 const char *arg
, *orig
;
238 orig
= arg
= *stringp
;
239 addr
= linespec_expression_to_pc (&arg
);
240 location
= new_address_location (addr
);
241 *stringp
+= arg
- orig
;
245 /* Everything else is a linespec. */
246 location
= new_linespec_location (stringp
);
252 /* See description in location.h. */
255 event_location_empty_p (const struct event_location
*location
)
257 switch (EL_TYPE (location
))
259 case LINESPEC_LOCATION
:
260 /* Linespecs are never "empty." (NULL is a valid linespec) */
263 case ADDRESS_LOCATION
:
267 gdb_assert_not_reached ("unknown event location type");
271 /* See description in location.h. */
274 set_event_location_string (struct event_location
*location
,
277 xfree (EL_STRING (location
));
278 EL_STRING (location
) = string
== NULL
? NULL
: xstrdup (string
);