nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust checks if stack has enough space

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1995-02-10 10:51:29 -02:00
parent 0761c4c036
commit 2043a0ca30
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
opcode.c
View File

@@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** TecCGraf - PUC-Rio
*/ */
char *rcs_opcode="$Id: opcode.c,v 3.33 1995/02/02 20:05:37 roberto Exp roberto $"; char *rcs_opcode="$Id: opcode.c,v 3.34 1995/02/06 19:35:09 roberto Exp roberto $";
#include <setjmp.h> #include <setjmp.h>
#include <stdlib.h> #include <stdlib.h>
@@ -184,7 +184,9 @@ static int lua_tostring (Object *obj)
*/ */
static void adjust_top (StkId newtop) static void adjust_top (StkId newtop)
{ {
Object *nt = stack+newtop; Object *nt;
lua_checkstack(newtop);
nt = stack+newtop;
while (top < nt) tag(top++) = LUA_T_NIL; while (top < nt) tag(top++) = LUA_T_NIL;
top = nt; /* top could be bigger than newtop */ top = nt; /* top could be bigger than newtop */
} }