From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 28 Mar 2012 11:16:54 +0000 (+0300)
Subject: cleanup: remove cast to (unsigned long) from print_ptr()
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5a942de4c3645c0c63a262eb7b825a9843e96372;p=sbcl.git

cleanup: remove cast to (unsigned long) from print_ptr()
---

diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c
index 2d27925..1d143c8 100644
--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -2847,8 +2847,8 @@ print_ptr(lispobj *addr)
     page_index_t pi1 = find_page_index((void*)addr);
 
     if (pi1 != -1)
-        fprintf(stderr,"  %x: page %d  alloc %d  gen %d  bytes_used %d  offset %lu  dont_move %d\n",
-                (unsigned long) addr,
+        fprintf(stderr,"  %p: page %d  alloc %d  gen %d  bytes_used %d  offset %lu  dont_move %d\n",
+                addr,
                 pi1,
                 page_table[pi1].allocated,
                 page_table[pi1].gen,