[MLton-commit] r4693

[Matthew Fluet]

Match function definition types with function prototype types.
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/gc/int-inf.c

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

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/int-inf.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/int-inf.c	2006-08-25 16:16:45 UTC (rev 4692)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/int-inf.c	2006-09-05 20:49:04 UTC (rev 4693)
@@ -268,7 +268,7 @@
   return unary (arg, bytes, &mpz_com);
 }
 
-static objptr shary (objptr arg, uint32_t shift, size_t bytes,
+static objptr shary (objptr arg, Word32_t shift, size_t bytes,
                      void(*shop)(__mpz_struct *resmpz,
                                  __gmp_const __mpz_struct *argspace,
                                  unsigned long shift))
@@ -282,14 +282,14 @@
   return finiIntInfRes (&gcState, &resmpz, bytes);
 }
 
-objptr IntInf_arshift (objptr arg, uint32_t shift, size_t bytes) {
+objptr IntInf_arshift (objptr arg, Word32_t shift, size_t bytes) {
   if (DEBUG_INT_INF)
     fprintf (stderr, "IntInf_arshift ("FMTOBJPTR", %"PRIu32", %zu)\n",
              arg, shift, bytes);
   return shary (arg, shift, bytes, &mpz_fdiv_q_2exp);
 }
 
-objptr IntInf_lshift (objptr arg, uint32_t shift, size_t bytes) {
+objptr IntInf_lshift (objptr arg, Word32_t shift, size_t bytes) {
   if (DEBUG_INT_INF)
     fprintf (stderr, "IntInf_lshift ("FMTOBJPTR", %"PRIu32", %zu)\n",
              arg, shift, bytes);