gdb/guile/scm-symbol.c

54    in bad data.  All access to s_smob->symbol should be gated by
65     symbol_smob *s_smob = (symbol_smob *) *slot;
67     s_smob->symbol = NULL;
98   const symbol_smob *s_smob = (const symbol_smob *) p;
100   return htab_hash_pointer (s_smob->symbol);
158   symbol_smob *s_smob = (symbol_smob *) SCM_SMOB_DATA (self);
160   if (s_smob->symbol != NULL)
162       htab_t htab = syscm_get_symbol_map (s_smob->symbol);
164       gdbscm_clear_eqable_gsmob_ptr_slot (htab, &s_smob->base);
168   s_smob->symbol = NULL;
178   symbol_smob *s_smob = (symbol_smob *) SCM_SMOB_DATA (self);
183 		 s_smob->symbol != NULL
184 		 ? s_smob->symbol->print_name ()
200   symbol_smob *s_smob = (symbol_smob *)
204   s_smob->symbol = NULL;
205   s_scm = scm_new_smob (symbol_smob_tag, (scm_t_bits) s_smob);
206   gdbscm_init_eqable_gsmob (&s_smob->base, s_scm);
235   symbol_smob *s_smob, s_smob_for_lookup;
247   s_smob = (symbol_smob *) SCM_SMOB_DATA (s_scm);
248   s_smob->symbol = symbol;
249   gdbscm_fill_eqable_gsmob_ptr_slot (slot, &s_smob->base);
273   symbol_smob *s_smob = (symbol_smob *) SCM_SMOB_DATA (s_scm);
275   return s_smob;
281 syscm_is_valid (symbol_smob *s_smob)
283   return s_smob->symbol != NULL;
293   symbol_smob *s_smob
296   if (!syscm_is_valid (s_smob))
302   return s_smob;
312   symbol_smob *s_smob = syscm_get_valid_symbol_smob_arg_unsafe (self, arg_pos,
315   return s_smob->symbol;
328   symbol_smob *s_smob
331   return scm_from_bool (syscm_is_valid (s_smob));
340   symbol_smob *s_smob
342   const struct symbol *symbol = s_smob->symbol;
357   symbol_smob *s_smob
359   const struct symbol *symbol = s_smob->symbol;
371   symbol_smob *s_smob
373   const struct symbol *symbol = s_smob->symbol;
383   symbol_smob *s_smob
385   const struct symbol *symbol = s_smob->symbol;
395   symbol_smob *s_smob
397   const struct symbol *symbol = s_smob->symbol;
407   symbol_smob *s_smob
409   const struct symbol *symbol = s_smob->symbol;
419   symbol_smob *s_smob
421   const struct symbol *symbol = s_smob->symbol;
431   symbol_smob *s_smob
433   const struct symbol *symbol = s_smob->symbol;
446   symbol_smob *s_smob
448   const struct symbol *symbol = s_smob->symbol;
461   symbol_smob *s_smob
463   const struct symbol *symbol = s_smob->symbol;
480   symbol_smob *s_smob
482   struct symbol *symbol = s_smob->symbol;
505   symbol_smob *s_smob
507   const struct symbol *symbol = s_smob->symbol;
518   symbol_smob *s_smob
520   struct symbol *symbol = s_smob->symbol;