--- api/libuv/src/Clib/bgluv.c.orig 2023-12-22 09:18:46.000000000 -0700
+++ api/libuv/src/Clib/bgluv.c 2023-12-25 14:09:43.234920017 -0700
@@ -2978,7 +2978,7 @@ uv_listen_cb(uv_stream_t *handle, int st
/* bgl_uv_listen ... */
/*---------------------------------------------------------------------*/
int
-bgl_uv_listen(obj_t obj, int backlog, obj_t proc, bgl_uv_loop_t bloop) {
+bgl_uv_listen(obj_t obj, int backlog, obj_t proc) {
if (!(PROCEDUREP(proc) && (PROCEDURE_CORRECT_ARITYP(proc, 2)))) {
C_SYSTEM_FAILURE(BGL_TYPE_ERROR, "uv-tcp-listen",
"wrong callback", proc);
--- runtime/Clib/csystem.c.orig 2023-12-22 09:18:46.000000000 -0700
+++ runtime/Clib/csystem.c 2023-12-25 11:46:58.136516120 -0700
@@ -837,17 +837,17 @@ bgl_getrlimit(long resource) {
/* obj_t */
/* bgl_setrlimit ... */
/*---------------------------------------------------------------------*/
-obj_t
+bool_t
bgl_setrlimit(long resource, long soft, long hard) {
#if BGL_HAVE_GETRLIMIT
struct rlimit lim = { .rlim_cur = soft, .rlim_max = hard };
if (!setrlimit(resource, &lim)) {
- return BTRUE;
+ return 1;
} else {
- return BFALSE;
+ return 0;
}
#else
- return BFALSE;
+ return 0;
#endif
}
--- runtime/Include/bigloo_pair.h.orig 2023-12-22 09:18:46.000000000 -0700
+++ runtime/Include/bigloo_pair.h 2023-12-25 11:44:51.923177225 -0700
@@ -60,7 +60,7 @@ struct bgl_epair {
obj_t car;
obj_t cdr;
/* extended header type */
-#if( (BGL_GC == BGL_BOEHM_GC) && TAG_PAIR )
+#if( TAG_PAIR )
obj_t eheader;
#endif
/* extended slot */