GDB (xrefs)
Loading...
Searching...
No Matches
scm-symtab.c
Go to the documentation of this file.
1/* Scheme interface to symbol tables.
2
3 Copyright (C) 2008-2023 Free Software Foundation, Inc.
4
5 This file is part of GDB.
6
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 3 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
19
20/* See README file in this directory for implementation notes, coding
21 conventions, et.al. */
22
23#include "defs.h"
24#include "symtab.h"
25#include "source.h"
26#include "objfiles.h"
27#include "block.h"
28#include "guile-internal.h"
29
30/* A <gdb:symtab> smob. */
31
33{
34 /* This always appears first.
35 eqable_gdb_smob is used so that symtabs are eq?-able.
36 Also, a symtab object is associated with an objfile. eqable_gdb_smob
37 lets us track the lifetime of all symtabs associated with an objfile.
38 When an objfile is deleted we need to invalidate the symtab object. */
40
41 /* The GDB symbol table structure.
42 If this is NULL the symtab is invalid. This can happen when the
43 underlying objfile is freed. */
44 struct symtab *symtab;
45};
46
47/* A <gdb:sal> smob.
48 A smob describing a gdb symtab-and-line object.
49 A sal is associated with an objfile. All access must be gated by checking
50 the validity of symtab_scm.
51 TODO: Sals are not eq?-able at the moment, or even comparable. */
52
54{
55 /* This always appears first. */
57
58 /* The <gdb:symtab> object of the symtab.
59 We store this instead of a pointer to the symtab_smob because it's not
60 clear GC will know the symtab_smob is referenced by us otherwise, and we
61 need quick access to symtab_smob->symtab to know if this sal is valid. */
63
64 /* The GDB symbol table and line structure.
65 This object is ephemeral in GDB, so keep our own copy.
66 The symtab pointer in this struct is not usable: If the symtab is deleted
67 this pointer will not be updated. Use symtab_scm instead to determine
68 if this sal is valid. */
70};
71
72static const char symtab_smob_name[] = "gdb:symtab";
73/* "symtab-and-line" is pretty long, and "sal" is short and unique. */
74static const char sal_smob_name[] = "gdb:sal";
75
76/* The tags Guile knows the symbol table smobs by. */
77static scm_t_bits symtab_smob_tag;
78static scm_t_bits sal_smob_tag;
79
80/* This is called when an objfile is about to be freed.
81 Invalidate the symbol table as further actions on the symbol table
82 would result in bad data. All access to st_smob->symtab should be
83 gated by stscm_get_valid_symtab_smob_arg_unsafe which will raise an
84 exception on invalid symbol tables. */
86{
87 /* Helper function for stscm_del_objfile_symtabs to mark the symtab
88 as invalid. */
89
90 static int
91 stscm_mark_symtab_invalid (void **slot, void *info)
92 {
93 symtab_smob *st_smob = (symtab_smob *) *slot;
94
95 st_smob->symtab = NULL;
96 return 1;
97 }
98
99 void operator() (htab_t htab)
100 {
101 gdb_assert (htab != nullptr);
102 htab_traverse_noresize (htab, stscm_mark_symtab_invalid, NULL);
103 htab_delete (htab);
104 }
105};
106
107static const registry<objfile>::key<htab, stscm_deleter>
109
110/* Administrivia for symtab smobs. */
111
112/* Helper function to hash a symbol_smob. */
113
114static hashval_t
116{
117 const symtab_smob *st_smob = (const symtab_smob *) p;
118
119 return htab_hash_pointer (st_smob->symtab);
120}
121
122/* Helper function to compute equality of symtab_smobs. */
123
124static int
125stscm_eq_symtab_smob (const void *ap, const void *bp)
126{
127 const symtab_smob *a = (const symtab_smob *) ap;
128 const symtab_smob *b = (const symtab_smob *) bp;
129
130 return (a->symtab == b->symtab
131 && a->symtab != NULL);
132}
133
134/* Return the struct symtab pointer -> SCM mapping table.
135 It is created if necessary. */
136
137static htab_t
139{
140 struct objfile *objfile = symtab->compunit ()->objfile ();
141 htab_t htab = stscm_objfile_data_key.get (objfile);
142
143 if (htab == NULL)
144 {
148 }
149
150 return htab;
151}
152
153/* The smob "free" function for <gdb:symtab>. */
154
155static size_t
157{
158 symtab_smob *st_smob = (symtab_smob *) SCM_SMOB_DATA (self);
159
160 if (st_smob->symtab != NULL)
161 {
162 htab_t htab = stscm_objfile_symtab_map (st_smob->symtab);
163
165 }
166
167 /* Not necessary, done to catch bugs. */
168 st_smob->symtab = NULL;
169
170 return 0;
171}
172
173/* The smob "print" function for <gdb:symtab>. */
174
175static int
176stscm_print_symtab_smob (SCM self, SCM port, scm_print_state *pstate)
177{
178 symtab_smob *st_smob = (symtab_smob *) SCM_SMOB_DATA (self);
179
180 gdbscm_printf (port, "#<%s ", symtab_smob_name);
181 gdbscm_printf (port, "%s",
182 st_smob->symtab != NULL
184 : "<invalid>");
185 scm_puts (">", port);
186
187 scm_remember_upto_here_1 (self);
188
189 /* Non-zero means success. */
190 return 1;
191}
192
193/* Low level routine to create a <gdb:symtab> object. */
194
195static SCM
197{
198 symtab_smob *st_smob = (symtab_smob *)
199 scm_gc_malloc (sizeof (symtab_smob), symtab_smob_name);
200 SCM st_scm;
201
202 st_smob->symtab = NULL;
203 st_scm = scm_new_smob (symtab_smob_tag, (scm_t_bits) st_smob);
204 gdbscm_init_eqable_gsmob (&st_smob->base, st_scm);
205
206 return st_scm;
207}
208
209/* Return non-zero if SCM is a symbol table smob. */
210
211static int
213{
214 return SCM_SMOB_PREDICATE (symtab_smob_tag, scm);
215}
216
217/* (symtab? object) -> boolean */
218
219static SCM
221{
222 return scm_from_bool (stscm_is_symtab (scm));
223}
224
225/* Create a new <gdb:symtab> object that encapsulates SYMTAB. */
226
227SCM
229{
230 htab_t htab;
231 eqable_gdb_smob **slot;
232 symtab_smob *st_smob, st_smob_for_lookup;
233 SCM st_scm;
234
235 /* If we've already created a gsmob for this symtab, return it.
236 This makes symtabs eq?-able. */
238 st_smob_for_lookup.symtab = symtab;
239 slot = gdbscm_find_eqable_gsmob_ptr_slot (htab, &st_smob_for_lookup.base);
240 if (*slot != NULL)
241 return (*slot)->containing_scm;
242
243 st_scm = stscm_make_symtab_smob ();
244 st_smob = (symtab_smob *) SCM_SMOB_DATA (st_scm);
245 st_smob->symtab = symtab;
246 gdbscm_fill_eqable_gsmob_ptr_slot (slot, &st_smob->base);
247
248 return st_scm;
249}
250
251/* Returns the <gdb:symtab> object in SELF.
252 Throws an exception if SELF is not a <gdb:symtab> object. */
253
254static SCM
255stscm_get_symtab_arg_unsafe (SCM self, int arg_pos, const char *func_name)
256{
257 SCM_ASSERT_TYPE (stscm_is_symtab (self), self, arg_pos, func_name,
259
260 return self;
261}
262
263/* Returns a pointer to the symtab smob of SELF.
264 Throws an exception if SELF is not a <gdb:symtab> object. */
265
266static symtab_smob *
267stscm_get_symtab_smob_arg_unsafe (SCM self, int arg_pos, const char *func_name)
268{
269 SCM st_scm = stscm_get_symtab_arg_unsafe (self, arg_pos, func_name);
270 symtab_smob *st_smob = (symtab_smob *) SCM_SMOB_DATA (st_scm);
271
272 return st_smob;
273}
274
275/* Return non-zero if symtab ST_SMOB is valid. */
276
277static int
279{
280 return st_smob->symtab != NULL;
281}
282
283/* Throw a Scheme error if SELF is not a valid symtab smob.
284 Otherwise return a pointer to the symtab_smob object. */
285
286static symtab_smob *
288 const char *func_name)
289{
290 symtab_smob *st_smob
291 = stscm_get_symtab_smob_arg_unsafe (self, arg_pos, func_name);
292
293 if (!stscm_is_valid (st_smob))
294 {
295 gdbscm_invalid_object_error (func_name, arg_pos, self,
296 _("<gdb:symtab>"));
297 }
298
299 return st_smob;
300}
301
302
303/* Symbol table methods. */
304
305/* (symtab-valid? <gdb:symtab>) -> boolean
306 Returns #t if SELF still exists in GDB. */
307
308static SCM
310{
311 symtab_smob *st_smob
313
314 return scm_from_bool (stscm_is_valid (st_smob));
315}
316
317/* (symtab-filename <gdb:symtab>) -> string */
318
319static SCM
321{
322 symtab_smob *st_smob
324 struct symtab *symtab = st_smob->symtab;
325
327}
328
329/* (symtab-fullname <gdb:symtab>) -> string */
330
331static SCM
333{
334 symtab_smob *st_smob
336 struct symtab *symtab = st_smob->symtab;
337
339}
340
341/* (symtab-objfile <gdb:symtab>) -> <gdb:objfile> */
342
343static SCM
345{
346 symtab_smob *st_smob
348 const struct symtab *symtab = st_smob->symtab;
349
351}
352
353/* (symtab-global-block <gdb:symtab>) -> <gdb:block>
354 Return the GLOBAL_BLOCK of the underlying symtab. */
355
356static SCM
358{
359 symtab_smob *st_smob
361 const struct symtab *symtab = st_smob->symtab;
362 const struct blockvector *blockvector;
363
365 const struct block *block = blockvector->global_block ();
366
368}
369
370/* (symtab-static-block <gdb:symtab>) -> <gdb:block>
371 Return the STATIC_BLOCK of the underlying symtab. */
372
373static SCM
375{
376 symtab_smob *st_smob
378 const struct symtab *symtab = st_smob->symtab;
379 const struct blockvector *blockvector;
380
382 const struct block *block = blockvector->static_block ();
383
385}
386
387/* Administrivia for sal (symtab-and-line) smobs. */
388
389/* The smob "print" function for <gdb:sal>. */
390
391static int
392stscm_print_sal_smob (SCM self, SCM port, scm_print_state *pstate)
393{
394 sal_smob *s_smob = (sal_smob *) SCM_SMOB_DATA (self);
395
396 gdbscm_printf (port, "#<%s ", symtab_smob_name);
397 scm_write (s_smob->symtab_scm, port);
398 if (s_smob->sal.line != 0)
399 gdbscm_printf (port, " line %d", s_smob->sal.line);
400 scm_puts (">", port);
401
402 scm_remember_upto_here_1 (self);
403
404 /* Non-zero means success. */
405 return 1;
406}
407
408/* Low level routine to create a <gdb:sal> object. */
409
410static SCM
412{
413 sal_smob *s_smob
414 = (sal_smob *) scm_gc_malloc (sizeof (sal_smob), sal_smob_name);
415 SCM s_scm;
416
417 s_smob->symtab_scm = SCM_BOOL_F;
418 new (&s_smob->sal) symtab_and_line ();
419 s_scm = scm_new_smob (sal_smob_tag, (scm_t_bits) s_smob);
420 gdbscm_init_gsmob (&s_smob->base);
421
422 return s_scm;
423}
424
425/* Return non-zero if SCM is a <gdb:sal> object. */
426
427static int
429{
430 return SCM_SMOB_PREDICATE (sal_smob_tag, scm);
431}
432
433/* (sal? object) -> boolean */
434
435static SCM
437{
438 return scm_from_bool (stscm_is_sal (scm));
439}
440
441/* Create a new <gdb:sal> object that encapsulates SAL. */
442
443SCM
445{
446 SCM st_scm, s_scm;
447 sal_smob *s_smob;
448
449 st_scm = SCM_BOOL_F;
450 if (sal.symtab != NULL)
451 st_scm = stscm_scm_from_symtab (sal.symtab);
452
453 s_scm = stscm_make_sal_smob ();
454 s_smob = (sal_smob *) SCM_SMOB_DATA (s_scm);
455 s_smob->symtab_scm = st_scm;
456 s_smob->sal = sal;
457
458 return s_scm;
459}
460
461/* Returns the <gdb:sal> object in SELF.
462 Throws an exception if SELF is not a <gdb:sal> object. */
463
464static SCM
465stscm_get_sal_arg (SCM self, int arg_pos, const char *func_name)
466{
467 SCM_ASSERT_TYPE (stscm_is_sal (self), self, arg_pos, func_name,
469
470 return self;
471}
472
473/* Returns a pointer to the sal smob of SELF.
474 Throws an exception if SELF is not a <gdb:sal> object. */
475
476static sal_smob *
477stscm_get_sal_smob_arg (SCM self, int arg_pos, const char *func_name)
478{
479 SCM s_scm = stscm_get_sal_arg (self, arg_pos, func_name);
480 sal_smob *s_smob = (sal_smob *) SCM_SMOB_DATA (s_scm);
481
482 return s_smob;
483}
484
485/* Return non-zero if the symtab in S_SMOB is valid. */
486
487static int
489{
490 symtab_smob *st_smob;
491
492 /* If there's no symtab that's ok, the sal is still valid. */
493 if (gdbscm_is_false (s_smob->symtab_scm))
494 return 1;
495
496 st_smob = (symtab_smob *) SCM_SMOB_DATA (s_smob->symtab_scm);
497
498 return st_smob->symtab != NULL;
499}
500
501/* Throw a Scheme error if SELF is not a valid sal smob.
502 Otherwise return a pointer to the sal_smob object. */
503
504static sal_smob *
505stscm_get_valid_sal_smob_arg (SCM self, int arg_pos, const char *func_name)
506{
507 sal_smob *s_smob = stscm_get_sal_smob_arg (self, arg_pos, func_name);
508
509 if (!stscm_sal_is_valid (s_smob))
510 {
511 gdbscm_invalid_object_error (func_name, arg_pos, self,
512 _("<gdb:sal>"));
513 }
514
515 return s_smob;
516}
517
518/* sal methods */
519
520/* (sal-valid? <gdb:sal>) -> boolean
521 Returns #t if the symtab for SELF still exists in GDB. */
522
523static SCM
525{
526 sal_smob *s_smob = stscm_get_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
527
528 return scm_from_bool (stscm_sal_is_valid (s_smob));
529}
530
531/* (sal-pc <gdb:sal>) -> address */
532
533static SCM
535{
536 sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
537 const struct symtab_and_line *sal = &s_smob->sal;
538
539 return gdbscm_scm_from_ulongest (sal->pc);
540}
541
542/* (sal-last <gdb:sal>) -> address
543 Returns #f if no ending address is recorded. */
544
545static SCM
547{
548 sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
549 const struct symtab_and_line *sal = &s_smob->sal;
550
551 if (sal->end > 0)
552 return gdbscm_scm_from_ulongest (sal->end - 1);
553 return SCM_BOOL_F;
554}
555
556/* (sal-line <gdb:sal>) -> integer
557 Returns #f if no line number is recorded. */
558
559static SCM
561{
562 sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
563 const struct symtab_and_line *sal = &s_smob->sal;
564
565 if (sal->line > 0)
566 return scm_from_int (sal->line);
567 return SCM_BOOL_F;
568}
569
570/* (sal-symtab <gdb:sal>) -> <gdb:symtab>
571 Returns #f if no symtab is recorded. */
572
573static SCM
575{
576 sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
577
578 return s_smob->symtab_scm;
579}
580
581/* (find-pc-line address) -> <gdb:sal> */
582
583static SCM
585{
586 ULONGEST pc_ull;
587 symtab_and_line sal;
588
589 gdbscm_parse_function_args (FUNC_NAME, SCM_ARG1, NULL, "U", pc_scm, &pc_ull);
590
592 try
593 {
594 CORE_ADDR pc = (CORE_ADDR) pc_ull;
595
596 sal = find_pc_line (pc, 0);
597 }
598 catch (const gdb_exception &except)
599 {
600 exc = unpack (except);
601 }
602
604 return stscm_scm_from_sal (sal);
605}
606
607/* Initialize the Scheme symbol support. */
608
610{
611 { "symtab?", 1, 0, 0, as_a_scm_t_subr (gdbscm_symtab_p),
612 "\
613Return #t if the object is a <gdb:symtab> object." },
614
615 { "symtab-valid?", 1, 0, 0, as_a_scm_t_subr (gdbscm_symtab_valid_p),
616 "\
617Return #t if the symtab still exists in GDB.\n\
618Symtabs are deleted when the corresponding objfile is freed." },
619
620 { "symtab-filename", 1, 0, 0, as_a_scm_t_subr (gdbscm_symtab_filename),
621 "\
622Return the symtab's source file name." },
623
624 { "symtab-fullname", 1, 0, 0, as_a_scm_t_subr (gdbscm_symtab_fullname),
625 "\
626Return the symtab's full source file name." },
627
628 { "symtab-objfile", 1, 0, 0, as_a_scm_t_subr (gdbscm_symtab_objfile),
629 "\
630Return the symtab's objfile." },
631
632 { "symtab-global-block", 1, 0, 0,
634 "\
635Return the symtab's global block." },
636
637 { "symtab-static-block", 1, 0, 0,
639 "\
640Return the symtab's static block." },
641
642 { "sal?", 1, 0, 0, as_a_scm_t_subr (gdbscm_sal_p),
643 "\
644Return #t if the object is a <gdb:sal> (symtab-and-line) object." },
645
646 { "sal-valid?", 1, 0, 0, as_a_scm_t_subr (gdbscm_sal_valid_p),
647 "\
648Return #t if the symtab for the sal still exists in GDB.\n\
649Symtabs are deleted when the corresponding objfile is freed." },
650
651 { "sal-symtab", 1, 0, 0, as_a_scm_t_subr (gdbscm_sal_symtab),
652 "\
653Return the sal's symtab." },
654
655 { "sal-line", 1, 0, 0, as_a_scm_t_subr (gdbscm_sal_line),
656 "\
657Return the sal's line number, or #f if there is none." },
658
659 { "sal-pc", 1, 0, 0, as_a_scm_t_subr (gdbscm_sal_pc),
660 "\
661Return the sal's address." },
662
663 { "sal-last", 1, 0, 0, as_a_scm_t_subr (gdbscm_sal_last),
664 "\
665Return the last address specified by the sal, or #f if there is none." },
666
667 { "find-pc-line", 1, 0, 0, as_a_scm_t_subr (gdbscm_find_pc_line),
668 "\
669Return the sal corresponding to the address, or #f if there isn't one.\n\
670\n\
671 Arguments: address" },
672
674};
675
676void
static struct parser_state * pstate
Definition ada-exp.c:101
void set(unsigned key, void *datum)
Definition registry.h:204
void * get(unsigned key)
Definition registry.h:211
void gdbscm_init_eqable_gsmob(eqable_gdb_smob *base, SCM containing_scm)
Definition scm-gsmob.c:162
#define END_FUNCTIONS
void gdbscm_parse_function_args(const char *function_name, int beginning_arg_pos, const SCM *keywords, const char *format,...)
Definition scm-utils.c:528
gdbscm_gdb_exception unpack(const gdb_exception &exc)
htab_t gdbscm_create_eqable_gsmob_ptr_map(htab_hash hash_fn, htab_eq eq_fn)
Definition scm-gsmob.c:213
void gdbscm_init_gsmob(gdb_smob *base)
Definition scm-gsmob.c:140
void gdbscm_invalid_object_error(const char *subr, int arg_pos, SCM bad_value, const char *error) ATTRIBUTE_NORETURN
SCM ofscm_scm_from_objfile(struct objfile *objfile)
SCM bkscm_scm_from_block(const struct block *block, struct objfile *objfile)
Definition scm-block.c:238
void gdbscm_clear_eqable_gsmob_ptr_slot(htab_t htab, eqable_gdb_smob *base)
Definition scm-gsmob.c:251
#define gdbscm_is_false(scm)
SCM gdbscm_scm_from_ulongest(ULONGEST l)
Definition scm-utils.c:565
void gdbscm_printf(SCM port, const char *format,...) ATTRIBUTE_PRINTF(2
static SCM scm_new_smob(scm_t_bits tc, scm_t_bits data)
void gdbscm_define_functions(const scheme_function *, int is_public)
Definition scm-utils.c:44
eqable_gdb_smob ** gdbscm_find_eqable_gsmob_ptr_slot(htab_t htab, eqable_gdb_smob *base)
Definition scm-gsmob.c:226
#define GDBSCM_HANDLE_GDB_EXCEPTION(exception)
void gdbscm_fill_eqable_gsmob_ptr_slot(eqable_gdb_smob **slot, eqable_gdb_smob *base)
Definition scm-gsmob.c:237
scm_t_bits gdbscm_make_smob_type(const char *name, size_t size)
Definition scm-gsmob.c:103
static scm_t_subr as_a_scm_t_subr(SCM(*func)(void))
#define FUNC_NAME
SCM gdbscm_scm_from_c_string(const char *string)
Definition scm-string.c:45
static symtab_smob * stscm_get_valid_symtab_smob_arg_unsafe(SCM self, int arg_pos, const char *func_name)
Definition scm-symtab.c:287
void gdbscm_initialize_symtabs(void)
Definition scm-symtab.c:677
static SCM gdbscm_sal_line(SCM self)
Definition scm-symtab.c:560
static const char sal_smob_name[]
Definition scm-symtab.c:74
static int stscm_eq_symtab_smob(const void *ap, const void *bp)
Definition scm-symtab.c:125
static SCM gdbscm_symtab_valid_p(SCM self)
Definition scm-symtab.c:309
static SCM gdbscm_symtab_global_block(SCM self)
Definition scm-symtab.c:357
static int stscm_print_symtab_smob(SCM self, SCM port, scm_print_state *pstate)
Definition scm-symtab.c:176
static sal_smob * stscm_get_valid_sal_smob_arg(SCM self, int arg_pos, const char *func_name)
Definition scm-symtab.c:505
static SCM gdbscm_sal_p(SCM scm)
Definition scm-symtab.c:436
static SCM gdbscm_sal_last(SCM self)
Definition scm-symtab.c:546
static SCM gdbscm_sal_pc(SCM self)
Definition scm-symtab.c:534
static int stscm_sal_is_valid(sal_smob *s_smob)
Definition scm-symtab.c:488
static const scheme_function symtab_functions[]
Definition scm-symtab.c:609
static const registry< objfile >::key< htab, stscm_deleter > stscm_objfile_data_key
Definition scm-symtab.c:108
SCM stscm_scm_from_sal(struct symtab_and_line sal)
Definition scm-symtab.c:444
static hashval_t stscm_hash_symtab_smob(const void *p)
Definition scm-symtab.c:115
static scm_t_bits sal_smob_tag
Definition scm-symtab.c:78
static symtab_smob * stscm_get_symtab_smob_arg_unsafe(SCM self, int arg_pos, const char *func_name)
Definition scm-symtab.c:267
static SCM stscm_make_sal_smob(void)
Definition scm-symtab.c:411
static size_t stscm_free_symtab_smob(SCM self)
Definition scm-symtab.c:156
static SCM gdbscm_symtab_static_block(SCM self)
Definition scm-symtab.c:374
static SCM stscm_get_sal_arg(SCM self, int arg_pos, const char *func_name)
Definition scm-symtab.c:465
static SCM stscm_get_symtab_arg_unsafe(SCM self, int arg_pos, const char *func_name)
Definition scm-symtab.c:255
static int stscm_is_sal(SCM scm)
Definition scm-symtab.c:428
static SCM gdbscm_find_pc_line(SCM pc_scm)
Definition scm-symtab.c:584
static SCM gdbscm_sal_valid_p(SCM self)
Definition scm-symtab.c:524
static htab_t stscm_objfile_symtab_map(struct symtab *symtab)
Definition scm-symtab.c:138
static int stscm_print_sal_smob(SCM self, SCM port, scm_print_state *pstate)
Definition scm-symtab.c:392
static SCM gdbscm_sal_symtab(SCM self)
Definition scm-symtab.c:574
static int stscm_is_valid(symtab_smob *st_smob)
Definition scm-symtab.c:278
static SCM gdbscm_symtab_filename(SCM self)
Definition scm-symtab.c:320
static const char symtab_smob_name[]
Definition scm-symtab.c:72
static int stscm_is_symtab(SCM scm)
Definition scm-symtab.c:212
SCM stscm_scm_from_symtab(struct symtab *symtab)
Definition scm-symtab.c:228
static scm_t_bits symtab_smob_tag
Definition scm-symtab.c:77
static SCM gdbscm_symtab_fullname(SCM self)
Definition scm-symtab.c:332
static sal_smob * stscm_get_sal_smob_arg(SCM self, int arg_pos, const char *func_name)
Definition scm-symtab.c:477
static SCM gdbscm_symtab_p(SCM scm)
Definition scm-symtab.c:220
static SCM gdbscm_symtab_objfile(SCM self)
Definition scm-symtab.c:344
static SCM stscm_make_symtab_smob(void)
Definition scm-symtab.c:196
const char * symtab_to_fullname(struct symtab *s)
Definition source.c:1234
const char * symtab_to_filename_for_display(struct symtab *symtab)
Definition source.c:1269
Definition block.h:109
struct block * static_block()
Definition block.h:405
struct block * global_block()
Definition block.h:397
struct blockvector * blockvector()
Definition symtab.h:1847
struct objfile * objfile() const
Definition symtab.h:1788
gdb_smob base
Definition scm-symtab.c:56
struct symtab_and_line sal
Definition scm-symtab.c:69
SCM symtab_scm
Definition scm-symtab.c:62
static int stscm_mark_symtab_invalid(void **slot, void *info)
Definition scm-symtab.c:91
void operator()(htab_t htab)
Definition scm-symtab.c:99
struct symtab * symtab
Definition symtab.h:2328
CORE_ADDR pc
Definition symtab.h:2337
CORE_ADDR end
Definition symtab.h:2338
eqable_gdb_smob base
Definition scm-symtab.c:39
struct symtab * symtab
Definition scm-symtab.c:44
struct compunit_symtab * compunit() const
Definition symtab.h:1677
struct symtab_and_line find_pc_line(CORE_ADDR pc, int notcurrent)
Definition symtab.c:3295