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

fix oops in try_open

This commit is contained in:
Vitor Santos Costa 2011-09-01 06:11:38 -07:00
parent b331c4bed0
commit 521d65c058
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/save.c
View File

@ -1419,9 +1419,10 @@ static int try_open(char *inpf, CELL *Astate, CELL *ATrail, CELL *AStack, CELL *
int mode; int mode;
if (streamp) { if (streamp) {
if ((*streamp = Sopen_file(inpf, "rb"))) if ((*streamp = Sopen_file(inpf, "rb"))) {
return FAIL_RESTORE; return DO_ONLY_CODE;
return DO_ONLY_CODE; }
return FAIL_RESTORE;
} }
if ((splfild = open_file(inpf, O_RDONLY)) < 0) { if ((splfild = open_file(inpf, O_RDONLY)) < 0) {
return FAIL_RESTORE; return FAIL_RESTORE;