diff options
| author | Simon Marchi <simon.marchi@efficios.com> | 2021-11-21 22:26:24 -0500 |
|---|---|---|
| committer | Simon Marchi <simon.marchi@efficios.com> | 2022-02-06 16:03:46 -0500 |
| commit | 66d7f48f8045adf266046df7ceb84161d5678cfa (patch) | |
| tree | 473af71237afd358293f506901cdb13372d8dd72 /gdb/guile | |
| parent | d1eebf9a6f02786eb0d5f6b961b8d692d23e77b1 (diff) | |
| download | gdb-66d7f48f8045adf266046df7ceb84161d5678cfa.zip gdb-66d7f48f8045adf266046df7ceb84161d5678cfa.tar.gz gdb-66d7f48f8045adf266046df7ceb84161d5678cfa.tar.bz2 | |
gdb: remove SYMBOL_CLASS macro, add getter
Change-Id: I83211d5a47efc0564386e5b5ea4a29c00b1fd46a
Diffstat (limited to 'gdb/guile')
| -rw-r--r-- | gdb/guile/scm-symbol.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gdb/guile/scm-symbol.c b/gdb/guile/scm-symbol.c index 05e6b88..9816a90 100644 --- a/gdb/guile/scm-symbol.c +++ b/gdb/guile/scm-symbol.c @@ -412,7 +412,7 @@ gdbscm_symbol_addr_class (SCM self) = syscm_get_valid_symbol_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); const struct symbol *symbol = s_smob->symbol; - return scm_from_int (SYMBOL_CLASS (symbol)); + return scm_from_int (symbol->aclass ()); } /* (symbol-argument? <gdb:symbol>) -> boolean */ @@ -437,7 +437,7 @@ gdbscm_symbol_constant_p (SCM self) const struct symbol *symbol = s_smob->symbol; enum address_class theclass; - theclass = SYMBOL_CLASS (symbol); + theclass = symbol->aclass (); return scm_from_bool (theclass == LOC_CONST || theclass == LOC_CONST_BYTES); } @@ -452,7 +452,7 @@ gdbscm_symbol_function_p (SCM self) const struct symbol *symbol = s_smob->symbol; enum address_class theclass; - theclass = SYMBOL_CLASS (symbol); + theclass = symbol->aclass (); return scm_from_bool (theclass == LOC_BLOCK); } @@ -467,7 +467,7 @@ gdbscm_symbol_variable_p (SCM self) const struct symbol *symbol = s_smob->symbol; enum address_class theclass; - theclass = SYMBOL_CLASS (symbol); + theclass = symbol->aclass (); return scm_from_bool (!SYMBOL_IS_ARGUMENT (symbol) && (theclass == LOC_LOCAL || theclass == LOC_REGISTER @@ -534,7 +534,7 @@ gdbscm_symbol_value (SCM self, SCM rest) if (!gdbscm_is_false (frame_scm)) f_smob = frscm_get_frame_smob_arg_unsafe (frame_scm, frame_pos, FUNC_NAME); - if (SYMBOL_CLASS (symbol) == LOC_TYPEDEF) + if (symbol->aclass () == LOC_TYPEDEF) { gdbscm_out_of_range_error (FUNC_NAME, SCM_ARG1, self, _("cannot get the value of a typedef")); |