rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

tests for string alignment

This commit is contained in:
Roberto Ierusalimschy 2001-02-13 14:52:01 -02:00
parent a4ae1475e3
commit 1c2501fad4
1 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
ltests.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 1.66 2001/02/09 20:22:29 roberto Exp roberto $ ** $Id: ltests.c,v 1.67 2001/02/09 20:29:33 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation ** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -224,6 +224,13 @@ static int listlocals (lua_State *L) {
/* }====================================================== */ /* }====================================================== */
static int pushbool (lua_State *L, int b) {
if (b) lua_pushnumber(L, 1);
else lua_pushnil(L);
return 1;
}
static int get_limits (lua_State *L) { static int get_limits (lua_State *L) {
lua_newtable(L); lua_newtable(L);
@ -352,7 +359,7 @@ static int newuserdata (lua_State *L) {
int tag = luaL_check_int(L, 2); int tag = luaL_check_int(L, 2);
int res = lua_pushuserdata(L, (void *)luaL_check_int(L, 1)); int res = lua_pushuserdata(L, (void *)luaL_check_int(L, 1));
if (tag) lua_settag(L, tag); if (tag) lua_settag(L, tag);
lua_pushnumber(L, res); pushbool(L, res);
return 2; return 2;
} }
else { else {
@ -385,6 +392,18 @@ static int doonnewstack (lua_State *L) {
} }
static int s2d (lua_State *L) {
lua_pushnumber(L, *(double *)luaL_check_string(L, 1));
return 1;
}
static int d2s (lua_State *L) {
double d = luaL_check_number(L, 1);
lua_pushlstring(L, (char *)&d, sizeof(d));
return 1;
}
static int newstate (lua_State *L) { static int newstate (lua_State *L) {
lua_State *L1 = lua_open(NULL, luaL_check_int(L, 1)); lua_State *L1 = lua_open(NULL, luaL_check_int(L, 1));
if (L1) { if (L1) {
@ -446,12 +465,6 @@ static int settagmethod (lua_State *L) {
return 1; return 1;
} }
static int pushbool (lua_State *L, int b) {
if (b) lua_pushnumber(L, 1);
else lua_pushnil(L);
return 1;
}
static int equal (lua_State *L) { static int equal (lua_State *L) {
return pushbool(L, lua_equal(L, 1, 2)); return pushbool(L, lua_equal(L, 1, 2));
} }
@ -540,7 +553,6 @@ static int testC (lua_State *L) {
} }
else if EQ("tostring") { else if EQ("tostring") {
const char *s = lua_tostring(L, getnum); const char *s = lua_tostring(L, getnum);
lua_assert((unsigned long)s % 4 == 0); /* check alignment */
lua_pushstring(L, s); lua_pushstring(L, s);
} }
else if EQ("tonumber") { else if EQ("tonumber") {
@ -643,6 +655,8 @@ static const struct luaL_reg tests_funcs[] = {
{"ref", tref}, {"ref", tref},
{"getref", getref}, {"getref", getref},
{"unref", unref}, {"unref", unref},
{"d2s", d2s},
{"s2d", s2d},
{"newuserdata", newuserdata}, {"newuserdata", newuserdata},
{"udataval", udataval}, {"udataval", udataval},
{"newtag", newtag}, {"newtag", newtag},