# HG changeset patch
# User Jerry James <james@xemacs.org>
# Date 1326325130 25200
# Node ID f4d74be744622833a2a78e5e2eebcac7f849be93
# Parent  e6b5c49f9e13f0d7e7a7659daf8c4157e8c72580
Fix symbol and string printing in gdb with pobj and NEW_GC.  See xemacs-patches
message <CAHCOHQ=RdYDu_K6ONqXxDEO0sLFe2_egftpfFEU=C6cVaDcsjw@mail.gmail.com>.

diff -r e6b5c49f9e13 -r f4d74be74462 src/.gdbinit.in.in
--- a/src/.gdbinit.in.in	Sun Jan 08 22:29:06 2012 -0500
+++ b/src/.gdbinit.in.in	Wed Jan 11 16:38:50 2012 -0700
@@ -309,7 +309,19 @@
   else
   if $lrecord_type == lrecord_type_symbol
     pptype Lisp_Symbol
+#ifdef NEW_GC
+    set $val = ((Lisp_String *)$type_ptr->name)->data_object
+    decode_object $val
+    if $lrecord_type == lrecord_type_string_indirect_data
+      printf "Symbol name: %s\n", ((Lisp_String_Indirect_Data *)$val)->data
+    else
+    if $lrecord_type == lrecord_type_string_direct_data
+      printf "Symbol name: %s\n", ((Lisp_String_Direct_Data *)$val)->data
+    end
+    end
+#else
     printf "Symbol name: %s\n", ((Lisp_String *)$type_ptr->name)->data_
+#endif
   else
   if $lrecord_type == lrecord_type_vector
     pptype Lisp_Vector
@@ -391,11 +403,6 @@
   if $lrecord_type == lrecord_type_keymap
     pptype Lisp_Keymap
   else
-#ifndef NEW_GC
-  if $lrecord_type == lrecord_type_lcrecord_list
-    pstructtype lcrecord_list
-  else
-#endif
   if $lrecord_type == lrecord_type_ldap
     pptype Lisp_LDAP
   else
@@ -459,19 +466,32 @@
   if $lrecord_type == lrecord_type_fc_config
     pstructtype fc_config
   else
+#ifndef NEW_GC
+  if $lrecord_type == lrecord_type_lcrecord_list
+    pstructtype lcrecord_list
+  else
+  if $lrecord_type == lrecord_type_string_direct_data
+    pptype Lisp_String_Direct_Data
+  else
+  if $lrecord_type == lrecord_type_string_indirect_data
+    pptype Lisp_String_Indirect_Data
+  else
+#endif
     echo Unknown Lisp Object type\n
     print $lrecord_type
     print $arg0
   ## Barf, gag, retch
   end
-  end 
+#ifndef NEW_GC
+  end
+  end
+  end
+#endif
   end
   end
   end
   end
-#ifndef NEW_GC
   end
-#endif
   end
   end
   end
diff -r e6b5c49f9e13 -r f4d74be74462 src/ChangeLog
--- a/src/ChangeLog	Sun Jan 08 22:29:06 2012 -0500
+++ b/src/ChangeLog	Wed Jan 11 16:38:50 2012 -0700
@@ -75,6 +75,10 @@
 
 2011-12-28  Jerry James  <james@xemacs.org>
 
+	* .gdbinit.in.in: fix symbol and string printing with pobj and NEW_GC.
+
+2011-12-28  Jerry James  <james@xemacs.org>
+
 	* lisp-disunion.h (make_fixnum): avoid losing bits off the left end
 	if the value is of large magnitude and narrow type.
 	(make_char_1): ditto.