[MLton-commit] r4519

[Wesley Terpstra]

fixed for new GC api
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/basis/MLton/Process/spawnp.c

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

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/basis/MLton/Process/spawnp.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/basis/MLton/Process/spawnp.c	2006-05-10 15:13:52 UTC (rev 4518)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/basis/MLton/Process/spawnp.c	2006-05-10 15:17:45 UTC (rev 4519)
@@ -3,21 +3,21 @@
 #if HAS_SPAWN
 
 C_Errno_t(C_Int_t) MLton_Process_spawnp (NullString8_t p, NullString8Array_t a) {
-  const char      *file;
+  const char      *path;
   const char      *asaved;
-  const char      **args;
+  char            **args;
   int             an;
   int             res;
 
   path = (const char *) p;
   args = (const char **) a;
-  an = GC_arrayNumElements((pointer)a) - 1;
+  an = GC_getArrayLength((pointer)a) - 1;
   asaved = args[an];
   args[an] = (const char *) NULL;
-  result = spawnvp (SPAWN_MODE, path, 
+  res = spawnvp (SPAWN_MODE, path, 
                     (const char * const *)args);
   args[an] = asaved;
-  return res;
+  return (C_Errno_t(C_Int_t))res;
 }
 
 #else