mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

copy-file and load-objcode use O_BINARY

Browse source 
* libguile/filesys.c (scm_copy_file):
* libguile/objcodes.c (scm_load_objcode): Use O_BINARY.  Thanks to Eli
  Zaretskii for the patch.
This commit is contained in:
Andy Wingo 2013-02-19 22:36:22 +01:00
parent 854ada4f1a
commit 5a4a4454c5
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/filesys.c
View file

@ -1095,7 +1095,7 @@ SCM_DEFINE (scm_copy_file, "copy-file", 2, 0, 0,
c_newfile = scm_to_locale_string (newfile); c_newfile = scm_to_locale_string (newfile);
scm_dynwind_free (c_newfile); scm_dynwind_free (c_newfile);
oldfd = open_or_open64 (c_oldfile, O_RDONLY); oldfd = open_or_open64 (c_oldfile, O_RDONLY | O_BINARY);
if (oldfd == -1) if (oldfd == -1)
SCM_SYSERROR; SCM_SYSERROR;

4
libguile/objcodes.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc. /* Copyright (C) 2001, 2009, 2010, 2011, 2013 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -363,7 +363,7 @@ SCM_DEFINE (scm_load_objcode, "load-objcode", 1, 0, 0,
SCM_VALIDATE_STRING (1, file); SCM_VALIDATE_STRING (1, file);
c_file = scm_to_locale_string (file); c_file = scm_to_locale_string (file);
fd = open (c_file, O_RDONLY | O_CLOEXEC); fd = open (c_file, O_RDONLY | O_BINARY | O_CLOEXEC);
free (c_file); free (c_file);
if (fd < 0) SCM_SYSERROR; if (fd < 0) SCM_SYSERROR;