core: Fix compile warnings.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 26 Jun 2018 04:19:51 +0000 (06:19 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 26 Jun 2018 04:19:51 +0000 (06:19 +0200)
* lib/libmes.c: Fix warning.
* src/posix.c (execl_): Fix warning, add debug printing.

lib/libmes.c
src/posix.c

index 0c45310b8445cabd4c306317e7400b030c16465b..eae57f2e096b52313d8dc58f6faa6260ddbda94f 100644 (file)
@@ -19,6 +19,7 @@
  */
 
 #include <libmes.h>
+#include <stdlib.h>
 #include <string.h>
 #include <unistd.h>
 
index 60b9c091d48102f28fd8dcf584c93186cbf66447..d12b222cc68a54c07d562742c7c4c4039d822bbf 100644 (file)
@@ -279,14 +279,18 @@ execl_ (SCM file_name, SCM args) ///((name . "execl"))
            cons (file_name,
                  cons (MAKE_STRING (cstring_to_list ("too many arguments")),
                        cons (file_name, args))));
-  c_argv[i++] = string_to_cstring_ (file_name, string_to_cstring_buf+n);
+  c_argv[i++] = (char*)string_to_cstring_ (file_name, string_to_cstring_buf+n);
   n += length__ (STRING (file_name)) + 1;
   while (args != cell_nil)
     {
       assert (TYPE (CAR (args)) == TSTRING);
-      c_argv[i++] = string_to_cstring_ (CAR (args), string_to_cstring_buf+n);
+      c_argv[i++] = (char*)string_to_cstring_ (CAR (args), string_to_cstring_buf+n);
       n += length__ (STRING (CAR (args))) + 1;
       args = CDR (args);
+      if (g_debug > 2)
+        {
+          eputs ("arg["); eputs (itoa (i)); eputs ("]: "); eputs (c_argv[i-1]); eputs ("\n");
+        }
     }
   c_argv[i] = 0;
   return MAKE_NUMBER (execv (c_argv[0], c_argv));