Deprecate lnat, and use StgWord instead

lnat was originally "long unsigned int" but we were using it when we
wanted a 64-bit type on a 64-bit machine.  This broke on Windows x64,
where long == int == 32 bits.  Using types of unspecified size is bad,
but what we really wanted was a type with N bits on an N-bit machine.
StgWord is exactly that.

lnat was mentioned in some APIs that clients might be using
(e.g. StackOverflowHook()), so we leave it defined but with a comment
to say that it's deprecated.

1 files changed, 4 insertions, 4 deletions

diff --git a/rts/Linker.c b/rts/Linker.c
index bf0045616e..50dc9befac 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1900,7 +1900,7 @@ mmap_again:
                     MAP_PRIVATE|TRY_MAP_32BIT|fixed|flags, fd, 0);
 
    if (result == MAP_FAILED) {
-       sysErrorBelch("mmap %" FMT_SizeT " bytes at %p",(lnat)size,map_addr);
+       sysErrorBelch("mmap %" FMT_SizeT " bytes at %p",(W_)size,map_addr);
        errorBelch("Try specifying an address with +RTS -xm<addr> -RTS");
        stg_exit(EXIT_FAILURE);
    }
@@ -1943,7 +1943,7 @@ mmap_again:
    }
 #endif
 
-   IF_DEBUG(linker, debugBelch("mmapForLinker: mapped %" FMT_SizeT " bytes starting at %p\n", (lnat)size, result));
+   IF_DEBUG(linker, debugBelch("mmapForLinker: mapped %" FMT_SizeT " bytes starting at %p\n", (W_)size, result));
    IF_DEBUG(linker, debugBelch("mmapForLinker: done\n"));
    return result;
 }
@@ -4937,7 +4937,7 @@ do_Elf_Rel_relocations ( ObjectCode* oc, char* ehdrC,
 
          default:
             errorBelch("%s: unhandled ELF relocation(Rel) type %" FMT_SizeT "\n",
-                  oc->fileName, (lnat)ELF_R_TYPE(info));
+                  oc->fileName, (W_)ELF_R_TYPE(info));
             return 0;
       }
 
@@ -5252,7 +5252,7 @@ do_Elf_Rela_relocations ( ObjectCode* oc, char* ehdrC,
 
          default:
             errorBelch("%s: unhandled ELF relocation(RelA) type %" FMT_SizeT "\n",
-                  oc->fileName, (lnat)ELF_R_TYPE(info));
+                  oc->fileName, (W_)ELF_R_TYPE(info));
             return 0;
       }