diff options
-rw-r--r-- | lmem.h | 5 | ||||
-rw-r--r-- | lvm.c | 4 | ||||
-rw-r--r-- | lvm.h | 8 |
3 files changed, 10 insertions, 7 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lmem.h,v 1.31 2005/04/25 19:24:10 roberto Exp roberto $ | 2 | ** $Id: lmem.h,v 1.32 2006/09/14 18:42:28 roberto Exp roberto $ |
3 | ** Interface to Memory Manager | 3 | ** Interface to Memory Manager |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -37,10 +37,11 @@ | |||
37 | #define luaM_reallocvector(L, v,oldn,n,t) \ | 37 | #define luaM_reallocvector(L, v,oldn,n,t) \ |
38 | ((v)=cast(t *, luaM_reallocv(L, v, oldn, n, sizeof(t)))) | 38 | ((v)=cast(t *, luaM_reallocv(L, v, oldn, n, sizeof(t)))) |
39 | 39 | ||
40 | LUAI_FUNC void *luaM_toobig (lua_State *L); | ||
40 | 41 | ||
42 | /* not to be called directly */ | ||
41 | LUAI_FUNC void *luaM_realloc_ (lua_State *L, void *block, size_t oldsize, | 43 | LUAI_FUNC void *luaM_realloc_ (lua_State *L, void *block, size_t oldsize, |
42 | size_t size); | 44 | size_t size); |
43 | LUAI_FUNC void *luaM_toobig (lua_State *L); | ||
44 | LUAI_FUNC void *luaM_growaux_ (lua_State *L, void *block, int *size, | 45 | LUAI_FUNC void *luaM_growaux_ (lua_State *L, void *block, int *size, |
45 | size_t size_elem, int limit, | 46 | size_t size_elem, int limit, |
46 | const char *what); | 47 | const char *what); |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.c,v 2.68 2006/09/19 13:57:50 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 2.69 2006/09/19 14:06:45 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 | */ |
@@ -247,7 +247,7 @@ static int lessequal (lua_State *L, const TValue *l, const TValue *r) { | |||
247 | } | 247 | } |
248 | 248 | ||
249 | 249 | ||
250 | int luaV_equalval (lua_State *L, const TValue *t1, const TValue *t2) { | 250 | int luaV_equalval_ (lua_State *L, const TValue *t1, const TValue *t2) { |
251 | const TValue *tm; | 251 | const TValue *tm; |
252 | lua_assert(ttype(t1) == ttype(t2)); | 252 | lua_assert(ttype(t1) == ttype(t2)); |
253 | switch (ttype(t1)) { | 253 | switch (ttype(t1)) { |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.h,v 2.4 2005/04/25 19:24:10 roberto Exp roberto $ | 2 | ** $Id: lvm.h,v 2.5 2005/08/22 18:54:49 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 | */ |
@@ -19,11 +19,13 @@ | |||
19 | (((o) = luaV_tonumber(o,n)) != NULL)) | 19 | (((o) = luaV_tonumber(o,n)) != NULL)) |
20 | 20 | ||
21 | #define equalobj(L,o1,o2) \ | 21 | #define equalobj(L,o1,o2) \ |
22 | (ttype(o1) == ttype(o2) && luaV_equalval(L, o1, o2)) | 22 | (ttype(o1) == ttype(o2) && luaV_equalval_(L, o1, o2)) |
23 | 23 | ||
24 | 24 | ||
25 | /* not to called directly */ | ||
26 | LUAI_FUNC int luaV_equalval_ (lua_State *L, const TValue *t1, const TValue *t2); | ||
27 | |||
25 | LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r); | 28 | LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r); |
26 | LUAI_FUNC int luaV_equalval (lua_State *L, const TValue *t1, const TValue *t2); | ||
27 | LUAI_FUNC const TValue *luaV_tonumber (const TValue *obj, TValue *n); | 29 | LUAI_FUNC const TValue *luaV_tonumber (const TValue *obj, TValue *n); |
28 | LUAI_FUNC int luaV_tostring (lua_State *L, StkId obj); | 30 | LUAI_FUNC int luaV_tostring (lua_State *L, StkId obj); |
29 | LUAI_FUNC void luaV_gettable (lua_State *L, const TValue *t, TValue *key, | 31 | LUAI_FUNC void luaV_gettable (lua_State *L, const TValue *t, TValue *key, |