From: Alastair Bridgewater <nyef_sbcl@lisphacker.com>
Date: Sat, 20 Feb 2010 23:40:50 +0000 (-0500)
Subject: Improved GC lossage
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c4cf289fd86cb3008935ecd04312865a36e28976;p=sbcl.git

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.
---

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 */
 }