undump needs file in binary mode

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

View File

@ -3,7 +3,7 @@
** 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 <stdio.h>
@ -548,8 +548,10 @@ int lua_dofile (char *filename)
return 2;
c = fgetc(f);
ungetc(c, f);
if (c == ID_CHUNK)
if (c == ID_CHUNK) {
f = freopen(filename, "rb", f); /* set binary mode */
status = luaI_undump(f);
}
else {
if (c == '#')
while ((c=fgetc(f)) != '\n') /* skip first line */;