[MLton-commit] r4743

[Matthew Fluet]

Use ML name for functions imported by Basis Library implementation
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/gc/profiling.c
U   mlton/branches/on-20050822-x86_64-branch/runtime/gc/profiling.h

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

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/profiling.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/profiling.c	2006-10-21 19:22:49 UTC (rev 4742)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/profiling.c	2006-10-22 00:24:34 UTC (rev 4743)
@@ -244,13 +244,13 @@
   writeNewline (f);
 }
 
-void GC_profileWrite (GC_state s, GC_profileData p, const char *fileName) {
+void GC_profileWrite (GC_state s, GC_profileData p, NullString8_t fileName) {
   FILE *f;
   const char* kind;
 
   if (DEBUG_PROFILE)
     fprintf (stderr, "GC_profileWrite\n");
-  f = fopen_safe (fileName, "wb");
+  f = fopen_safe ((const char*)fileName, "wb");
   writeString (f, "MLton prof\n");
   kind = "";
   switch (s->profiling.kind) {

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/profiling.h
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/profiling.h	2006-10-21 19:22:49 UTC (rev 4742)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/profiling.h	2006-10-22 00:24:34 UTC (rev 4743)
@@ -116,7 +116,7 @@
 void GC_setProfileCurrent (GC_state s, GC_profileData p);
 
 GC_profileData GC_profileMalloc (GC_state s);
-void GC_profileWrite (GC_state s, GC_profileData p, const char *fileName);
+void GC_profileWrite (GC_state s, GC_profileData p, NullString8_t fileName);
 void GC_profileFree (GC_state s, GC_profileData p);
 
 void GC_profileDone (GC_state s);