artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Fix compile warnings.

Browse source 
* src/posix.c: Include sys/stat.h.
  (chmod): Return cell_unspecified.
* include/stdlib.h: Typo.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-29 12:02:23 +02:00
parent 5f7f2c9894
commit 865e72ae8a
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
4 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/stdlib.h
View file

@ -39,7 +39,7 @@ void * calloc (size_t nmemb, size_t size);
void exit (int); void exit (int);
void free (void *ptr); void free (void *ptr);
char* getenv (char const* s); 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 *malloc (size_t);
void qsort (void *base, size_t nmemb, size_t size, int (*compar)(void const *, void const *)); void qsort (void *base, size_t nmemb, size_t size, int (*compar)(void const *, void const *));
void *realloc (void *p, size_t size); void *realloc (void *p, size_t size);

4
lib/libc.c
View file

@ -279,7 +279,7 @@ malloc (size_t size)
{ {
if (!g_brk) if (!g_brk)
g_brk = brk (0); g_brk = brk (0);
if (brk (g_brk + size) == -1) if (brk (g_brk + size) == (void*)-1)
return 0; return 0;
char *p = g_brk; char *p = g_brk;
g_brk += size; g_brk += size;
@ -290,7 +290,7 @@ void *
memcpy (void *dest, void const *src, size_t n) memcpy (void *dest, void const *src, size_t n)
{ {
char* p = dest; char* p = dest;
char* q = src; char const* q = src;
while (n--) *p++ = *q++; while (n--) *p++ = *q++;
return dest; return dest;
} }

4
src/gc.c
View file

@ -177,9 +177,9 @@ gc_ () ///((internal))
if (g_debug > 2) if (g_debug > 2)
{ {
eputs (" up["); eputs (" up[");
eputs (itoa (g_cells)); eputs (itoa ((unsigned long)g_cells));
eputs (","); eputs (",");
eputs (itoa (g_news)); eputs (itoa ((unsigned long)g_news));
eputs (":"); eputs (":");
eputs (itoa (ARENA_SIZE)); eputs (itoa (ARENA_SIZE));
eputs (","); eputs (",");

4
src/posix.c
View file

@ -18,7 +18,9 @@
* along with Mes. If not, see <http://www.gnu.org/licenses/>. * along with Mes. If not, see <http://www.gnu.org/licenses/>.
*/ */
#include <sys/stat.h>
#include <fcntl.h> #include <fcntl.h>
#include <stdlib.h>
#include <unistd.h> #include <unistd.h>
int int
@ -203,7 +205,7 @@ force_output (SCM p) ///((arity . n))
SCM SCM
chmod_ (SCM file_name, SCM mode) ///((name . "chmod")) 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; return cell_unspecified;
} }