Fixes for x86/Linux
authorIan Lynagh <igloo@earth.li>
Mon, 30 Apr 2012 19:37:29 +0000 (20:37 +0100)
committerIan Lynagh <igloo@earth.li>
Mon, 30 Apr 2012 19:37:29 +0000 (20:37 +0100)
rts/Linker.c
rts/posix/OSMem.c

index 31a7e75..a2c54c5 100644 (file)
@@ -1684,7 +1684,7 @@ mmap_again:
                     MAP_PRIVATE|TRY_MAP_32BIT|fixed|flags, fd, 0);
 
    if (result == MAP_FAILED) {
-       sysErrorBelch("mmap %lu bytes at %p",(lnat)size,map_addr);
+       sysErrorBelch("mmap %" FMT_SizeT " bytes at %p",(lnat)size,map_addr);
        errorBelch("Try specifying an address with +RTS -xm<addr> -RTS");
        stg_exit(EXIT_FAILURE);
    }
@@ -1727,7 +1727,7 @@ mmap_again:
    }
 #endif
 
-   IF_DEBUG(linker, debugBelch("mmapForLinker: mapped %lu bytes starting at %p\n", (lnat)size, result));
+   IF_DEBUG(linker, debugBelch("mmapForLinker: mapped %" FMT_SizeT " bytes starting at %p\n", (lnat)size, result));
    IF_DEBUG(linker, debugBelch("mmapForLinker: done\n"));
    return result;
 }
@@ -4668,7 +4668,7 @@ do_Elf_Rel_relocations ( ObjectCode* oc, char* ehdrC,
 #        endif // arm_HOST_ARCH
 
          default:
-            errorBelch("%s: unhandled ELF relocation(Rel) type %lu\n",
+            errorBelch("%s: unhandled ELF relocation(Rel) type %" FMT_SizeT "\n",
                   oc->fileName, (lnat)ELF_R_TYPE(info));
             return 0;
       }
@@ -4962,7 +4962,7 @@ do_Elf_Rela_relocations ( ObjectCode* oc, char* ehdrC,
 #endif
 
          default:
-            errorBelch("%s: unhandled ELF relocation(RelA) type %lu\n",
+            errorBelch("%s: unhandled ELF relocation(RelA) type %" FMT_SizeT "\n",
                   oc->fileName, (lnat)ELF_R_TYPE(info));
             return 0;
       }
index bfe1296..509fc5e 100644 (file)
@@ -122,7 +122,7 @@ my_mmap (void *addr, lnat size)
            (errno == EINVAL && sizeof(void*)==4 && size >= 0xc0000000)) {
            // If we request more than 3Gig, then we get EINVAL
            // instead of ENOMEM (at least on Linux).
-            errorBelch("out of memory (requested %lu bytes)", size);
+            errorBelch("out of memory (requested %" FMT_SizeT " bytes)", size);
             stg_exit(EXIT_FAILURE);
        } else {
            barf("getMBlock: mmap: %s", strerror(errno));