static SCM gdbscm_symtab_fullname (SCM self) { symtab_smob *st_smob = stscm_get_valid_symtab_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); struct symtab *symtab = st_smob->symtab; return gdbscm_scm_from_c_string (symtab_to_fullname (symtab)); }
static SCM gdbscm_symtab_objfile (SCM self) { symtab_smob *st_smob = stscm_get_valid_symtab_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); const struct symtab *symtab = st_smob->symtab; return ofscm_scm_from_objfile (SYMTAB_OBJFILE (symtab)); }
static SCM gdbscm_symtab_static_block (SCM self) { symtab_smob *st_smob = stscm_get_valid_symtab_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); const struct symtab *symtab = st_smob->symtab; const struct blockvector *blockvector; const struct block *block; blockvector = SYMTAB_BLOCKVECTOR (symtab); block = BLOCKVECTOR_BLOCK (blockvector, STATIC_BLOCK); return bkscm_scm_from_block (block, SYMTAB_OBJFILE (symtab)); }
static SCM gdbscm_symtab_global_block (SCM self) { symtab_smob *st_smob = stscm_get_valid_symtab_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); const struct symtab *symtab = st_smob->symtab; const struct blockvector *blockvector; const struct block *block; blockvector = BLOCKVECTOR (symtab); block = BLOCKVECTOR_BLOCK (blockvector, GLOBAL_BLOCK); return bkscm_scm_from_block (block, symtab->objfile); }