aboutsummaryrefslogtreecommitdiff
path: root/opcode.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1996-01-23 16:43:07 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1996-01-23 16:43:07 -0200
commit445872a6e2ee7a7ae030a8e2f8a5526f95f08f4c (patch)
tree54d477072fc7282769d6c48349c45bd9d91411d0 /opcode.c
parent3681d025accc24c107da07c36f701596fa20806f (diff)
downloadlua-445872a6e2ee7a7ae030a8e2f8a5526f95f08f4c.tar.gz
lua-445872a6e2ee7a7ae030a8e2f8a5526f95f08f4c.tar.bz2
lua-445872a6e2ee7a7ae030a8e2f8a5526f95f08f4c.zip
"dofile" does not issue a warning when unable to open the file,
but only returns an error code.
Diffstat (limited to 'opcode.c')
-rw-r--r--opcode.c8
1 files changed, 2 insertions, 6 deletions
diff --git a/opcode.c b/opcode.c
index d946df96..2708f949 100644
--- a/opcode.c
+++ b/opcode.c
@@ -3,7 +3,7 @@
3** TecCGraf - PUC-Rio 3** TecCGraf - PUC-Rio
4*/ 4*/
5 5
6char *rcs_opcode="$Id: opcode.c,v 3.50 1995/11/16 20:46:24 roberto Exp $"; 6char *rcs_opcode="$Id: opcode.c,v 3.52 1996/01/09 20:22:44 roberto Exp roberto $";
7 7
8#include <setjmp.h> 8#include <setjmp.h>
9#include <stdlib.h> 9#include <stdlib.h>
@@ -520,12 +520,8 @@ int lua_call (char *funcname)
520int lua_dofile (char *filename) 520int lua_dofile (char *filename)
521{ 521{
522 int status; 522 int status;
523 char *message = lua_openfile (filename); 523 if (lua_openfile(filename))
524 if (message)
525 {
526 lua_message(message);
527 return 1; 524 return 1;
528 }
529 status = do_protectedmain(); 525 status = do_protectedmain();
530 lua_closefile(); 526 lua_closefile();
531 return status; 527 return status;