static SCM mark_pg_res(SCM smob) { struct pg_res *pgr; pgr = (struct pg_res *)SCM_SMOB_DATA(smob); scm_gc_mark(pgr->fields); scm_gc_mark(pgr->types); return SCM_BOOL_F; }
static SCM mark_board (SCM board_smob) { struct board *board = (struct board *) SCM_SMOB_DATA(board_smob); scm_gc_mark(board->update_func); scm_gc_mark(board->cell_list); return SCM_BOOL_F; }
static SCM mark_node(SCM smob) { MAKE_NODE *node; node = (MAKE_NODE *)SCM_SMOB_DATA(smob); scm_gc_mark(node->callback); scm_gc_mark(node->payload); scm_gc_mark(node->ascendants); scm_gc_mark(node->mutex); return SCM_UNSPECIFIED; }
static SCM ppscm_mark_pretty_printer_smob (SCM self) { pretty_printer_smob *pp_smob = (pretty_printer_smob *) SCM_SMOB_DATA (self); scm_gc_mark (pp_smob->name); scm_gc_mark (pp_smob->enabled); scm_gc_mark (pp_smob->lookup); /* Do this last. */ return gdbscm_mark_gsmob (&pp_smob->base); }
static SCM ppscm_mark_pretty_printer_worker_smob (SCM self) { pretty_printer_worker_smob *w_smob = (pretty_printer_worker_smob *) SCM_SMOB_DATA (self); scm_gc_mark (w_smob->display_hint); scm_gc_mark (w_smob->to_string); scm_gc_mark (w_smob->children); /* Do this last. */ return gdbscm_mark_gsmob (&w_smob->base); }
static SCM mark_game (SCM game_smob) { Game *game = (Game *) SCM_SMOB_DATA (game_smob); // Mark callbacks scm_gc_mark (game->on_start); scm_gc_mark (game->on_update); scm_gc_mark (game->on_draw); scm_gc_mark (game->on_key_pressed); scm_gc_mark (game->on_key_released); return game->on_draw; }
static SCM mark_cell (SCM cell_smob) { struct cell *cell = (struct cell *) SCM_SMOB_DATA(cell_smob); scm_gc_mark(cell->update_func); return SCM_BOOL_F; }
static SCM mark_enum (SCM enumstash) { enum_struct *enum_smob = UNPACK_ENUM (enumstash); scm_gc_mark (enum_smob->table); RETURN_FALSE; }
static SCM mark_x (SCM x) { x_t *c_x; c_x = (x_t *) SCM_SMOB_DATA (x); scm_gc_mark (c_x->scm_value); mark_call_count++; return SCM_BOOL_F; }
static SCM stscm_mark_sal_smob (SCM self) { sal_smob *s_smob = (sal_smob *) SCM_SMOB_DATA (self); scm_gc_mark (s_smob->symtab_scm); /* Do this last. */ return gdbscm_mark_gsmob (&s_smob->base); }
/* Mark the user data associated with TIMEOUT. */ SCM_SMOB_MARK (scm_tc16_avahi_timeout, mark_avahi_timeout, timeout) { AvahiTimeout *c_timeout; c_timeout = scm_to_avahi_timeout (timeout, 1, __FUNCTION__); scm_gc_mark (c_timeout->stuff); return (c_timeout->guile_poll->poll_smob); }
/* Mark the user data associated with WATCH. */ SCM_SMOB_MARK (scm_tc16_avahi_watch, mark_avahi_watch, watch) { AvahiWatch *c_watch; c_watch = scm_to_avahi_watch (watch, 1, __FUNCTION__); scm_gc_mark (c_watch->stuff); return (c_watch->guile_poll->poll_smob); }
static SCM mark_pg_conn(SCM smob) { struct pg_conn *pgc; pgc = (struct pg_conn *)SCM_SMOB_DATA(smob); scm_gc_mark(pgc->mutex); return SCM_BOOL_F; }