From c4cf289fd86cb3008935ecd04312865a36e28976 Mon Sep 17 00:00:00 2001 From: Alastair Bridgewater Date: Sat, 20 Feb 2010 18:40:50 -0500 Subject: [PATCH] Improved GC lossage * Change size_lose() and scav_lose() to indicate the widetag of the header of the losing object rather than of the pointer to the losing object. * Patch from Paul Khuong. --- src/runtime/gc-common.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c index 95b5c3b..67b0fb3 100644 --- a/src/runtime/gc-common.c +++ b/src/runtime/gc-common.c @@ -1885,7 +1885,7 @@ scav_lose(lispobj *where, lispobj object) { lose("no scavenge function for object 0x%08x (widetag 0x%x)\n", (unsigned long)object, - widetag_of(object)); + widetag_of(*where)); return 0; /* bogus return value to satisfy static type checking */ } @@ -1904,7 +1904,7 @@ size_lose(lispobj *where) { lose("no size function for object at 0x%08x (widetag 0x%x)\n", (unsigned long)where, - widetag_of(LOW_WORD(where))); + widetag_of(*where)); return 1; /* bogus return value to satisfy static type checking */ } -- 1.7.10.4