nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

undump needs file in binary mode

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1996-11-18 11:48:44 -02:00
parent 62e1a4c84d
commit d59c52753f
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
opcode.c
View File

@@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** TecCGraf - PUC-Rio
*/ */
char *rcs_opcode="$Id: opcode.c,v 3.75 1996/09/24 17:30:28 roberto Exp roberto $"; char *rcs_opcode="$Id: opcode.c,v 3.76 1996/09/24 21:46:44 roberto Exp roberto $";
#include <setjmp.h> #include <setjmp.h>
#include <stdio.h> #include <stdio.h>
@@ -548,8 +548,10 @@ int lua_dofile (char *filename)
return 2; return 2;
c = fgetc(f); c = fgetc(f);
ungetc(c, f); ungetc(c, f);
if (c == ID_CHUNK) if (c == ID_CHUNK) {
f = freopen(filename, "rb", f); /* set binary mode */
status = luaI_undump(f); status = luaI_undump(f);
}
else { else {
if (c == '#') if (c == '#')
while ((c=fgetc(f)) != '\n') /* skip first line */; while ((c=fgetc(f)) != '\n') /* skip first line */;