[MLton-commit] r4298

[Matthew Fluet]

Eliminate uint.
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/Posix/FileSys/Dirstream.c
U   mlton/branches/on-20050822-x86_64-branch/runtime/basis/IntInf.c

----------------------------------------------------------------------

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/Posix/FileSys/Dirstream.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/Posix/FileSys/Dirstream.c	2006-01-06 23:16:58 UTC (rev 4297)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/Posix/FileSys/Dirstream.c	2006-01-06 23:17:28 UTC (rev 4298)
@@ -9,7 +9,7 @@
 
         res = (Int)(closedir ((DIR *) p));
         if (DEBUG_DIRSTREAM)
-                fprintf (stderr, "%d = closedir (0x%08x)\n", (uint)res, (uint)p);
+                fprintf (stderr, "%d = closedir (0x%08"PRIxPTR")\n", res, (uintptr_t)p);
         return res;
 }
 
@@ -25,14 +25,14 @@
         e = readdir ((DIR *) d);
         res = (Cstring)((NULL == e) ? NULL : e->d_name);
         if (DEBUG_DIRSTREAM)
-                fprintf (stderr, "%s = readdir (0x%08x)\n", 
+                fprintf (stderr, "%s = readdir (0x%08"PRIxPTR")\n", 
                                 ((Cstring)NULL == res) ? "NULL": (char*)res,
-                                (uint)d);
+                                (uintptr_t)d);
         return res;
 }
 
 void Posix_FileSys_Dirstream_rewinddir (Cpointer p) {
         if (DEBUG_DIRSTREAM)
-                fprintf (stderr, "rewinddir (0x%08x)\n", (uint)p);
+                fprintf (stderr, "rewinddir (0x%08"PRIxPTR")\n", (uintptr_t)p);
         rewinddir ((DIR *) p);
 }

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/basis/IntInf.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/basis/IntInf.c	2006-01-06 23:16:58 UTC (rev 4297)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/basis/IntInf.c	2006-01-06 23:17:28 UTC (rev 4298)
@@ -9,6 +9,7 @@
 #define MLTON_GC_INTERNAL_TYPES
 #define MLTON_GC_INTERNAL_BASIS
 #include "platform.h"
+typedef unsigned int uint;
 
 enum {
   DEBUG_INT_INF = FALSE,