[svn:parrot] r41606 - trunk/config/gen/platform/win32

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Oct  1 23:50:43 2009
New Revision: 41606
URL: https://trac.parrot.org/parrot/changeset/41606

Log:
[cage] Fix another failure on win32. bacek--

Modified:
   trunk/config/gen/platform/win32/env.c
   trunk/config/gen/platform/win32/exec.c

Modified: trunk/config/gen/platform/win32/env.c
==============================================================================
--- trunk/config/gen/platform/win32/env.c	Thu Oct  1 23:39:39 2009	(r41605)
+++ trunk/config/gen/platform/win32/env.c	Thu Oct  1 23:50:43 2009	(r41606)
@@ -133,7 +133,7 @@
    string -- in other words, by specifying only varname=.
        -- _putenv, _wputenv (CRT) documentation
 */
-    Parrot_setenv(name, "");
+    Parrot_setenv(interp, name, "");
 }
 
 /*

Modified: trunk/config/gen/platform/win32/exec.c
==============================================================================
--- trunk/config/gen/platform/win32/exec.c	Thu Oct  1 23:39:39 2009	(r41605)
+++ trunk/config/gen/platform/win32/exec.c	Thu Oct  1 23:50:43 2009	(r41606)
@@ -43,7 +43,7 @@
     PROCESS_INFORMATION pi;
     int free_it = 0;
     char* cmd = (char *)mem_sys_allocate(command->strlen + 4);
-    char* shell = Parrot_getenv("ComSpec", &free_it);
+    char* shell = Parrot_getenv(interp, CONST_STRING(interp, "ComSpec"));
     char* cmdin = Parrot_str_to_cstring(interp, command);
 
     strcpy(cmd, "/c ");