diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix parameters for open

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-03-24 09:38:02 +00:00
parent 5d27ad0243
commit 5f7101a9e3
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
os/pl-file.c
View File

@ -3413,16 +3413,16 @@ openStream(term_t file, term_t mode, term_t options)
int reposition = TRUE; int reposition = TRUE;
atom_t alias = NULL_ATOM; atom_t alias = NULL_ATOM;
atom_t eof_action = ATOM_eof_code; atom_t eof_action = ATOM_eof_code;
int close_on_abort = TRUE;
atom_t buffer = ATOM_full; atom_t buffer = ATOM_full;
atom_t lock = ATOM_none; atom_t lock = ATOM_none;
int wait = TRUE; int wait = TRUE;
atom_t encoding = NULL_ATOM; atom_t encoding = NULL_ATOM;
int bom = -1;
int scripting = FALSE;
#ifdef O_LOCALE #ifdef O_LOCALE
PL_locale *locale = NULL; PL_locale *locale = NULL;
#endif #endif
int close_on_abort = TRUE;
int bom = -1;
int scripting = FALSE;
char how[10]; char how[10];
char *h = how; char *h = how;
char *path; char *path;

2
os/pl-option.c
View File

@ -35,7 +35,7 @@ Variable argument list:
#define MAXOPTIONS 32 #define MAXOPTIONS 32
typedef union typedef union
{ bool *b; /* boolean value */ { int *b; /* boolean value */
long *l; /* long value */ long *l; /* long value */
int *i; /* integer value */ int *i; /* integer value */
uintptr_t *sz; /* size_t value */ uintptr_t *sz; /* size_t value */