mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Fix mkstemp on macOS

Browse source 
* libguile/filesys.c (scm_i_mkstemp): Limit flags to mkostemp.  Based on
  a patch by Matt Wette; thanks!
This commit is contained in:
Andy Wingo 2017-01-08 23:25:27 +01:00
parent b392d81c9c
commit 6ff1ec9c31
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/filesys.c
View file

@ -1489,6 +1489,12 @@ SCM_DEFINE (scm_i_mkstemp, "mkstemp!", 1, 1, 0,
else else
{ {
open_flags = scm_i_mode_to_open_flags (mode, &is_binary, FUNC_NAME); open_flags = scm_i_mode_to_open_flags (mode, &is_binary, FUNC_NAME);
/* mkostemp(2) only defines O_APPEND, O_SYNC, and O_CLOEXEC to be
useful, as O_RDWR|O_CREAT|O_EXCL are implicitly added. It also
notes that other flags may error on some systems, which turns
out to be the case. Of those flags, O_APPEND is the only one
of interest anyway, so limit to that flag. */
open_flags &= O_APPEND;
mode_bits = scm_i_mode_bits (mode); mode_bits = scm_i_mode_bits (mode);
} }