* 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:
parent
b18319318b
commit
dcdba37e2d
|
@ -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:
|
||||
|
|
|
@ -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)
|
||||
{
|
||||
|
|
|
@ -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:
|
||||
|
|
Loading…
Reference in New Issue