Blob Blame History Raw
--- runtime/Clib/callcc.c.orig	2019-07-04 12:00:22.002011080 -0600
+++ runtime/Clib/callcc.c	2019-07-04 12:01:21.294968359 -0600
@@ -27,7 +27,7 @@ extern long glob_dummy;
 extern obj_t make_fx_procedure( obj_t (*)(), int, int );
 extern obj_t c_constant_string_to_string( char * );
 
-static obj_t callcc_restore_stack();
+static obj_t callcc_restore_stack( obj_t, obj_t, char ** );
 extern obj_t unwind_stack_until( obj_t, obj_t, obj_t, obj_t );
 extern bool_t unwind_stack_value_p( obj_t );
 extern void *bgl_get_top_of_stack();
--- runtime/Clib/cerror.c.orig	2019-07-04 00:09:45.000000000 -0600
+++ runtime/Clib/cerror.c	2019-07-04 12:00:22.003011079 -0600
@@ -23,9 +23,8 @@ extern int errno;
 /*    Les recuperations externes                                       */
 /*---------------------------------------------------------------------*/
 #ifndef _MSC_VER
-extern void perror();
-extern char *strerror( int );
-extern void exit( int );
+#include <stdio.h>
+#include <stdlib.h>
 #endif
 extern obj_t bgl_typeof( obj_t );
 
--- runtime/Clib/cinit_obj.c.orig	2019-07-04 00:09:45.000000000 -0600
+++ runtime/Clib/cinit_obj.c	2019-07-04 12:00:22.003011079 -0600
@@ -43,7 +43,7 @@ BGL_RUNTIME_DEF union nanobj bigloo_nan,
 /*---------------------------------------------------------------------*/
 /*    Importations                                                     */
 /*---------------------------------------------------------------------*/
-extern obj_t string_to_obj();
+extern obj_t string_to_obj(obj_t, obj_t, obj_t);
 extern void bgl_init_dynamic_env();
 extern void bgl_init_symbol_table();
 extern void bgl_init_socket();
--- runtime/Clib/cmain.c.orig	2019-07-04 11:57:31.858132579 -0600
+++ runtime/Clib/cmain.c	2019-07-04 12:00:22.004011078 -0600
@@ -36,8 +36,8 @@ BGL_RUNTIME_DEF long heap_size = DEFAULT
 /*---------------------------------------------------------------------*/
 /*    Des recuperations externes                                       */
 /*---------------------------------------------------------------------*/
-extern void cref();
-extern void memshow();
+extern obj_t cref(obj_t);
+extern void memshow( char *, char *, long );
 extern void bgl_init_eval_cnst();
 extern obj_t c_constant_string_to_string( char * );
 extern void c_error( char *, char *, int ) __attribute__((noreturn));
@@ -48,7 +48,7 @@ extern void bgl_end_io();
 extern void GC_set_all_interior_pointers( int );
 
 #ifndef _MSC_VER
-extern char *getenv();
+#include <stdlib.h>
 #endif
 
 /*---------------------------------------------------------------------*/
--- runtime/Clib/cports.c.orig	2019-07-04 11:57:31.859132578 -0600
+++ runtime/Clib/cports.c	2019-07-04 12:00:22.004011078 -0600
@@ -113,7 +113,7 @@
 /*---------------------------------------------------------------------*/
 #if( BGL_HAVE_SENDFILE )
 #  if( BGL_SENDFILE_BRAND == BGL_SENDFILE_LINUX )
-extern ssize_t sendfile( int, int, off_t *, size_t );
+#    include <sys/sendfile.h>
 #    define BGL_SENDFILE sendfile
 #  else
 #    if( BGL_SENDFILE_BRAND == BGL_SENDFILE_BSD )
--- runtime/Clib/cprocess.c.orig	2019-07-04 00:09:45.000000000 -0600
+++ runtime/Clib/cprocess.c	2019-07-04 12:00:22.004011078 -0600
@@ -57,7 +57,7 @@ extern obj_t bgl_close_input_port( obj_t
 extern long  bgl_list_length( obj_t );
 extern char *bgl_string_to_gc_cstring( obj_t );
 extern obj_t string_to_bstring( char * );
-extern ssize_t bgl_syswrite( obj_t, char *, size_t );
+extern ssize_t bgl_syswrite( obj_t, const void *, size_t );
 extern obj_t make_string_sans_fill( long );
 
 /*---------------------------------------------------------------------*/
--- runtime/Clib/csocket.c.orig	2019-07-04 11:57:38.044129214 -0600
+++ runtime/Clib/csocket.c	2019-07-04 12:00:22.005011078 -0600
@@ -149,12 +149,11 @@ extern unsigned char bgl_get_hash_number
 extern bool_t bigloo_strcmp( obj_t o1, obj_t o2 );
 extern bool_t bgl_dns_enable_cache();
 extern long bgl_dns_cache_validity_timeout();
-extern ssize_t bgl_syswrite( obj_t, char *, size_t );
+extern ssize_t bgl_syswrite( obj_t, const void *, size_t );
 extern obj_t make_string_sans_fill( long );
 
 #ifndef _BGL_WIN32_VER
-extern int dup( int );
-extern int close( int );
+#include <unistd.h>
 #endif
 
 /*---------------------------------------------------------------------*/
--- runtime/Clib/inline_alloc.c.orig	2019-07-04 00:09:45.000000000 -0600
+++ runtime/Clib/inline_alloc.c	2019-07-04 12:00:22.005011078 -0600
@@ -38,7 +38,7 @@ gcollect_verbose( unsigned long heapsz,
 GC_API void
 bgl_gc_verbose_set( bool_t verbose ) {
 #if( (BGL_GC == BGL_BOEHM_GC) && BGL_GC_CUSTOM )
-   extern void GC_add_gc_hook();
+   extern void GC_add_gc_hook( void (*f)() );
    
    if( verbose ) {
       fprintf( stderr, "bgl_gc_verbose on...\n" );