From 4fe917e2d832bab5477cea2a9b02beb7b1601c11 Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Wed, 7 Jun 2017 19:59:00 -0700 Subject: [PATCH] Fix unsequenced modification and access to 'addr' Fix incorrect format string for type, replacing 0x%x with %p. modified: gcfinal.c --- src/gcfinal.c | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/src/gcfinal.c b/src/gcfinal.c index cd3075c..3ea1565 100644 --- a/src/gcfinal.c +++ b/src/gcfinal.c @@ -536,13 +536,15 @@ void printarrayblock(LispPTR base) { printf(" Length: %d cells.\n\n", bbase->arlen); addr = ((LispPTR *)bbase) - 20; - for (; addr < (LispPTR *)bbase; addr++) printf("0x%x %8x\n", addr, *addr); - printf("0x%x %8x <- array header\n", addr, *addr++); - for (; addr < (LispPTR *)bbase + 20; addr++) printf("0x%x %8x\n", addr, *addr); + for (; addr < (LispPTR *)bbase; addr++) printf("%p %8x\n", addr, *addr); + printf("%p %8x <- array header\n", addr, *addr); + addr++; + for (; addr < (LispPTR *)bbase + 20; addr++) printf("%p %8x\n", addr, *addr); printf(". . .\n"); addr = ((LispPTR *)btrailer) - 20; - for (; addr < (LispPTR *)btrailer; addr++) printf("0x%x %8x\n", addr, *addr); - printf("0x%x %8x <- array trailer\n", addr, *addr++); - for (; addr < (LispPTR *)btrailer + 20; addr++) printf("0x%x %8x\n", addr, *addr); + for (; addr < (LispPTR *)btrailer; addr++) printf("%p %8x\n", addr, *addr); + printf("%p %8x <- array trailer\n", addr, *addr); + addr++; + for (; addr < (LispPTR *)btrailer + 20; addr++) printf("%p %8x\n", addr, *addr); }