gdb/guile/scm-symtab.c

397   sal_smob *s_smob = (sal_smob *) SCM_SMOB_DATA (self);
400   scm_write (s_smob->symtab_scm, port);
401   if (s_smob->sal.line != 0)
402     gdbscm_printf (port, " line %d", s_smob->sal.line);
416   sal_smob *s_smob
420   s_smob->symtab_scm = SCM_BOOL_F;
421   new (&s_smob->sal) symtab_and_line ();
422   s_scm = scm_new_smob (sal_smob_tag, (scm_t_bits) s_smob);
423   gdbscm_init_gsmob (&s_smob->base);
450   sal_smob *s_smob;
457   s_smob = (sal_smob *) SCM_SMOB_DATA (s_scm);
458   s_smob->symtab_scm = st_scm;
459   s_smob->sal = sal;
483   sal_smob *s_smob = (sal_smob *) SCM_SMOB_DATA (s_scm);
485   return s_smob;
491 stscm_sal_is_valid (sal_smob *s_smob)
496   if (gdbscm_is_false (s_smob->symtab_scm))
499   st_smob = (symtab_smob *) SCM_SMOB_DATA (s_smob->symtab_scm);
510   sal_smob *s_smob = stscm_get_sal_smob_arg (self, arg_pos, func_name);
512   if (!stscm_sal_is_valid (s_smob))
518   return s_smob;
530   sal_smob *s_smob = stscm_get_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
532   return scm_from_bool (stscm_sal_is_valid (s_smob));
540   sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
541   const struct symtab_and_line *sal = &s_smob->sal;
552   sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
553   const struct symtab_and_line *sal = &s_smob->sal;
566   sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
567   const struct symtab_and_line *sal = &s_smob->sal;
580   sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
582   return s_smob->symtab_scm;