default PAUSE should be 200 (differences may be corrected in

internal multiplers)
+ check for unbilt stack equal the one used by lgc.c
This commit is contained in:
Roberto Ierusalimschy 2010-04-30 11:22:23 -03:00
parent 23001d8607
commit 0062db1e06
1 changed files with 6 additions and 6 deletions

View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstate.c,v 2.82 2010/04/19 17:40:13 roberto Exp roberto $ ** $Id: lstate.c,v 2.83 2010/04/29 17:35:10 roberto Exp roberto $
** Global State ** Global State
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -26,7 +26,7 @@
#if !defined(LUAI_GCPAUSE) #if !defined(LUAI_GCPAUSE)
#define LUAI_GCPAUSE 162 /* 162% */ #define LUAI_GCPAUSE 200 /* 200% */
#endif #endif
#if !defined(LUAI_GCMUL) #if !defined(LUAI_GCMUL)
@ -110,10 +110,10 @@ static void stack_init (lua_State *L1, lua_State *L) {
static void freestack (lua_State *L) { static void freestack (lua_State *L) {
if (L->ci != NULL) { /* is there a 'ci' list? */ if (L->stack == NULL)
L->ci = &L->base_ci; /* free the entire list */ return; /* stack not completely built yet */
luaE_freeCI(L); L->ci = &L->base_ci; /* free the entire 'ci' list */
} luaE_freeCI(L);
luaM_freearray(L, L->stack, L->stacksize); /* free stack array */ luaM_freearray(L, L->stack, L->stacksize); /* free stack array */
} }