From 6c8fd1d5e19b6807c2a61765fcf5af5b5af31a2d Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Mon, 28 Nov 2016 15:18:10 -0500 Subject: [PATCH] Fix data truncation in printf strings --- src/runtime/gc-common.c | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c index f5ddd6956..793925b8d 100644 --- a/src/runtime/gc-common.c +++ b/src/runtime/gc-common.c @@ -389,9 +389,8 @@ size_code_header(lispobj *where) static sword_t scav_return_pc_header(lispobj *where, lispobj object) { - lose("attempted to scavenge a return PC header where=0x%08x object=0x%08x\n", - (uword_t) where, - (uword_t) object); + lose("attempted to scavenge a return PC header where=%p object=%#lx\n", + where, (uword_t) object); return 0; /* bogus return value to satisfy static type checking */ } #endif /* LISP_FEATURE_X86 */ @@ -443,9 +442,8 @@ scav_closure_header(lispobj *where, lispobj object) static sword_t scav_fun_header(lispobj *where, lispobj object) { - lose("attempted to scavenge a function header where=0x%08x object=0x%08x\n", - (uword_t) where, - (uword_t) object); + lose("attempted to scavenge a function header where=%p object=%#lx\n", + where, (uword_t) object); return 0; /* bogus return value to satisfy static type checking */ } #endif /* LISP_FEATURE_X86 */ -- 2.11.4.GIT