core: 32 bits fixes

Signed-off-by: Alexis Laferrière <alexis.laf@xymus.net>

diff --git a/lib/core/kernel.nit b/lib/core/kernel.nit
index fa7b6f4..a821006 100644 (file)
--- a/lib/core/kernel.nit
+++ b/lib/core/kernel.nit
@@ -1063,7 +1063,7 @@ extern class Pointer
        fun free `{ free(self); `}
 
        # Use the address value
-       redef fun hash `{ return (long)self; `}
+       redef fun hash `{ return (long)(intptr_t)self; `}
 
        # Is equal to any instance pointing to the same address
        redef fun ==(o) do return o isa Pointer and native_equals(o)