|
|
8eacd3b |
--- runtime/Clib/callcc.c.orig 2020-02-26 23:59:17.000000000 -0700
|
|
|
8eacd3b |
+++ runtime/Clib/callcc.c 2020-02-27 19:35:09.357901072 -0700
|
|
|
3e2c3d9 |
@@ -27,7 +27,7 @@ extern long glob_dummy;
|
|
|
3e2c3d9 |
extern obj_t make_fx_procedure( obj_t (*)(), int, int );
|
|
|
3e2c3d9 |
extern obj_t c_constant_string_to_string( char * );
|
|
|
3e2c3d9 |
|
|
|
3e2c3d9 |
-static obj_t callcc_restore_stack();
|
|
|
3e2c3d9 |
+static obj_t callcc_restore_stack( obj_t, obj_t, char ** );
|
|
|
f4c6c68 |
extern obj_t unwind_stack_until( obj_t, obj_t, obj_t, obj_t );
|
|
|
3e2c3d9 |
extern bool_t unwind_stack_value_p( obj_t );
|
|
|
3e2c3d9 |
extern void *bgl_get_top_of_stack();
|
|
|
8eacd3b |
--- runtime/Clib/cerror.c.orig 2020-02-26 23:59:17.000000000 -0700
|
|
|
8eacd3b |
+++ runtime/Clib/cerror.c 2020-02-27 19:35:09.358901069 -0700
|
|
|
3e2c3d9 |
@@ -23,9 +23,8 @@ extern int errno;
|
|
|
3e2c3d9 |
/* Les recuperations externes */
|
|
|
3e2c3d9 |
/*---------------------------------------------------------------------*/
|
|
|
3e2c3d9 |
#ifndef _MSC_VER
|
|
|
3e2c3d9 |
-extern void perror();
|
|
|
3e2c3d9 |
-extern char *strerror( int );
|
|
|
3e2c3d9 |
-extern void exit( int );
|
|
|
3e2c3d9 |
+#include <stdio.h>
|
|
|
3e2c3d9 |
+#include <stdlib.h>
|
|
|
3e2c3d9 |
#endif
|
|
|
3e2c3d9 |
extern obj_t bgl_typeof( obj_t );
|
|
|
3e2c3d9 |
|
|
|
8eacd3b |
--- runtime/Clib/cinit_obj.c.orig 2020-02-26 23:59:17.000000000 -0700
|
|
|
8eacd3b |
+++ runtime/Clib/cinit_obj.c 2020-02-27 19:35:09.359901066 -0700
|
|
|
3e2c3d9 |
@@ -43,7 +43,7 @@ BGL_RUNTIME_DEF union nanobj bigloo_nan,
|
|
|
3e2c3d9 |
/*---------------------------------------------------------------------*/
|
|
|
3e2c3d9 |
/* Importations */
|
|
|
3e2c3d9 |
/*---------------------------------------------------------------------*/
|
|
|
3e2c3d9 |
-extern obj_t string_to_obj();
|
|
|
3e2c3d9 |
+extern obj_t string_to_obj(obj_t, obj_t, obj_t);
|
|
|
3e2c3d9 |
extern void bgl_init_dynamic_env();
|
|
|
3e2c3d9 |
extern void bgl_init_symbol_table();
|
|
|
3e2c3d9 |
extern void bgl_init_socket();
|
|
|
8eacd3b |
--- runtime/Clib/cmain.c.orig 2020-02-27 19:34:19.864047339 -0700
|
|
|
8eacd3b |
+++ runtime/Clib/cmain.c 2020-02-27 19:35:09.359901066 -0700
|
|
|
3e2c3d9 |
@@ -36,8 +36,8 @@ BGL_RUNTIME_DEF long heap_size = DEFAULT
|
|
|
3e2c3d9 |
/*---------------------------------------------------------------------*/
|
|
|
8eacd3b |
/* imports */
|
|
|
3e2c3d9 |
/*---------------------------------------------------------------------*/
|
|
|
3e2c3d9 |
-extern void cref();
|
|
|
3e2c3d9 |
-extern void memshow();
|
|
|
3e2c3d9 |
+extern obj_t cref(obj_t);
|
|
|
3e2c3d9 |
+extern void memshow( char *, char *, long );
|
|
|
3e2c3d9 |
extern void bgl_init_eval_cnst();
|
|
|
3e2c3d9 |
extern obj_t c_constant_string_to_string( char * );
|
|
|
3e2c3d9 |
extern void c_error( char *, char *, int ) __attribute__((noreturn));
|
|
|
8eacd3b |
@@ -49,7 +49,7 @@ extern void GC_set_all_interior_pointers
|
|
|
8eacd3b |
extern obj_t bgl_signal( int, obj_t );
|
|
|
3e2c3d9 |
|
|
|
3e2c3d9 |
#ifndef _MSC_VER
|
|
|
3e2c3d9 |
-extern char *getenv();
|
|
|
3e2c3d9 |
+#include <stdlib.h>
|
|
|
3e2c3d9 |
#endif
|
|
|
3e2c3d9 |
|
|
|
3e2c3d9 |
/*---------------------------------------------------------------------*/
|
|
|
8eacd3b |
--- runtime/Clib/cports.c.orig 2020-02-27 19:34:19.866047334 -0700
|
|
|
8eacd3b |
+++ runtime/Clib/cports.c 2020-02-27 19:35:09.361901060 -0700
|
|
|
3e2c3d9 |
@@ -113,7 +113,7 @@
|
|
|
3e2c3d9 |
/*---------------------------------------------------------------------*/
|
|
|
3e2c3d9 |
#if( BGL_HAVE_SENDFILE )
|
|
|
3e2c3d9 |
# if( BGL_SENDFILE_BRAND == BGL_SENDFILE_LINUX )
|
|
|
3e2c3d9 |
-extern ssize_t sendfile( int, int, off_t *, size_t );
|
|
|
3e2c3d9 |
+# include <sys/sendfile.h>
|
|
|
3e2c3d9 |
# define BGL_SENDFILE sendfile
|
|
|
3e2c3d9 |
# else
|
|
|
3e2c3d9 |
# if( BGL_SENDFILE_BRAND == BGL_SENDFILE_BSD )
|
|
|
8eacd3b |
--- runtime/Clib/cprocess.c.orig 2020-02-26 23:59:17.000000000 -0700
|
|
|
8eacd3b |
+++ runtime/Clib/cprocess.c 2020-02-27 19:35:09.362901057 -0700
|
|
|
3e2c3d9 |
@@ -57,7 +57,7 @@ extern obj_t bgl_close_input_port( obj_t
|
|
|
3e2c3d9 |
extern long bgl_list_length( obj_t );
|
|
|
3e2c3d9 |
extern char *bgl_string_to_gc_cstring( obj_t );
|
|
|
3e2c3d9 |
extern obj_t string_to_bstring( char * );
|
|
|
3e2c3d9 |
-extern ssize_t bgl_syswrite( obj_t, char *, size_t );
|
|
|
3e2c3d9 |
+extern ssize_t bgl_syswrite( obj_t, const void *, size_t );
|
|
|
3e2c3d9 |
extern obj_t make_string_sans_fill( long );
|
|
|
3e2c3d9 |
|
|
|
3e2c3d9 |
/*---------------------------------------------------------------------*/
|
|
|
8eacd3b |
--- runtime/Clib/csocket.c.orig 2020-02-27 19:35:03.771917578 -0700
|
|
|
8eacd3b |
+++ runtime/Clib/csocket.c 2020-02-27 19:35:09.363901054 -0700
|
|
|
3e2c3d9 |
@@ -149,12 +149,11 @@ extern unsigned char bgl_get_hash_number
|
|
|
3e2c3d9 |
extern bool_t bigloo_strcmp( obj_t o1, obj_t o2 );
|
|
|
3e2c3d9 |
extern bool_t bgl_dns_enable_cache();
|
|
|
3e2c3d9 |
extern long bgl_dns_cache_validity_timeout();
|
|
|
3e2c3d9 |
-extern ssize_t bgl_syswrite( obj_t, char *, size_t );
|
|
|
3e2c3d9 |
+extern ssize_t bgl_syswrite( obj_t, const void *, size_t );
|
|
|
3e2c3d9 |
extern obj_t make_string_sans_fill( long );
|
|
|
3e2c3d9 |
|
|
|
3e2c3d9 |
#ifndef _BGL_WIN32_VER
|
|
|
3e2c3d9 |
-extern int dup( int );
|
|
|
3e2c3d9 |
-extern int close( int );
|
|
|
3e2c3d9 |
+#include <unistd.h>
|
|
|
3e2c3d9 |
#endif
|
|
|
3e2c3d9 |
|
|
|
3e2c3d9 |
/*---------------------------------------------------------------------*/
|
|
|
8eacd3b |
--- runtime/Clib/inline_alloc.c.orig 2020-02-26 23:59:17.000000000 -0700
|
|
|
8eacd3b |
+++ runtime/Clib/inline_alloc.c 2020-02-27 19:35:09.363901054 -0700
|
|
|
3e2c3d9 |
@@ -38,7 +38,7 @@ gcollect_verbose( unsigned long heapsz,
|
|
|
3e2c3d9 |
GC_API void
|
|
|
3e2c3d9 |
bgl_gc_verbose_set( bool_t verbose ) {
|
|
|
3e2c3d9 |
#if( (BGL_GC == BGL_BOEHM_GC) && BGL_GC_CUSTOM )
|
|
|
3e2c3d9 |
- extern void GC_add_gc_hook();
|
|
|
3e2c3d9 |
+ extern void GC_add_gc_hook( void (*f)() );
|
|
|
3e2c3d9 |
|
|
|
3e2c3d9 |
if( verbose ) {
|
|
|
3e2c3d9 |
fprintf( stderr, "bgl_gc_verbose on...\n" );
|