From 1b7a7fc6fc1d79d9d54f3f257b1b245fd272a402 Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Wed, 7 Jun 2017 20:09:11 -0700 Subject: [PATCH] Correct format strings and arguments. modified: gcarray.c --- src/gcarray.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/gcarray.c b/src/gcarray.c index f211d4b..5275fd7 100644 --- a/src/gcarray.c +++ b/src/gcarray.c @@ -101,7 +101,7 @@ struct hashtable { /************************************************************************/ LispPTR aref1(LispPTR array, int index) { - register LispPTR retval; + register LispPTR retval = 0; register LispPTR base; register short typenumber; register struct arrayheader *actarray; @@ -110,8 +110,8 @@ LispPTR aref1(LispPTR array, int index) { if (index >= actarray->totalsize) { printf("Invalid index in GC's AREF1: 0x%x\n", index); printf(" Array size limit: 0x%x\n", actarray->totalsize); - printf(" Array ptr: 0x%x\n", (UNSIGNED)array); - printf(" Array 68K ptr: 0x%x\n", (UNSIGNED)actarray); + printf(" Array ptr: 0x%lx\n", (UNSIGNED)array); + printf(" Array 68K ptr: %p\n", actarray); printf("base: 0x%x\n", actarray->base); printf("offset: 0x%x\n", actarray->offset); printf("type #: 0x%x\n", actarray->typenumber);