Fix 32-bit build failures
authorSimon Marlow <marlowsd@gmail.com>
Mon, 4 Jul 2016 09:56:04 +0000 (10:56 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 4 Jul 2016 12:17:23 +0000 (13:17 +0100)
rts/Linker.c

index 894a31d..40ea8de 100644 (file)
@@ -1477,10 +1477,13 @@ void ghci_find(SymbolAddr *addr)
             Section *section = &oc->sections[i];
             if (addr > section->start &&
                 (StgWord)addr < (StgWord)section->start+section->size) {
-                debugBelch("%p is in %" PATH_FMT, addr,
-                           oc->archiveMemberName ?
-                             oc->archiveMemberName : oc->fileName);
-                debugBelch(", section %d, offset %lx\n", i,
+                debugBelch("%p is in ", addr);
+                if (oc->archiveMemberName) {
+                    debugBelch("%s", oc->archiveMemberName);
+                } else {
+                    debugBelch("%" PATH_FMT, oc->fileName);
+                }
+                debugBelch(", section %d, offset %" FMT_Word "\n", i,
                            (StgWord)addr - (StgWord)section->start);
             }
         }