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

Hopefully the last fd gc issue: also preserve for newly opening FILE* ports

Browse source 
if the corresponding fd still exists in the cache.
This commit is contained in:
Alex Shinn 2014-06-11 23:19:00 +09:00
parent 7d663dd316
commit c5179f2271
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
sexp.c
View file

@ -1752,6 +1752,15 @@ sexp sexp_make_input_port (sexp ctx, FILE* in, sexp name) {
sexp_port_blockedp(p) = 0; sexp_port_blockedp(p) = 0;
#if SEXP_USE_FOLD_CASE_SYMS #if SEXP_USE_FOLD_CASE_SYMS
sexp_port_fold_casep(p) = sexp_truep(sexp_global(ctx, SEXP_G_FOLD_CASE_P)); sexp_port_fold_casep(p) = sexp_truep(sexp_global(ctx, SEXP_G_FOLD_CASE_P));
#endif
#if SEXP_USE_WEAK_REFERENCES
/* if the fd was previously opened by a non-stream port, preserve it */
/* here to avoid gc timing issues */
if (in && fileno(in) >= 0) {
sexp_port_fd(p) = sexp_lookup_fileno(ctx, fileno(in));
if (sexp_filenop(sexp_port_fd(p)))
sexp_fileno_openp(sexp_port_fd(p)) = 1;
}
#endif #endif
sexp_port_cookie(p) = SEXP_VOID; sexp_port_cookie(p) = SEXP_VOID;
return p; return p;