gdb/gdb/scm-valprint.c

95 scm_scmlist_print (LONGEST svalue, struct ui_file *stream, int format,
104   scm_scmval_print (SCM_CAR (svalue), stream, format,
106   svalue = SCM_CDR (svalue);
107   for (; SCM_NIMP (svalue); svalue = SCM_CDR (svalue))
109       if (SCM_NECONSP (svalue))
117       scm_scmval_print (SCM_CAR (svalue), stream, format,
120   if (SCM_NNULLP (svalue))
123       scm_scmval_print (svalue, stream, format,
140 scm_scmval_print (LONGEST svalue, struct ui_file *stream, int format,
144   switch (7 & (int) svalue)
148       print_longest (stream, format ? format : 'd', 1, svalue >> 2);
151       if (SCM_ICHRP (svalue))
153 	  svalue = SCM_ICHR (svalue);
154 	  scm_printchar (svalue, stream);
157       else if (SCM_IFLAGP (svalue)
158 	       && (SCM_ISYMNUM (svalue)
161 	  fputs_filtered (SCM_ISYMCHARS (svalue), stream);
164       else if (SCM_ILOCP (svalue))
167 			    (long) SCM_IFRAME (svalue),
168 			    SCM_ICDRP (svalue) ? '-' : '+',
169 			    (long) SCM_IDIST (svalue));
177       svalue = SCM_CAR (svalue - 1);
181       scm_ipruk ("immediate", svalue, stream);
185       switch (SCM_TYP7 (svalue))
188 	  if (SCM_CDR (SCM_CAR (svalue) - 1L) == 0)
203 	      fprintf_filtered (stream, " #X%s>", paddr_nz (svalue));
209 	  scm_scmlist_print (svalue, stream, format,
215 	  scm_scmlist_print (SCM_CODE (svalue), stream, format,
221 	    int len = SCM_LENGTH (svalue);
222 	    CORE_ADDR addr = (CORE_ADDR) SCM_CDR (svalue);
252 	    int len = SCM_LENGTH (svalue);
255 	    read_memory (SCM_CDR (svalue), str, len + 1);
263 	    int len = SCM_LENGTH (svalue);
265 	    LONGEST elements = SCM_CDR (svalue);
313 	    int index = SCM_CAR (svalue) >> 8;
336 			    LENGTH (svalue),
337 			    (long) CHARS (svalue));
355 	  scm_ipruk ("type", svalue, stream);
368       LONGEST svalue = extract_signed_integer (valaddr, TYPE_LENGTH (type));
369       if (scm_inferior_print (svalue, stream, format,
375 	  scm_scmval_print (svalue, stream, format,