Lines Matching defs:s_smob
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;