small bug correction

This commit is contained in:
Roberto Ierusalimschy 1994-11-30 19:20:37 -02:00
parent 0f580df73c
commit e742d54253
1 changed files with 2 additions and 2 deletions

View File

@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** TecCGraf - PUC-Rio
*/ */
char *rcs_opcode="$Id: opcode.c,v 3.21 1994/11/22 16:02:53 roberto Exp roberto $"; char *rcs_opcode="$Id: opcode.c,v 3.22 1994/11/23 14:31:11 roberto Stab roberto $";
#include <setjmp.h> #include <setjmp.h>
#include <stdio.h> #include <stdio.h>
@ -485,7 +485,7 @@ void lua_endblock (void)
*/ */
int lua_storesubscript (void) int lua_storesubscript (void)
{ {
static Byte code[2] = {STOREINDEXED, RETCODE0}; static Byte code[2] = {STOREINDEXED0, RETCODE0};
Object func; Object func;
tag(&func) = LUA_T_FUNCTION; bvalue(&func) = code; tag(&func) = LUA_T_FUNCTION; bvalue(&func) = code;
adjustC(3); adjustC(3);