diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1996-09-24 14:30:28 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1996-09-24 14:30:28 -0300 |
commit | 6d383202dca4535866a339f17202e40b2775d160 (patch) | |
tree | b0f1eb749339f1ba917493afbc99a31a72ad7b29 /opcode.c | |
parent | 7b8166d7b3949839bffcc15e167269e4a6d4660c (diff) | |
download | lua-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.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -3,7 +3,7 @@ | |||
3 | ** TecCGraf - PUC-Rio | 3 | ** TecCGraf - PUC-Rio |
4 | */ | 4 | */ |
5 | 5 | ||
6 | char *rcs_opcode="$Id: opcode.c,v 3.73 1996/09/02 21:57:51 roberto Exp roberto $"; | 6 | char *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 | ||