diff options
Diffstat (limited to 'lvm.c')
-rw-r--r-- | lvm.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.c,v 1.232 2002/05/15 18:57:44 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 1.233 2002/05/27 20:35:40 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 | */ |
@@ -239,7 +239,7 @@ int luaV_cmp (lua_State *L, const TObject *l, const TObject *r, int cond) { | |||
239 | } | 239 | } |
240 | 240 | ||
241 | 241 | ||
242 | void luaV_strconc (lua_State *L, int total, int last) { | 242 | void luaV_concat (lua_State *L, int total, int last) { |
243 | do { | 243 | do { |
244 | StkId top = L->ci->base + last + 1; | 244 | StkId top = L->ci->base + last + 1; |
245 | int n = 2; /* number of elements handled in this pass (at least 2) */ | 245 | int n = 2; /* number of elements handled in this pass (at least 2) */ |
@@ -443,7 +443,7 @@ StkId luaV_execute (lua_State *L) { | |||
443 | case OP_CONCAT: { | 443 | case OP_CONCAT: { |
444 | int b = GETARG_B(i); | 444 | int b = GETARG_B(i); |
445 | int c = GETARG_C(i); | 445 | int c = GETARG_C(i); |
446 | luaV_strconc(L, c-b+1, c); /* may change `base' (and `ra') */ | 446 | luaV_concat(L, c-b+1, c); /* may change `base' (and `ra') */ |
447 | setobj(base+GETARG_A(i), base+b); | 447 | setobj(base+GETARG_A(i), base+b); |
448 | luaV_checkGC(L, base+c+1); | 448 | luaV_checkGC(L, base+c+1); |
449 | break; | 449 | break; |