aboutsummaryrefslogtreecommitdiff
path: root/opcode.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1996-09-24 14:30:28 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1996-09-24 14:30:28 -0300
commit6d383202dca4535866a339f17202e40b2775d160 (patch)
treeb0f1eb749339f1ba917493afbc99a31a72ad7b29 /opcode.c
parent7b8166d7b3949839bffcc15e167269e4a6d4660c (diff)
downloadlua-6d383202dca4535866a339f17202e40b2775d160.tar.gz
lua-6d383202dca4535866a339f17202e40b2775d160.tar.bz2
lua-6d383202dca4535866a339f17202e40b2775d160.zip
"dofile" and "dostring" may return values.
Diffstat (limited to 'opcode.c')
-rw-r--r--opcode.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/opcode.c b/opcode.c
index 7af5d125..93efbab2 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.73 1996/09/02 21:57:51 roberto Exp roberto $"; 6char *rcs_opcode="$Id: opcode.c,v 3.74 1996/09/20 12:51:16 roberto Exp roberto $";
7 7
8#include <setjmp.h> 8#include <setjmp.h>
9#include <stdio.h> 9#include <stdio.h>
@@ -481,8 +481,7 @@ int luaI_dorun (TFunc *tf)
481 adjustC(1); /* one slot for the pseudo-function */ 481 adjustC(1); /* one slot for the pseudo-function */
482 stack[CLS_current.base].tag = LUA_T_FUNCTION; 482 stack[CLS_current.base].tag = LUA_T_FUNCTION;
483 stack[CLS_current.base].value.tf = tf; 483 stack[CLS_current.base].value.tf = tf;
484 status = do_protectedrun(0); 484 status = do_protectedrun(MULT_RET);
485 adjustC(0);
486 return status; 485 return status;
487} 486}
488 487