darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-10 03:02:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source 
(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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -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:

2
gdb/mdebugread.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.
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)
{

37
gdb/scm-valprint.c
View File

@ -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: