User: crestani Date: 05/03/11 09:42:50 Modified: xemacs/src ChangeLog alloc.c Log: Fix KKCC backtrace C++ build 2005-03-11 Marcus Crestani <crestani(a)informatik.uni-tuebingen.de&gt; * alloc.c (kkcc_backtrace): Fix C++ build: do typecasts correctly. Revision Changes Path 1.807 +4 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.806 retrieving revision 1.807 diff -u -r1.806 -r1.807 --- ChangeLog 2005/03/10 09:19:14 1.806 +++ ChangeLog 2005/03/11 08:42:30 1.807 ＠＠ -1,3 +1,7 ＠＠ +2005-03-11 Marcus Crestani <crestani(a)informatik.uni-tuebingen.de&gt; + + * alloc.c (kkcc_backtrace): Fix C++ build: do typecasts correctly. + 2005-03-09 Marcus Crestani <crestani(a)informatik.uni-tuebingen.de&gt; * database.c (berkdb_map): Add typecasts. 1.108 +5 -5 XEmacs/xemacs/src/alloc.c Index: alloc.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/alloc.c,v retrieving revision 1.107 retrieving revision 1.108 diff -u -r1.107 -r1.108 --- alloc.c 2005/03/10 09:12:37 1.107 +++ alloc.c 2005/03/11 08:42:36 1.108 ＠＠ -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,