Mercurial > hg > xemacs-beta

changeset 2650:fc554bcc59e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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.
author crestani
date Fri, 11 Mar 2005 08:42:36 +0000
parents bdb89f1a5694
children 3580ae2ce979
files src/ChangeLog src/alloc.c
diffstat 2 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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,