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

	(scm_scmval_print):  Do not print "#@" prefix.
	* mdebugread.c:  Add check_typedef/CHECK_TYPEDEF as needed.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index fd6f1eb..2d97855 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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: