diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/mdebugread.c | 2 | ||||
| -rw-r--r-- | gdb/scm-valprint.c | 37 |
3 files changed, 23 insertions, 21 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index fd6f1eb..2d97855 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,8 @@ Wed Nov 29 13:35:18 1995 Per Bothner <bothner@kalessin.cygnus.com> + * scm-valprint.c (scm_isymnames): Remove "#@" prefix. + (scm_scmval_print): Do not print "#@" prefix. + * gdbtypes.h (enum type_code): Added TYPE_CODE_TYPEDEF. (check_typedef): New prototype. (CHECK_TYPEDEF): New macro. @@ -25,7 +28,7 @@ Wed Nov 29 13:35:18 1995 Per Bothner <bothner@kalessin.cygnus.com> * alpha-tdep.c, c-exp.y, h8500-tdep.c, f-exp.y, f-valprint.c, findvar.c, hppa-tdep.c, infcmd.c, language.c, printcmd.c, - rs6000-tdep.c, symmisc.c, symtab.c: + rs6000-tdep.c, symmisc.c, symtab.c, mdebugread.c: Add check_typedef/CHECK_TYPEDEF as needed. * f-typeprint.c, valarith.c, valprint.c, typeprint.c, eval.c: diff --git a/gdb/mdebugread.c b/gdb/mdebugread.c index 9698987..67eeb7a 100644 --- a/gdb/mdebugread.c +++ b/gdb/mdebugread.c @@ -3557,7 +3557,7 @@ cross_ref (fd, ax, tpp, type_code, pname, bigend, sym_name) } /* mips cc uses a rf of -1 for opaque struct definitions. - Set TYPE_FLAG_STUB for these types so that check_stub_type will + Set TYPE_FLAG_STUB for these types so that check_typedef will resolve them if the struct gets defined in another compilation unit. */ if (rf == -1) { diff --git a/gdb/scm-valprint.c b/gdb/scm-valprint.c index de59220..8544870 100644 --- a/gdb/scm-valprint.c +++ b/gdb/scm-valprint.c @@ -49,26 +49,26 @@ scm_inferior_print (value, stream, format, deref_ref, recurse, pretty) static char *scm_isymnames[] = { /* This table must agree with the declarations */ - "#@and", - "#@begin", - "#@case", - "#@cond", - "#@do", - "#@if", - "#@lambda", - "#@let", - "#@let*", - "#@letrec", - "#@or", - "#@quote", - "#@set!", - "#@define", + "and", + "begin", + "case", + "cond", + "do", + "if", + "lambda", + "let", + "let*", + "letrec", + "or", + "quote", + "set!", + "define", #if 0 - "#@literal-variable-ref", - "#@literal-variable-set!", + "literal-variable-ref", + "literal-variable-set!", #endif - "#@apply", - "#@call-with-current-continuation", + "apply", + "call-with-current-continuation", /* user visible ISYMS */ /* other keywords */ @@ -178,7 +178,6 @@ scm_scmval_print (svalue, stream, format, deref_ref, recurse, pretty) break; case 1: /* gloc */ - fputs_filtered ("#@", stream); svalue = SCM_CAR (svalue - 1); goto taloop; default: |