Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing non-threaded build

Browse source
This commit is contained in:
Alex Shinn 2010-12-26 14:24:19 +09:00
parent bc8e98c556
commit 96161ffcf6
3 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
include/chibi/sexp.h
View file

@ -1051,9 +1051,9 @@ SEXP_API void sexp_maybe_unblock_port (sexp ctx, sexp in);
if (sexp_maybe_block_port(ctx, in, forcep)) \ if (sexp_maybe_block_port(ctx, in, forcep)) \
return sexp_global(ctx, SEXP_G_IO_BLOCK_ERROR) return sexp_global(ctx, SEXP_G_IO_BLOCK_ERROR)
#else #else
#define sexp_maybe_block_port(ctx, in, forcep) 0 #define sexp_maybe_block_port(ctx, in, forcep)
#define sexp_maybe_unblock_port(ctx, in) 0 #define sexp_maybe_unblock_port(ctx, in)
#define sexp_check_block_port(ctx, in, forcep) 0 #define sexp_check_block_port(ctx, in, forcep)
#endif #endif
#define SEXP_PORT_UNKNOWN_FLAGS -1uL #define SEXP_PORT_UNKNOWN_FLAGS -1uL

4
main.c
View file

@ -86,9 +86,9 @@ static sexp check_exception (sexp ctx, sexp res) {
} }
static sexp sexp_load_standard_repl_env (sexp ctx, sexp env, sexp k) { static sexp sexp_load_standard_repl_env (sexp ctx, sexp env, sexp k) {
sexp p, res = sexp_load_standard_env(ctx, env, k); sexp res = sexp_load_standard_env(ctx, env, k);
#if SEXP_USE_GREEN_THREADS #if SEXP_USE_GREEN_THREADS
p = sexp_param_ref(ctx, env, sexp_global(ctx, SEXP_G_CUR_IN_SYMBOL)); sexp p = sexp_param_ref(ctx, env, sexp_global(ctx, SEXP_G_CUR_IN_SYMBOL));
if (sexp_portp(p)) fcntl(sexp_port_fileno(p), F_SETFL, O_NONBLOCK); if (sexp_portp(p)) fcntl(sexp_port_fileno(p), F_SETFL, O_NONBLOCK);
p = sexp_param_ref(ctx, env, sexp_global(ctx, SEXP_G_CUR_OUT_SYMBOL)); p = sexp_param_ref(ctx, env, sexp_global(ctx, SEXP_G_CUR_OUT_SYMBOL));
if (sexp_portp(p)) fcntl(sexp_port_fileno(p), F_SETFL, O_NONBLOCK); if (sexp_portp(p)) fcntl(sexp_port_fileno(p), F_SETFL, O_NONBLOCK);

6
vm.c
View file

@ -211,13 +211,13 @@ static void generate_opcode_app (sexp ctx, sexp app) {
if (sexp_opcode_inverse(op)) { if (sexp_opcode_inverse(op)) {
inv_default = 1; inv_default = 1;
} else { } else {
if (sexp_opcode_opt_param_p(op)) { if (sexp_opcode_opt_param_p(op) && sexp_opcodep(sexp_opcode_data(op))) {
#if SEXP_USE_GREEN_THREADS #if SEXP_USE_GREEN_THREADS
emit(ctx, SEXP_OP_PARAMETER_REF); emit(ctx, SEXP_OP_PARAMETER_REF);
emit_word(ctx, (sexp_uint_t)sexp_opcode_data(op)); emit_word(ctx, (sexp_uint_t)sexp_opcode_data(op));
bytecode_preserve(ctx, sexp_opcode_data(op)); bytecode_preserve(ctx, sexp_opcode_data(op));
#else #else
emit_push(ctx, sexp_opcode_data(op)); emit_push(ctx, sexp_opcode_data(sexp_opcode_data(op)));
#endif #endif
emit(ctx, SEXP_OP_CDR); emit(ctx, SEXP_OP_CDR);
} else { } else {
@ -561,7 +561,7 @@ static int sexp_check_type(sexp ctx, sexp a, sexp b) {
} }
#else #else
#define sexp_fcall_return(x, i) \ #define sexp_fcall_return(x, i) \
top -= i; _ARG1 = x; ip += s; sexp_check_exception(x); top -= i; _ARG1 = x; ip += sizeof(sexp); sexp_check_exception();
#endif #endif
#if SEXP_USE_DEBUG_VM #if SEXP_USE_DEBUG_VM