diff options
Diffstat (limited to 'lvm.c')
| -rw-r--r-- | lvm.c | 14 |
1 files changed, 7 insertions, 7 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lvm.c,v 1.118 2000/06/27 19:00:36 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 1.119 2000/06/28 20:20:36 roberto Exp roberto $ |
| 3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -384,7 +384,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) { | |||
| 384 | 384 | ||
| 385 | case OP_PUSHNIL: { | 385 | case OP_PUSHNIL: { |
| 386 | int n = GETARG_U(i); | 386 | int n = GETARG_U(i); |
| 387 | LUA_ASSERT(L, n>0, "invalid argument"); | 387 | LUA_ASSERT(n>0, "invalid argument"); |
| 388 | do { | 388 | do { |
| 389 | ttype(top++) = TAG_NIL; | 389 | ttype(top++) = TAG_NIL; |
| 390 | } while (--n > 0); | 390 | } while (--n > 0); |
| @@ -648,8 +648,8 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) { | |||
| 648 | break; | 648 | break; |
| 649 | 649 | ||
| 650 | case OP_FORLOOP: { | 650 | case OP_FORLOOP: { |
| 651 | LUA_ASSERT(L, ttype(top-1) == TAG_NUMBER, "invalid step"); | 651 | LUA_ASSERT(ttype(top-1) == TAG_NUMBER, "invalid step"); |
| 652 | LUA_ASSERT(L, ttype(top-2) == TAG_NUMBER, "invalid limit"); | 652 | LUA_ASSERT(ttype(top-2) == TAG_NUMBER, "invalid limit"); |
| 653 | if (ttype(top-3) != TAG_NUMBER) | 653 | if (ttype(top-3) != TAG_NUMBER) |
| 654 | lua_error(L, "`for' index must be a number"); | 654 | lua_error(L, "`for' index must be a number"); |
| 655 | nvalue(top-3) += nvalue(top-1); /* increment index */ | 655 | nvalue(top-3) += nvalue(top-1); /* increment index */ |
| @@ -675,7 +675,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) { | |||
| 675 | } | 675 | } |
| 676 | else { | 676 | else { |
| 677 | top += 2; /* index,value */ | 677 | top += 2; /* index,value */ |
| 678 | LUA_ASSERT(L, top==L->top, "bad top"); | 678 | LUA_ASSERT(top==L->top, "bad top"); |
| 679 | } | 679 | } |
| 680 | break; | 680 | break; |
| 681 | } | 681 | } |
| @@ -683,8 +683,8 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) { | |||
| 683 | case OP_LFORLOOP: { | 683 | case OP_LFORLOOP: { |
| 684 | int n; | 684 | int n; |
| 685 | top -= 2; /* remove old index,value */ | 685 | top -= 2; /* remove old index,value */ |
| 686 | LUA_ASSERT(L, ttype(top-2) == TAG_TABLE, "invalid table"); | 686 | LUA_ASSERT(ttype(top-2) == TAG_TABLE, "invalid table"); |
| 687 | LUA_ASSERT(L, ttype(top-1) == TAG_NUMBER, "invalid counter"); | 687 | LUA_ASSERT(ttype(top-1) == TAG_NUMBER, "invalid counter"); |
| 688 | L->top = top; | 688 | L->top = top; |
| 689 | n = luaA_next(L, hvalue(top-2), (int)nvalue(top-1)); | 689 | n = luaA_next(L, hvalue(top-2), (int)nvalue(top-1)); |
| 690 | if (n == 0) /* end loop? */ | 690 | if (n == 0) /* end loop? */ |
