summaryrefslogtreecommitdiff
path: root/ldo.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2005-05-31 11:25:18 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2005-05-31 11:25:18 -0300
commit90de38bf1f85714526c30e42b670ca997ec45827 (patch)
treec9dbf61d741ddd2ededcba4c1a4da99211c28f7a /ldo.c
parente8a7ecb982effdfc1148098b288c6ac7130f756e (diff)
downloadlua-90de38bf1f85714526c30e42b670ca997ec45827.tar.gz
lua-90de38bf1f85714526c30e42b670ca997ec45827.tar.bz2
lua-90de38bf1f85714526c30e42b670ca997ec45827.zip
warnings in VS .Net
Diffstat (limited to 'ldo.c')
-rw-r--r--ldo.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/ldo.c b/ldo.c
index d9e5a889..58f59bae 100644
--- a/ldo.c
+++ b/ldo.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldo.c,v 2.23 2005/05/03 19:01:17 roberto Exp roberto $ 2** $Id: ldo.c,v 2.24 2005/05/20 19:09:05 roberto Exp roberto $
3** Stack and Call structure of Lua 3** Stack and Call structure of Lua
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -97,7 +97,7 @@ int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud) {
97static void restore_stack_limit (lua_State *L) { 97static void restore_stack_limit (lua_State *L) {
98 lua_assert(L->stack_last - L->stack == L->stacksize - EXTRA_STACK - 1); 98 lua_assert(L->stack_last - L->stack == L->stacksize - EXTRA_STACK - 1);
99 if (L->size_ci > LUAI_MAXCALLS) { /* there was an overflow? */ 99 if (L->size_ci > LUAI_MAXCALLS) { /* there was an overflow? */
100 int inuse = (L->ci - L->base_ci); 100 int inuse = cast(int, L->ci - L->base_ci);
101 if (inuse + 1 < LUAI_MAXCALLS) /* can `undo' overflow? */ 101 if (inuse + 1 < LUAI_MAXCALLS) /* can `undo' overflow? */
102 luaD_reallocCI(L, LUAI_MAXCALLS); 102 luaD_reallocCI(L, LUAI_MAXCALLS);
103 } 103 }
@@ -173,7 +173,7 @@ void luaD_callhook (lua_State *L, int event, int line) {
173 if (event == LUA_HOOKTAILRET) 173 if (event == LUA_HOOKTAILRET)
174 ar.i_ci = 0; /* tail call; no debug information about it */ 174 ar.i_ci = 0; /* tail call; no debug information about it */
175 else 175 else
176 ar.i_ci = L->ci - L->base_ci; 176 ar.i_ci = cast(int, L->ci - L->base_ci);
177 luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */ 177 luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */
178 L->ci->top = L->top + LUA_MINSTACK; 178 L->ci->top = L->top + LUA_MINSTACK;
179 lua_assert(L->ci->top <= L->stack_last); 179 lua_assert(L->ci->top <= L->stack_last);
@@ -260,7 +260,7 @@ int luaD_precall (lua_State *L, StkId func, int nresults) {
260 StkId st, base; 260 StkId st, base;
261 Proto *p = cl->p; 261 Proto *p = cl->p;
262 if (p->is_vararg) { /* varargs? */ 262 if (p->is_vararg) { /* varargs? */
263 int nargs = L->top - restorestack(L, funcr) - 1; 263 int nargs = cast(int, L->top - restorestack(L, funcr)) - 1;
264 luaD_checkstack(L, p->maxstacksize + nargs); 264 luaD_checkstack(L, p->maxstacksize + nargs);
265 base = adjust_varargs(L, p->numparams, nargs, p->is_vararg); 265 base = adjust_varargs(L, p->numparams, nargs, p->is_vararg);
266 func = restorestack(L, funcr); 266 func = restorestack(L, funcr);
@@ -380,7 +380,7 @@ static void resume (lua_State *L, void *ud) {
380 } /* else yielded inside a hook: just continue its execution */ 380 } /* else yielded inside a hook: just continue its execution */
381 } 381 }
382 L->status = 0; 382 L->status = 0;
383 firstResult = luaV_execute(L, L->ci - L->base_ci); 383 firstResult = luaV_execute(L, cast(int, L->ci - L->base_ci));
384 if (firstResult != NULL) { /* return? */ 384 if (firstResult != NULL) { /* return? */
385 luaD_poscall(L, LUA_MULTRET, firstResult); /* finalize this coroutine */ 385 luaD_poscall(L, LUA_MULTRET, firstResult); /* finalize this coroutine */
386 } 386 }