Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 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 e6854ec89f8e
children a48989ca6db3
comparison
equal deleted inserted replaced
2649:bdb89f1a5694 2650:fc554bcc59e7
3341 { 3341 {
3342 int i; 3342 int i;
3343 stderr_out ("KKCC mark stack backtrace :\n"); 3343 stderr_out ("KKCC mark stack backtrace :\n");
3344 for (i = kkcc_bt_depth - 1; i >= 0; i--) 3344 for (i = kkcc_bt_depth - 1; i >= 0; i--)
3345 { 3345 {
3346 Lisp_Object obj = wrap_pointer_1 (kkcc_bt[i].obj);
3346 stderr_out (" [%d]", i); 3347 stderr_out (" [%d]", i);
3347 if ((((struct lrecord_header *) kkcc_bt[i].obj)->type 3348 if ((XRECORD_LHEADER (obj)->type >= lrecord_type_free)
3348 >= lrecord_type_free) 3349 || (!LRECORDP (obj))
3349 || (!LRECORDP (kkcc_bt[i].obj)) 3350 || (!XRECORD_LHEADER_IMPLEMENTATION (obj)))
3350 || (!XRECORD_LHEADER_IMPLEMENTATION (kkcc_bt[i].obj)))
3351 { 3351 {
3352 stderr_out (" non Lisp Object"); 3352 stderr_out (" non Lisp Object");
3353 } 3353 }
3354 else 3354 else
3355 { 3355 {
3356 stderr_out (" %s", 3356 stderr_out (" %s",
3357 XRECORD_LHEADER_IMPLEMENTATION (kkcc_bt[i].obj)->name); 3357 XRECORD_LHEADER_IMPLEMENTATION (obj)->name);
3358 } 3358 }
3359 stderr_out (" (addr: 0x%x, desc: 0x%x, ", 3359 stderr_out (" (addr: 0x%x, desc: 0x%x, ",
3360 (int) kkcc_bt[i].obj, 3360 (int) kkcc_bt[i].obj,
3361 (int) kkcc_bt[i].desc); 3361 (int) kkcc_bt[i].desc);
3362 if (kkcc_bt[i].pos >= 0) 3362 if (kkcc_bt[i].pos >= 0)