mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-08-06 14:49:38 +08:00
* 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:
@ -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:
|
||||||
|
@ -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)
|
||||||
{
|
{
|
||||||
|
@ -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:
|
||||||
|
Reference in New Issue
Block a user