From dcdba37e2d5970979f1d87cef209495aae83f94c Mon Sep 17 00:00:00 2001
From: Per Bothner <per@bothner.com>
Date: Thu, 30 Nov 1995 03:10:59 +0000
Subject: [PATCH] 	* scm-valprint.c (scm_isymnames):  Remove "#@" prefix.
 	(scm_scmval_print):  Do not print "#@" prefix. 	* mdebugread.c:  Add
 check_typedef/CHECK_TYPEDEF as needed.

---
 gdb/ChangeLog      |  5 ++++-
 gdb/mdebugread.c   |  2 +-
 gdb/scm-valprint.c | 37 ++++++++++++++++++-------------------
 3 files changed, 23 insertions(+), 21 deletions(-)

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index fd6f1eb8996..2d978555efd 100644
--- 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 9698987b786..67eeb7ab252 100644
--- 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 de59220de5f..8544870efab 100644
--- 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:
-- 
2.30.2