diff options
author | Reuben Thomas <rrt@sc3d.org> | 2013-01-07 03:19:27 +0000 |
---|---|---|
committer | Reuben Thomas <rrt@sc3d.org> | 2013-01-07 03:19:27 +0000 |
commit | 841f8d1fb4e96fbe5e845e2860ef1781cfe0329f (patch) | |
tree | 39a2ede682cb824632f093b75ec008bd5c9b1be6 /src | |
parent | eadf06294162f3108f29aa07bb540365539a9f93 (diff) | |
download | lrexlib-841f8d1fb4e96fbe5e845e2860ef1781cfe0329f.tar.gz |
common.c: pass correct first argument to lua_Alloc function (fixes issue #3)
Diffstat (limited to 'src')
-rw-r--r-- | src/common.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/common.c b/src/common.c index fabbd80..6e6ff8d 100644 --- a/src/common.c +++ b/src/common.c @@ -30,7 +30,7 @@ void set_int_field (lua_State *L, const char* field, int val) void *Lmalloc(lua_State *L, size_t size) { void *ud; lua_Alloc lalloc = lua_getallocf(L, &ud); - void *p = lalloc(L, NULL, 0, size); + void *p = lalloc(ud, NULL, LUA_TUSERDATA, size); if(p == NULL) luaL_error(L, "malloc failed"); return p; @@ -134,7 +134,7 @@ void buffer_init (TBuffer *buf, size_t sz, lua_State *L, TFreeList *fl) { void buffer_free (TBuffer *buf) { void *ud; lua_Alloc lalloc = lua_getallocf(buf->L, &ud); - lalloc (buf->L, buf->arr, buf->size, 0); + lalloc (ud, buf->arr, buf->size, 0); } void buffer_clear (TBuffer *buf) { @@ -154,7 +154,7 @@ void buffer_addlstring (TBuffer *buf, const void *src, size_t sz) { if (newtop > buf->size) { void *ud; lua_Alloc lalloc = lua_getallocf(buf->L, &ud); - char *p = (char*) lalloc (buf->L, buf->arr, buf->size, 2 * newtop); /* 2x expansion */ + char *p = (char*) lalloc (ud, buf->arr, buf->size, 2 * newtop); /* 2x expansion */ if (!p) { freelist_free (buf->freelist); luaL_error (buf->L, "realloc failed"); |