Home | History | Annotate | Download | only in guile

Lines Matching defs:s_smob

396   sal_smob *s_smob = (sal_smob *) SCM_SMOB_DATA (self);
399   scm_write (s_smob->symtab_scm, port);
400   if (s_smob->sal.line != 0)
401     gdbscm_printf (port, " line %d", s_smob->sal.line);
415   sal_smob *s_smob
419   s_smob->symtab_scm = SCM_BOOL_F;
420   new (&s_smob->sal) symtab_and_line ();
421   s_scm = scm_new_smob (sal_smob_tag, (scm_t_bits) s_smob);
422   gdbscm_init_gsmob (&s_smob->base);
449   sal_smob *s_smob;
456   s_smob = (sal_smob *) SCM_SMOB_DATA (s_scm);
457   s_smob->symtab_scm = st_scm;
458   s_smob->sal = sal;
482   sal_smob *s_smob = (sal_smob *) SCM_SMOB_DATA (s_scm);
484   return s_smob;
487 /* Return non-zero if the symtab in S_SMOB is valid.  */
490 stscm_sal_is_valid (sal_smob *s_smob)
495   if (gdbscm_is_false (s_smob->symtab_scm))
498   st_smob = (symtab_smob *) SCM_SMOB_DATA (s_smob->symtab_scm);
509   sal_smob *s_smob = stscm_get_sal_smob_arg (self, arg_pos, func_name);
511   if (!stscm_sal_is_valid (s_smob))
517   return s_smob;
529   sal_smob *s_smob = stscm_get_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
531   return scm_from_bool (stscm_sal_is_valid (s_smob));
539   sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
540   const struct symtab_and_line *sal = &s_smob->sal;
551   sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
552   const struct symtab_and_line *sal = &s_smob->sal;
565   sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
566   const struct symtab_and_line *sal = &s_smob->sal;
579   sal_smob *s_smob = stscm_get_valid_sal_smob_arg (self, SCM_ARG1, FUNC_NAME);
581   return s_smob->symtab_scm;