diff options
-rw-r--r-- | lcode.c | 16 | ||||
-rw-r--r-- | ltests.c | 8 |
2 files changed, 12 insertions, 12 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lcode.c,v 1.119 2003/08/27 20:58:52 roberto Exp $ | 2 | ** $Id: lcode.c,v 1.119 2003/08/27 21:01:44 roberto Exp roberto $ |
3 | ** Code generator for Lua | 3 | ** Code generator for Lua |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -418,25 +418,25 @@ int luaK_exp2RK (FuncState *fs, expdesc *e) { | |||
418 | } | 418 | } |
419 | 419 | ||
420 | 420 | ||
421 | void luaK_storevar (FuncState *fs, expdesc *var, expdesc *exp) { | 421 | void luaK_storevar (FuncState *fs, expdesc *var, expdesc *ex) { |
422 | switch (var->k) { | 422 | switch (var->k) { |
423 | case VLOCAL: { | 423 | case VLOCAL: { |
424 | freeexp(fs, exp); | 424 | freeexp(fs, ex); |
425 | luaK_exp2reg(fs, exp, var->info); | 425 | luaK_exp2reg(fs, ex, var->info); |
426 | return; | 426 | return; |
427 | } | 427 | } |
428 | case VUPVAL: { | 428 | case VUPVAL: { |
429 | int e = luaK_exp2anyreg(fs, exp); | 429 | int e = luaK_exp2anyreg(fs, ex); |
430 | luaK_codeABC(fs, OP_SETUPVAL, e, var->info, 0); | 430 | luaK_codeABC(fs, OP_SETUPVAL, e, var->info, 0); |
431 | break; | 431 | break; |
432 | } | 432 | } |
433 | case VGLOBAL: { | 433 | case VGLOBAL: { |
434 | int e = luaK_exp2anyreg(fs, exp); | 434 | int e = luaK_exp2anyreg(fs, ex); |
435 | luaK_codeABx(fs, OP_SETGLOBAL, e, var->info); | 435 | luaK_codeABx(fs, OP_SETGLOBAL, e, var->info); |
436 | break; | 436 | break; |
437 | } | 437 | } |
438 | case VINDEXED: { | 438 | case VINDEXED: { |
439 | int e = luaK_exp2RK(fs, exp); | 439 | int e = luaK_exp2RK(fs, ex); |
440 | luaK_codeABC(fs, OP_SETTABLE, var->info, var->aux, e); | 440 | luaK_codeABC(fs, OP_SETTABLE, var->info, var->aux, e); |
441 | break; | 441 | break; |
442 | } | 442 | } |
@@ -445,7 +445,7 @@ void luaK_storevar (FuncState *fs, expdesc *var, expdesc *exp) { | |||
445 | break; | 445 | break; |
446 | } | 446 | } |
447 | } | 447 | } |
448 | freeexp(fs, exp); | 448 | freeexp(fs, ex); |
449 | } | 449 | } |
450 | 450 | ||
451 | 451 | ||
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ltests.c,v 1.167 2003/10/20 12:25:23 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 1.168 2003/11/05 11:59:14 roberto Exp roberto $ |
3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -354,21 +354,21 @@ static int tref (lua_State *L) { | |||
354 | luaL_checkany(L, 1); | 354 | luaL_checkany(L, 1); |
355 | lua_pushvalue(L, 1); | 355 | lua_pushvalue(L, 1); |
356 | lua_pushinteger(L, lua_ref(L, lock)); | 356 | lua_pushinteger(L, lua_ref(L, lock)); |
357 | assert(lua_gettop(L) == level+1); /* +1 for result */ | 357 | lua_assert(lua_gettop(L) == level+1); /* +1 for result */ |
358 | return 1; | 358 | return 1; |
359 | } | 359 | } |
360 | 360 | ||
361 | static int getref (lua_State *L) { | 361 | static int getref (lua_State *L) { |
362 | int level = lua_gettop(L); | 362 | int level = lua_gettop(L); |
363 | lua_getref(L, luaL_checkint(L, 1)); | 363 | lua_getref(L, luaL_checkint(L, 1)); |
364 | assert(lua_gettop(L) == level+1); | 364 | lua_assert(lua_gettop(L) == level+1); |
365 | return 1; | 365 | return 1; |
366 | } | 366 | } |
367 | 367 | ||
368 | static int unref (lua_State *L) { | 368 | static int unref (lua_State *L) { |
369 | int level = lua_gettop(L); | 369 | int level = lua_gettop(L); |
370 | lua_unref(L, luaL_checkint(L, 1)); | 370 | lua_unref(L, luaL_checkint(L, 1)); |
371 | assert(lua_gettop(L) == level); | 371 | lua_assert(lua_gettop(L) == level); |
372 | return 0; | 372 | return 0; |
373 | } | 373 | } |
374 | 374 | ||