Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f272b37)
Mingw defines 'environ' to be a macro instead of a global variable.
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sat, 6 Feb 2010 22:51:25 +0000 (23:51 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sat, 6 Feb 2010 22:51:25 +0000 (23:51 +0100)
src/c/unixsys.d patch | blob | blame | history

diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index 6f08ac7..3846bb3 100755 (executable)
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -31,6 +31,11 @@
 #include <sys/wait.h>
 #endif
 
+/* Mingw defines 'environ' to be a macro instead of a global variable. */
+#ifdef environ
+# undef environ
+#endif
+
 cl_object
 si_system(cl_object cmd_string)
 {
@@ -80,7 +85,7 @@ from_list_to_execve_argument(cl_object l, char ***environp)
         cl_object p;
         cl_index i, j, total_size = 0, nstrings = 0;
         cl_object buffer;
-        char **environ;
+        char **env;
         for (p = l; !Null(p); p = ECL_CONS_CDR(p)) {
                 cl_object s;
                 if (!CONSP(p)) {
@@ -98,7 +103,7 @@ from_list_to_execve_argument(cl_object l, char ***environp)
         /* Extra place for ending null */
         total_size++;
         buffer = ecl_alloc_simple_base_string(++total_size);
-        environ = ecl_alloc_atomic((nstrings + 1) * sizeof(char*));
+        env = ecl_alloc_atomic((nstrings + 1) * sizeof(char*));
         for (j = i = 0, p = l; !Null(p); p = ECL_CONS_CDR(p)) {
                 cl_object s = ECL_CONS_CAR(p);
                 cl_index l = s->base_string.fillp;
@@ -107,7 +112,7 @@ from_list_to_execve_argument(cl_object l, char ***environp)
                                 " changed during execution.", 0);
                         break;
                 }
-                environ[j++] = buffer->base_string.self + i;
+                env[j++] = buffer->base_string.self + i;
                 memcpy(buffer->base_string.self + i,
                        s->base_string.self,
                        l);
@@ -115,7 +120,7 @@ from_list_to_execve_argument(cl_object l, char ***environp)
                 buffer->base_string.self[i++] = 0;
         }
         buffer->base_string.self[i++] = 0;
-        environ[j] = 0;
+        env[j] = 0;
         if (environp) *environp = environ;
         return buffer;
 }
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)