[MLton-commit] r4596

[Stephen W. <sw...@ml...>]

Added casts from C_Int_t to int for call to gdtoa.

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

U   mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/gdtoa.c

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

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/gdtoa.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/gdtoa.c	2006-05-25 05:42:35 UTC (rev 4595)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/basis/Real/gdtoa.c	2006-05-25 05:44:30 UTC (rev 4596)
@@ -32,7 +32,7 @@
     ex = 1;
   ex -= 0x7f + 23;
   i = STRTOG_Normal;
-  result = gdtoa (&fpi, ex, bits, &i, mode, ndig, (int*)decpt, NULL);
+  result = gdtoa (&fpi, ex, bits, &i, (int)mode, (int)ndig, (int*)decpt, NULL);
   if (DEBUG)
     fprintf (stderr, "%s = gdtoa (%g, %d, %d)   decpt = %d\n", 
              result, (double)f, (int)mode, (int)ndig, *((int*)decpt));