From 5a942de4c3645c0c63a262eb7b825a9843e96372 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Wed, 28 Mar 2012 14:16:54 +0300 Subject: [PATCH] cleanup: remove cast to (unsigned long) from print_ptr() --- src/runtime/gencgc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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, -- 1.7.10.4