suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: use O_BINARY only on Windows

Browse Source
This commit is contained in:
Matthew Flatt 2018-04-10 20:00:18 +02:00
parent fcfa72e73a
commit a5d0d38ae0
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/src/cs/c/boot.c
View File

@ -9,6 +9,14 @@
#include "rktio.h" #include "rktio.h"
#include "boot.h" #include "boot.h"
#if defined(_MSC_VER) || defined(__MINGW32__)
# define BOOT_O_BINARY O_BINARY
#endif
#ifndef BOOT_O_BINARY
# define BOOT_O_BINARY 0
#endif
#if defined(OS_X) && !defined(RACKET_XONX) #if defined(OS_X) && !defined(RACKET_XONX)
# include <mach-o/dyld.h> # include <mach-o/dyld.h>
@ -80,7 +88,7 @@ void racket_boot(int argc, char **argv, char *self, long segment_offset,
Sregister_boot_file(path_append(fw_path, "petite.boot")); Sregister_boot_file(path_append(fw_path, "petite.boot"));
Sregister_boot_file(path_append(fw_path, "scheme.boot")); Sregister_boot_file(path_append(fw_path, "scheme.boot"));
#else #else
fd = open(self, O_RDONLY | O_BINARY); fd = open(self, O_RDONLY | BOOT_O_BINARY);
{ {
int fd1, fd2; int fd1, fd2;