1 /* Scheme interface to symbols.
3 Copyright (C) 2008-2019 Free Software Foundation, Inc.
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 3 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 even the 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, see <http://www.gnu.org/licenses/>. */
20 /* See README file in this directory for implementation notes, coding
21 conventions, et.al. */
29 #include "guile-internal.h"
31 /* The <gdb:symbol> smob. */
35 /* This always appears first. */
38 /* The GDB symbol structure this smob is wrapping. */
39 struct symbol
*symbol
;
42 static const char symbol_smob_name
[] = "gdb:symbol";
44 /* The tag Guile knows the symbol smob by. */
45 static scm_t_bits symbol_smob_tag
;
47 /* Keywords used in argument passing. */
48 static SCM block_keyword
;
49 static SCM domain_keyword
;
50 static SCM frame_keyword
;
52 static const struct objfile_data
*syscm_objfile_data_key
;
53 static struct gdbarch_data
*syscm_gdbarch_data_key
;
55 struct syscm_gdbarch_data
57 /* Hash table to implement eqable gdbarch symbols. */
61 /* Administrivia for symbol smobs. */
63 /* Helper function to hash a symbol_smob. */
66 syscm_hash_symbol_smob (const void *p
)
68 const symbol_smob
*s_smob
= (const symbol_smob
*) p
;
70 return htab_hash_pointer (s_smob
->symbol
);
73 /* Helper function to compute equality of symbol_smobs. */
76 syscm_eq_symbol_smob (const void *ap
, const void *bp
)
78 const symbol_smob
*a
= (const symbol_smob
*) ap
;
79 const symbol_smob
*b
= (const symbol_smob
*) bp
;
81 return (a
->symbol
== b
->symbol
82 && a
->symbol
!= NULL
);
86 syscm_init_arch_symbols (struct gdbarch
*gdbarch
)
88 struct syscm_gdbarch_data
*data
89 = GDBARCH_OBSTACK_ZALLOC (gdbarch
, struct syscm_gdbarch_data
);
91 data
->htab
= gdbscm_create_eqable_gsmob_ptr_map (syscm_hash_symbol_smob
,
92 syscm_eq_symbol_smob
);
96 /* Return the struct symbol pointer -> SCM mapping table.
97 It is created if necessary. */
100 syscm_get_symbol_map (struct symbol
*symbol
)
104 if (SYMBOL_OBJFILE_OWNED (symbol
))
106 struct objfile
*objfile
= symbol_objfile (symbol
);
108 htab
= (htab_t
) objfile_data (objfile
, syscm_objfile_data_key
);
111 htab
= gdbscm_create_eqable_gsmob_ptr_map (syscm_hash_symbol_smob
,
112 syscm_eq_symbol_smob
);
113 set_objfile_data (objfile
, syscm_objfile_data_key
, htab
);
118 struct gdbarch
*gdbarch
= symbol_arch (symbol
);
119 struct syscm_gdbarch_data
*data
120 = (struct syscm_gdbarch_data
*) gdbarch_data (gdbarch
,
121 syscm_gdbarch_data_key
);
129 /* The smob "free" function for <gdb:symbol>. */
132 syscm_free_symbol_smob (SCM self
)
134 symbol_smob
*s_smob
= (symbol_smob
*) SCM_SMOB_DATA (self
);
136 if (s_smob
->symbol
!= NULL
)
138 htab_t htab
= syscm_get_symbol_map (s_smob
->symbol
);
140 gdbscm_clear_eqable_gsmob_ptr_slot (htab
, &s_smob
->base
);
143 /* Not necessary, done to catch bugs. */
144 s_smob
->symbol
= NULL
;
149 /* The smob "print" function for <gdb:symbol>. */
152 syscm_print_symbol_smob (SCM self
, SCM port
, scm_print_state
*pstate
)
154 symbol_smob
*s_smob
= (symbol_smob
*) SCM_SMOB_DATA (self
);
156 if (pstate
->writingp
)
157 gdbscm_printf (port
, "#<%s ", symbol_smob_name
);
158 gdbscm_printf (port
, "%s",
159 s_smob
->symbol
!= NULL
160 ? SYMBOL_PRINT_NAME (s_smob
->symbol
)
162 if (pstate
->writingp
)
163 scm_puts (">", port
);
165 scm_remember_upto_here_1 (self
);
167 /* Non-zero means success. */
171 /* Low level routine to create a <gdb:symbol> object. */
174 syscm_make_symbol_smob (void)
176 symbol_smob
*s_smob
= (symbol_smob
*)
177 scm_gc_malloc (sizeof (symbol_smob
), symbol_smob_name
);
180 s_smob
->symbol
= NULL
;
181 s_scm
= scm_new_smob (symbol_smob_tag
, (scm_t_bits
) s_smob
);
182 gdbscm_init_eqable_gsmob (&s_smob
->base
, s_scm
);
187 /* Return non-zero if SCM is a symbol smob. */
190 syscm_is_symbol (SCM scm
)
192 return SCM_SMOB_PREDICATE (symbol_smob_tag
, scm
);
195 /* (symbol? object) -> boolean */
198 gdbscm_symbol_p (SCM scm
)
200 return scm_from_bool (syscm_is_symbol (scm
));
203 /* Return the existing object that encapsulates SYMBOL, or create a new
204 <gdb:symbol> object. */
207 syscm_scm_from_symbol (struct symbol
*symbol
)
210 eqable_gdb_smob
**slot
;
211 symbol_smob
*s_smob
, s_smob_for_lookup
;
214 /* If we've already created a gsmob for this symbol, return it.
215 This makes symbols eq?-able. */
216 htab
= syscm_get_symbol_map (symbol
);
217 s_smob_for_lookup
.symbol
= symbol
;
218 slot
= gdbscm_find_eqable_gsmob_ptr_slot (htab
, &s_smob_for_lookup
.base
);
220 return (*slot
)->containing_scm
;
222 s_scm
= syscm_make_symbol_smob ();
223 s_smob
= (symbol_smob
*) SCM_SMOB_DATA (s_scm
);
224 s_smob
->symbol
= symbol
;
225 gdbscm_fill_eqable_gsmob_ptr_slot (slot
, &s_smob
->base
);
230 /* Returns the <gdb:symbol> object in SELF.
231 Throws an exception if SELF is not a <gdb:symbol> object. */
234 syscm_get_symbol_arg_unsafe (SCM self
, int arg_pos
, const char *func_name
)
236 SCM_ASSERT_TYPE (syscm_is_symbol (self
), self
, arg_pos
, func_name
,
242 /* Returns a pointer to the symbol smob of SELF.
243 Throws an exception if SELF is not a <gdb:symbol> object. */
246 syscm_get_symbol_smob_arg_unsafe (SCM self
, int arg_pos
, const char *func_name
)
248 SCM s_scm
= syscm_get_symbol_arg_unsafe (self
, arg_pos
, func_name
);
249 symbol_smob
*s_smob
= (symbol_smob
*) SCM_SMOB_DATA (s_scm
);
254 /* Return non-zero if symbol S_SMOB is valid. */
257 syscm_is_valid (symbol_smob
*s_smob
)
259 return s_smob
->symbol
!= NULL
;
262 /* Throw a Scheme error if SELF is not a valid symbol smob.
263 Otherwise return a pointer to the symbol smob. */
266 syscm_get_valid_symbol_smob_arg_unsafe (SCM self
, int arg_pos
,
267 const char *func_name
)
270 = syscm_get_symbol_smob_arg_unsafe (self
, arg_pos
, func_name
);
272 if (!syscm_is_valid (s_smob
))
274 gdbscm_invalid_object_error (func_name
, arg_pos
, self
,
281 /* Throw a Scheme error if SELF is not a valid symbol smob.
282 Otherwise return a pointer to the symbol struct. */
285 syscm_get_valid_symbol_arg_unsafe (SCM self
, int arg_pos
,
286 const char *func_name
)
288 symbol_smob
*s_smob
= syscm_get_valid_symbol_smob_arg_unsafe (self
, arg_pos
,
291 return s_smob
->symbol
;
294 /* Helper function for syscm_del_objfile_symbols to mark the symbol
298 syscm_mark_symbol_invalid (void **slot
, void *info
)
300 symbol_smob
*s_smob
= (symbol_smob
*) *slot
;
302 s_smob
->symbol
= NULL
;
306 /* This function is called when an objfile is about to be freed.
307 Invalidate the symbol as further actions on the symbol would result
308 in bad data. All access to s_smob->symbol should be gated by
309 syscm_get_valid_symbol_smob_arg_unsafe which will raise an exception on
313 syscm_del_objfile_symbols (struct objfile
*objfile
, void *datum
)
315 htab_t htab
= (htab_t
) datum
;
319 htab_traverse_noresize (htab
, syscm_mark_symbol_invalid
, NULL
);
324 /* Symbol methods. */
326 /* (symbol-valid? <gdb:symbol>) -> boolean
327 Returns #t if SELF still exists in GDB. */
330 gdbscm_symbol_valid_p (SCM self
)
333 = syscm_get_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
335 return scm_from_bool (syscm_is_valid (s_smob
));
338 /* (symbol-type <gdb:symbol>) -> <gdb:type>
339 Return the type of SELF, or #f if SELF has no type. */
342 gdbscm_symbol_type (SCM self
)
345 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
346 const struct symbol
*symbol
= s_smob
->symbol
;
348 if (SYMBOL_TYPE (symbol
) == NULL
)
351 return tyscm_scm_from_type (SYMBOL_TYPE (symbol
));
354 /* (symbol-symtab <gdb:symbol>) -> <gdb:symtab> | #f
355 Return the symbol table of SELF.
356 If SELF does not have a symtab (it is arch-owned) return #f. */
359 gdbscm_symbol_symtab (SCM self
)
362 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
363 const struct symbol
*symbol
= s_smob
->symbol
;
365 if (!SYMBOL_OBJFILE_OWNED (symbol
))
367 return stscm_scm_from_symtab (symbol_symtab (symbol
));
370 /* (symbol-name <gdb:symbol>) -> string */
373 gdbscm_symbol_name (SCM self
)
376 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
377 const struct symbol
*symbol
= s_smob
->symbol
;
379 return gdbscm_scm_from_c_string (SYMBOL_NATURAL_NAME (symbol
));
382 /* (symbol-linkage-name <gdb:symbol>) -> string */
385 gdbscm_symbol_linkage_name (SCM self
)
388 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
389 const struct symbol
*symbol
= s_smob
->symbol
;
391 return gdbscm_scm_from_c_string (SYMBOL_LINKAGE_NAME (symbol
));
394 /* (symbol-print-name <gdb:symbol>) -> string */
397 gdbscm_symbol_print_name (SCM self
)
400 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
401 const struct symbol
*symbol
= s_smob
->symbol
;
403 return gdbscm_scm_from_c_string (SYMBOL_PRINT_NAME (symbol
));
406 /* (symbol-addr-class <gdb:symbol>) -> integer */
409 gdbscm_symbol_addr_class (SCM self
)
412 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
413 const struct symbol
*symbol
= s_smob
->symbol
;
415 return scm_from_int (SYMBOL_CLASS (symbol
));
418 /* (symbol-argument? <gdb:symbol>) -> boolean */
421 gdbscm_symbol_argument_p (SCM self
)
424 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
425 const struct symbol
*symbol
= s_smob
->symbol
;
427 return scm_from_bool (SYMBOL_IS_ARGUMENT (symbol
));
430 /* (symbol-constant? <gdb:symbol>) -> boolean */
433 gdbscm_symbol_constant_p (SCM self
)
436 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
437 const struct symbol
*symbol
= s_smob
->symbol
;
438 enum address_class theclass
;
440 theclass
= SYMBOL_CLASS (symbol
);
442 return scm_from_bool (theclass
== LOC_CONST
|| theclass
== LOC_CONST_BYTES
);
445 /* (symbol-function? <gdb:symbol>) -> boolean */
448 gdbscm_symbol_function_p (SCM self
)
451 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
452 const struct symbol
*symbol
= s_smob
->symbol
;
453 enum address_class theclass
;
455 theclass
= SYMBOL_CLASS (symbol
);
457 return scm_from_bool (theclass
== LOC_BLOCK
);
460 /* (symbol-variable? <gdb:symbol>) -> boolean */
463 gdbscm_symbol_variable_p (SCM self
)
466 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
467 const struct symbol
*symbol
= s_smob
->symbol
;
468 enum address_class theclass
;
470 theclass
= SYMBOL_CLASS (symbol
);
472 return scm_from_bool (!SYMBOL_IS_ARGUMENT (symbol
)
473 && (theclass
== LOC_LOCAL
|| theclass
== LOC_REGISTER
474 || theclass
== LOC_STATIC
|| theclass
== LOC_COMPUTED
475 || theclass
== LOC_OPTIMIZED_OUT
));
478 /* (symbol-needs-frame? <gdb:symbol>) -> boolean
479 Return #t if the symbol needs a frame for evaluation. */
482 gdbscm_symbol_needs_frame_p (SCM self
)
485 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
486 struct symbol
*symbol
= s_smob
->symbol
;
489 gdbscm_gdb_exception exc
{};
492 result
= symbol_read_needs_frame (symbol
);
494 catch (const gdb_exception
&except
)
496 exc
= unpack (except
);
499 GDBSCM_HANDLE_GDB_EXCEPTION (exc
);
500 return scm_from_bool (result
);
503 /* (symbol-line <gdb:symbol>) -> integer
504 Return the line number at which the symbol was defined. */
507 gdbscm_symbol_line (SCM self
)
510 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
511 const struct symbol
*symbol
= s_smob
->symbol
;
513 return scm_from_int (SYMBOL_LINE (symbol
));
516 /* (symbol-value <gdb:symbol> [#:frame <gdb:frame>]) -> <gdb:value>
517 Return the value of the symbol, or an error in various circumstances. */
520 gdbscm_symbol_value (SCM self
, SCM rest
)
523 = syscm_get_valid_symbol_smob_arg_unsafe (self
, SCM_ARG1
, FUNC_NAME
);
524 struct symbol
*symbol
= s_smob
->symbol
;
525 SCM keywords
[] = { frame_keyword
, SCM_BOOL_F
};
527 SCM frame_scm
= SCM_BOOL_F
;
528 frame_smob
*f_smob
= NULL
;
529 struct frame_info
*frame_info
= NULL
;
530 struct value
*value
= NULL
;
532 gdbscm_parse_function_args (FUNC_NAME
, SCM_ARG2
, keywords
, "#O",
533 rest
, &frame_pos
, &frame_scm
);
534 if (!gdbscm_is_false (frame_scm
))
535 f_smob
= frscm_get_frame_smob_arg_unsafe (frame_scm
, frame_pos
, FUNC_NAME
);
537 if (SYMBOL_CLASS (symbol
) == LOC_TYPEDEF
)
539 gdbscm_out_of_range_error (FUNC_NAME
, SCM_ARG1
, self
,
540 _("cannot get the value of a typedef"));
543 gdbscm_gdb_exception exc
{};
548 frame_info
= frscm_frame_smob_to_frame (f_smob
);
549 if (frame_info
== NULL
)
550 error (_("Invalid frame"));
553 if (symbol_read_needs_frame (symbol
) && frame_info
== NULL
)
554 error (_("Symbol requires a frame to compute its value"));
556 /* TODO: currently, we have no way to recover the block in which SYMBOL
557 was found, so we have no block to pass to read_var_value. This will
558 yield an incorrect value when symbol is not local to FRAME_INFO (this
559 can happen with nested functions). */
560 value
= read_var_value (symbol
, NULL
, frame_info
);
562 catch (const gdb_exception
&except
)
564 exc
= unpack (except
);
567 GDBSCM_HANDLE_GDB_EXCEPTION (exc
);
568 return vlscm_scm_from_value (value
);
571 /* (lookup-symbol name [#:block <gdb:block>] [#:domain domain])
572 -> (<gdb:symbol> field-of-this?)
573 The result is #f if the symbol is not found.
574 See comment in lookup_symbol_in_language for field-of-this?. */
577 gdbscm_lookup_symbol (SCM name_scm
, SCM rest
)
580 SCM keywords
[] = { block_keyword
, domain_keyword
, SCM_BOOL_F
};
581 const struct block
*block
= NULL
;
582 SCM block_scm
= SCM_BOOL_F
;
583 int domain
= VAR_DOMAIN
;
584 int block_arg_pos
= -1, domain_arg_pos
= -1;
585 struct field_of_this_result is_a_field_of_this
;
586 struct symbol
*symbol
= NULL
;
588 gdbscm_parse_function_args (FUNC_NAME
, SCM_ARG1
, keywords
, "s#Oi",
589 name_scm
, &name
, rest
,
590 &block_arg_pos
, &block_scm
,
591 &domain_arg_pos
, &domain
);
593 if (block_arg_pos
>= 0)
597 block
= bkscm_scm_to_block (block_scm
, block_arg_pos
, FUNC_NAME
,
602 gdbscm_throw (except_scm
);
607 struct frame_info
*selected_frame
;
609 gdbscm_gdb_exception exc
{};
612 selected_frame
= get_selected_frame (_("no frame selected"));
613 block
= get_frame_block (selected_frame
, NULL
);
615 catch (const gdb_exception
&ex
)
620 GDBSCM_HANDLE_GDB_EXCEPTION (exc
);
623 gdbscm_gdb_exception except
{};
626 symbol
= lookup_symbol (name
, block
, (domain_enum
) domain
,
627 &is_a_field_of_this
).symbol
;
629 catch (const gdb_exception
&ex
)
631 except
= unpack (ex
);
635 GDBSCM_HANDLE_GDB_EXCEPTION (except
);
640 return scm_list_2 (syscm_scm_from_symbol (symbol
),
641 scm_from_bool (is_a_field_of_this
.type
!= NULL
));
644 /* (lookup-global-symbol name [#:domain domain]) -> <gdb:symbol>
645 The result is #f if the symbol is not found. */
648 gdbscm_lookup_global_symbol (SCM name_scm
, SCM rest
)
651 SCM keywords
[] = { domain_keyword
, SCM_BOOL_F
};
652 int domain_arg_pos
= -1;
653 int domain
= VAR_DOMAIN
;
654 struct symbol
*symbol
= NULL
;
655 gdbscm_gdb_exception except
{};
657 gdbscm_parse_function_args (FUNC_NAME
, SCM_ARG1
, keywords
, "s#i",
658 name_scm
, &name
, rest
,
659 &domain_arg_pos
, &domain
);
663 symbol
= lookup_global_symbol (name
, NULL
, (domain_enum
) domain
).symbol
;
665 catch (const gdb_exception
&ex
)
667 except
= unpack (ex
);
671 GDBSCM_HANDLE_GDB_EXCEPTION (except
);
676 return syscm_scm_from_symbol (symbol
);
679 /* Initialize the Scheme symbol support. */
681 /* Note: The SYMBOL_ prefix on the integer constants here is present for
682 compatibility with the Python support. */
684 static const scheme_integer_constant symbol_integer_constants
[] =
686 #define X(SYM) { "SYMBOL_" #SYM, SYM }
699 X (LOC_OPTIMIZED_OUT
),
701 X (LOC_REGPARM_ADDR
),
707 X (VARIABLES_DOMAIN
),
708 X (FUNCTIONS_DOMAIN
),
712 END_INTEGER_CONSTANTS
715 static const scheme_function symbol_functions
[] =
717 { "symbol?", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_p
),
719 Return #t if the object is a <gdb:symbol> object." },
721 { "symbol-valid?", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_valid_p
),
723 Return #t if object is a valid <gdb:symbol> object.\n\
724 A valid symbol is a symbol that has not been freed.\n\
725 Symbols are freed when the objfile they come from is freed." },
727 { "symbol-type", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_type
),
729 Return the type of symbol." },
731 { "symbol-symtab", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_symtab
),
733 Return the symbol table (<gdb:symtab>) containing symbol." },
735 { "symbol-line", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_line
),
737 Return the line number at which the symbol was defined." },
739 { "symbol-name", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_name
),
741 Return the name of the symbol as a string." },
743 { "symbol-linkage-name", 1, 0, 0,
744 as_a_scm_t_subr (gdbscm_symbol_linkage_name
),
746 Return the linkage name of the symbol as a string." },
748 { "symbol-print-name", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_print_name
),
750 Return the print name of the symbol as a string.\n\
751 This is either name or linkage-name, depending on whether the user\n\
752 asked GDB to display demangled or mangled names." },
754 { "symbol-addr-class", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_addr_class
),
756 Return the address class of the symbol." },
758 { "symbol-needs-frame?", 1, 0, 0,
759 as_a_scm_t_subr (gdbscm_symbol_needs_frame_p
),
761 Return #t if the symbol needs a frame to compute its value." },
763 { "symbol-argument?", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_argument_p
),
765 Return #t if the symbol is a function argument." },
767 { "symbol-constant?", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_constant_p
),
769 Return #t if the symbol is a constant." },
771 { "symbol-function?", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_function_p
),
773 Return #t if the symbol is a function." },
775 { "symbol-variable?", 1, 0, 0, as_a_scm_t_subr (gdbscm_symbol_variable_p
),
777 Return #t if the symbol is a variable." },
779 { "symbol-value", 1, 0, 1, as_a_scm_t_subr (gdbscm_symbol_value
),
781 Return the value of the symbol.\n\
783 Arguments: <gdb:symbol> [#:frame frame]" },
785 { "lookup-symbol", 1, 0, 1, as_a_scm_t_subr (gdbscm_lookup_symbol
),
787 Return (<gdb:symbol> field-of-this?) if found, otherwise #f.\n\
789 Arguments: name [#:block block] [#:domain domain]\n\
790 name: a string containing the name of the symbol to lookup\n\
791 block: a <gdb:block> object\n\
792 domain: a SYMBOL_*_DOMAIN value" },
794 { "lookup-global-symbol", 1, 0, 1,
795 as_a_scm_t_subr (gdbscm_lookup_global_symbol
),
797 Return <gdb:symbol> if found, otherwise #f.\n\
799 Arguments: name [#:domain domain]\n\
800 name: a string containing the name of the symbol to lookup\n\
801 domain: a SYMBOL_*_DOMAIN value" },
807 gdbscm_initialize_symbols (void)
810 = gdbscm_make_smob_type (symbol_smob_name
, sizeof (symbol_smob
));
811 scm_set_smob_free (symbol_smob_tag
, syscm_free_symbol_smob
);
812 scm_set_smob_print (symbol_smob_tag
, syscm_print_symbol_smob
);
814 gdbscm_define_integer_constants (symbol_integer_constants
, 1);
815 gdbscm_define_functions (symbol_functions
, 1);
817 block_keyword
= scm_from_latin1_keyword ("block");
818 domain_keyword
= scm_from_latin1_keyword ("domain");
819 frame_keyword
= scm_from_latin1_keyword ("frame");
821 /* Register an objfile "free" callback so we can properly
822 invalidate symbols when an object file is about to be deleted. */
823 syscm_objfile_data_key
824 = register_objfile_data_with_cleanup (NULL
, syscm_del_objfile_symbols
);
826 /* Arch-specific symbol data. */
827 syscm_gdbarch_data_key
828 = gdbarch_data_register_post_init (syscm_init_arch_symbols
);