# HG changeset patch
# User crestani
# Date 1110530556 0
# Node ID fc554bcc59e7730d3c480931af28069f6b4922d0
# Parent  bdb89f1a5694c0f19ac6bff89bfbf687af350030
[xemacs-hg @ 2005-03-11 08:42:30 by crestani]
Fix KKCC backtrace C++ build

2005-03-11  Marcus Crestani  <crestani@informatik.uni-tuebingen.de>

	* alloc.c (kkcc_backtrace): Fix C++ build: do typecasts correctly.

diff -r bdb89f1a5694 -r fc554bcc59e7 src/ChangeLog
--- a/src/ChangeLog	Thu Mar 10 22:51:32 2005 +0000
+++ b/src/ChangeLog	Fri Mar 11 08:42:36 2005 +0000
@@ -1,3 +1,7 @@
+2005-03-11  Marcus Crestani  <crestani@informatik.uni-tuebingen.de>
+
+	* alloc.c (kkcc_backtrace): Fix C++ build: do typecasts correctly.
+
 2005-03-09  Marcus Crestani  <crestani@informatik.uni-tuebingen.de>
 
 	* database.c (berkdb_map): Add typecasts.
diff -r bdb89f1a5694 -r fc554bcc59e7 src/alloc.c
--- a/src/alloc.c	Thu Mar 10 22:51:32 2005 +0000
+++ b/src/alloc.c	Fri Mar 11 08:42:36 2005 +0000
@@ -3343,18 +3343,18 @@
   stderr_out ("KKCC mark stack backtrace :\n");
   for (i = kkcc_bt_depth - 1; i >= 0; i--)
     {
+      Lisp_Object obj = wrap_pointer_1 (kkcc_bt[i].obj);
       stderr_out (" [%d]", i);
-      if ((((struct lrecord_header *) kkcc_bt[i].obj)->type
-	   >= lrecord_type_free)
-	  || (!LRECORDP (kkcc_bt[i].obj))
-	  || (!XRECORD_LHEADER_IMPLEMENTATION (kkcc_bt[i].obj)))
+      if ((XRECORD_LHEADER (obj)->type >= lrecord_type_free)
+	  || (!LRECORDP (obj))
+	  || (!XRECORD_LHEADER_IMPLEMENTATION (obj)))
 	{
 	  stderr_out (" non Lisp Object");
 	}
       else
 	{
 	  stderr_out (" %s",
-		      XRECORD_LHEADER_IMPLEMENTATION (kkcc_bt[i].obj)->name);
+		      XRECORD_LHEADER_IMPLEMENTATION (obj)->name);
 	}
       stderr_out (" (addr: 0x%x, desc: 0x%x, ",
 		  (int) kkcc_bt[i].obj,