Cross Reference: /src/external/gpl3/gdb.old/dist/gdb/guile/scm-lazy-string.c

Lines Matching defs:ls_smob
87   lazy_string_smob *ls_smob = (lazy_string_smob *) SCM_SMOB_DATA (self);
90   gdbscm_printf (port, " @%s", hex_string (ls_smob->address));
91   if (ls_smob->length >= 0)
92     gdbscm_printf (port, " length %d", ls_smob->length);
93   if (ls_smob->encoding != NULL)
94     gdbscm_printf (port, " encoding %s", ls_smob->encoding);
113   lazy_string_smob *ls_smob = (lazy_string_smob *)
121   ls_smob->address = address;
122   ls_smob->length = length;
124     ls_smob->encoding = NULL;
126     ls_smob->encoding = xstrdup (encoding);
127   ls_smob->type = tyscm_scm_from_type (type);
129   ls_scm = scm_new_smob (lazy_string_smob_tag, (scm_t_bits) ls_smob);
130   gdbscm_init_gsmob (&ls_smob->base);
194 /* Return the type of a character in lazy string LS_SMOB.  */
197 lsscm_elt_type (lazy_string_smob *ls_smob)
199   struct type *type = tyscm_scm_to_type (ls_smob->type);
225   lazy_string_smob *ls_smob = (lazy_string_smob *) SCM_SMOB_DATA (ls_scm);
227   return gdbscm_scm_from_ulongest (ls_smob->address);
236   lazy_string_smob *ls_smob = (lazy_string_smob *) SCM_SMOB_DATA (ls_scm);
238   return scm_from_int (ls_smob->length);
247   lazy_string_smob *ls_smob = (lazy_string_smob *) SCM_SMOB_DATA (ls_scm);
251   if (ls_smob != NULL)
252     return gdbscm_scm_from_c_string (ls_smob->encoding);
262   lazy_string_smob *ls_smob = (lazy_string_smob *) SCM_SMOB_DATA (ls_scm);
264   return ls_smob->type;
298   lazy_string_smob *ls_smob;
303   ls_smob = (lazy_string_smob *) SCM_SMOB_DATA (string);
305   if (ls_smob->address == 0)
315       struct type *type = tyscm_scm_to_type (ls_smob->type);
323 	  if (ls_smob->length != -1)
329 					      0, ls_smob->length - 1);
330 	      value = value_at_lazy (type, ls_smob->address);
333 	    value = value_from_pointer (type, ls_smob->address);
336 	  value = value_at_lazy (type, ls_smob->address);
356   lazy_string_smob *ls_smob;
361   ls_smob = (lazy_string_smob *) SCM_SMOB_DATA (string);
362   elt_type = lsscm_elt_type (ls_smob);
364   val_print_string (elt_type, ls_smob->encoding,
365 		    ls_smob->address, ls_smob->length,
OpenGrok
