* scm-valprint.c (scm_isymnames): Remove "#@" prefix.

(scm_scmval_print):  Do not print "#@" prefix.
	* mdebugread.c:  Add check_typedef/CHECK_TYPEDEF as needed.
This commit is contained in:
Per Bothner
1995-11-30 03:10:59 +00:00
parent b18319318b
commit dcdba37e2d
3 changed files with 23 additions and 21 deletions

View File

@ -1,5 +1,8 @@
Wed Nov 29 13:35:18 1995 Per Bothner <bothner@kalessin.cygnus.com> 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. * gdbtypes.h (enum type_code): Added TYPE_CODE_TYPEDEF.
(check_typedef): New prototype. (check_typedef): New prototype.
(CHECK_TYPEDEF): New macro. (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, * 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, 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. Add check_typedef/CHECK_TYPEDEF as needed.
* f-typeprint.c, valarith.c, valprint.c, typeprint.c, eval.c: * f-typeprint.c, valarith.c, valprint.c, typeprint.c, eval.c:

View File

@ -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. /* 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. */ resolve them if the struct gets defined in another compilation unit. */
if (rf == -1) if (rf == -1)
{ {

View File

@ -49,26 +49,26 @@ scm_inferior_print (value, stream, format, deref_ref, recurse, pretty)
static char *scm_isymnames[] = static char *scm_isymnames[] =
{ {
/* This table must agree with the declarations */ /* This table must agree with the declarations */
"#@and", "and",
"#@begin", "begin",
"#@case", "case",
"#@cond", "cond",
"#@do", "do",
"#@if", "if",
"#@lambda", "lambda",
"#@let", "let",
"#@let*", "let*",
"#@letrec", "letrec",
"#@or", "or",
"#@quote", "quote",
"#@set!", "set!",
"#@define", "define",
#if 0 #if 0
"#@literal-variable-ref", "literal-variable-ref",
"#@literal-variable-set!", "literal-variable-set!",
#endif #endif
"#@apply", "apply",
"#@call-with-current-continuation", "call-with-current-continuation",
/* user visible ISYMS */ /* user visible ISYMS */
/* other keywords */ /* other keywords */
@ -178,7 +178,6 @@ scm_scmval_print (svalue, stream, format, deref_ref, recurse, pretty)
break; break;
case 1: case 1:
/* gloc */ /* gloc */
fputs_filtered ("#@", stream);
svalue = SCM_CAR (svalue - 1); svalue = SCM_CAR (svalue - 1);
goto taloop; goto taloop;
default: default: