core: Fix compile warnings.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 29 Apr 2018 10:02:23 +0000 (12:02 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 29 Apr 2018 10:02:23 +0000 (12:02 +0200)
* src/posix.c: Include sys/stat.h.
  (chmod): Return cell_unspecified.
* include/stdlib.h: Typo.

include/stdlib.h
lib/libc.c
src/gc.c
src/posix.c

index 75eded7db5b7ad03592b1c8eb4380df033cae488..e529f0869f3bb25f62da31e142f2de376ce8f6e1 100644 (file)
@@ -39,7 +39,7 @@ void * calloc (size_t nmemb, size_t size);
 void exit (int);
 void free (void *ptr);
 char* getenv (char const* s);
-int settenv (char const* s, char const* v, int overwrite_p);
+int setenv (char const* s, char const* v, int overwrite_p);
 void *malloc (size_t);
 void qsort (void *base, size_t nmemb, size_t size, int (*compar)(void const *, void const *));
 void *realloc (void *p, size_t size);
index 2819468c0633c4cbf6cf733cee6a72246c9c2d0f..1427ba2dcfdf330625d12a24e67940e535c9a8aa 100644 (file)
@@ -279,7 +279,7 @@ malloc (size_t size)
 {
   if (!g_brk)
     g_brk = brk (0);
-  if (brk (g_brk + size) == -1)
+  if (brk (g_brk + size) == (void*)-1)
     return 0;
   char *p = g_brk;
   g_brk += size;
@@ -290,7 +290,7 @@ void *
 memcpy (void *dest, void const *src, size_t n)
 {
   char* p = dest;
-  char* q = src;
+  char const* q = src;
   while (n--) *p++ = *q++;
   return dest;
 }
index 717512524aef23153f480fb2c0a85b74380d1d3e..6f34aebac96e0113bfcf9673a890e96e6bd67131 100644 (file)
--- a/src/gc.c
+++ b/src/gc.c
@@ -177,9 +177,9 @@ gc_ () ///((internal))
       if (g_debug > 2)
         {
           eputs (" up[");
-          eputs (itoa (g_cells));
+          eputs (itoa ((unsigned long)g_cells));
           eputs (",");
-          eputs (itoa (g_news));
+          eputs (itoa ((unsigned long)g_news));
           eputs (":");
           eputs (itoa (ARENA_SIZE));
           eputs (",");
index e8ec52a1c992323cb999897afa97fc7bb52a3101..5986020bf83db5ecb283f0c08c2218bddd5b2cef 100644 (file)
@@ -18,7 +18,9 @@
  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  */
 
+#include <sys/stat.h>
 #include <fcntl.h>
+#include <stdlib.h>
 #include <unistd.h>
 
 int
@@ -203,7 +205,7 @@ force_output (SCM p) ///((arity . n))
 SCM
 chmod_ (SCM file_name, SCM mode) ///((name . "chmod"))
 {
-  return chmod (string_to_cstring (file_name), VALUE (mode));
+  chmod (string_to_cstring (file_name), VALUE (mode));
   return cell_unspecified;
 }