diff options
| author | Michael Snyder <msnyder@vmware.com> | 2010-05-16 23:49:58 +0000 |
|---|---|---|
| committer | Michael Snyder <msnyder@vmware.com> | 2010-05-16 23:49:58 +0000 |
| commit | 433759f7091e71559584a924e0d18cc8a0770fc9 (patch) | |
| tree | 9698031d651fcb74c945a760b024f53d7ce5930a /gdb/scm-valprint.c | |
| parent | dd304d5382484115a44a2aa81aafbb92e70ae462 (diff) | |
| download | gdb-433759f7091e71559584a924e0d18cc8a0770fc9.zip gdb-433759f7091e71559584a924e0d18cc8a0770fc9.tar.gz gdb-433759f7091e71559584a924e0d18cc8a0770fc9.tar.bz2 | |
2010-05-16 Michael Snyder <msnyder@vmware.com>
* scm-exp.c: White space.
* scm-lang.c: White space.
* scm-valprint.c: White space.
* sentinel-frame.c: White space.
* ser-base.c: White space.
* ser-go32.c: White space.
* serial.c: White space.
* ser-mingw.c: White space.
* ser-pipe.c: White space.
* ser-tcp.c: White space.
* ser-unix.c: White space.
* solib.c: White space.
* solib-darwin.c: White space.
* solib-frv.c: White space.
* solib-irix.c: White space.
* solib-osf.c: White space.
* solib-pa64.c: White space.
* solib-som.c: White space.
* solib-spu.c: White space.
* solib-svr4.c: White space.
* solib-target.c: White space.
* source.c: White space.
* stabsread.c: White space.
* stack.c: White space.
* std-regs.c: White space.
* symfile.c: White space.
* symmisc.c: White space.
* symtab.c: White space.
Diffstat (limited to 'gdb/scm-valprint.c')
| -rw-r--r-- | gdb/scm-valprint.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gdb/scm-valprint.c b/gdb/scm-valprint.c index 95185d4..8000c78 100644 --- a/gdb/scm-valprint.c +++ b/gdb/scm-valprint.c @@ -135,6 +135,7 @@ scm_scmlist_print (struct type *type, LONGEST svalue, #define SCM_SIZE (TYPE_LENGTH (type)) #define SCM_BYTE_ORDER (gdbarch_byte_order (get_type_arch (type))) unsigned int more = options->print_max; + if (recurse > 6) { fputs_filtered ("...", stream); @@ -240,6 +241,7 @@ taloop: #if 0 SCM name; #endif + fputs_filtered ("#<latte ", stream); #if 1 fputs_filtered ("???", stream); @@ -313,6 +315,7 @@ taloop: int i; LONGEST elements = SCM_CDR (svalue); LONGEST val; + fputs_filtered ("#(", stream); for (i = 0; i < len; ++i) { @@ -329,6 +332,7 @@ taloop: { SCM result; SCM hook; + hook = scm_get_lvector_hook (exp, LV_PRINT_FN); if (hook == BOOL_F) { @@ -370,6 +374,7 @@ taloop: #define SCM_CHARS(x) ((char *)(SCM_CDR(x))) char *str = CHARS (SNAME (exp)); #endif + fprintf_filtered (stream, "#<primitive-procedure %s>", str); } @@ -447,6 +452,7 @@ scm_value_print (struct value *val, struct ui_file *stream, const struct value_print_options *options) { struct value_print_options opts = *options; + opts.deref_ref = 1; return (common_val_print (val, stream, 0, &opts, current_language)); } |