From 1c2501fad4de5a06407500587751d71f7331a872 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 13 Feb 2001 14:52:01 -0200
Subject: tests for string alignment
---
ltests.c | 32 +++++++++++++++++++++++---------
1 file changed, 23 insertions(+), 9 deletions(-)
diff --git a/ltests.c b/ltests.c
index 4aa95d00..d9861d49 100644
--- a/ltests.c
+++ b/ltests.c
@@ -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
** 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) {
lua_newtable(L);
@@ -352,7 +359,7 @@ static int newuserdata (lua_State *L) {
int tag = luaL_check_int(L, 2);
int res = lua_pushuserdata(L, (void *)luaL_check_int(L, 1));
if (tag) lua_settag(L, tag);
- lua_pushnumber(L, res);
+ pushbool(L, res);
return 2;
}
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) {
lua_State *L1 = lua_open(NULL, luaL_check_int(L, 1));
if (L1) {
@@ -446,12 +465,6 @@ static int settagmethod (lua_State *L) {
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) {
return pushbool(L, lua_equal(L, 1, 2));
}
@@ -540,7 +553,6 @@ static int testC (lua_State *L) {
}
else if EQ("tostring") {
const char *s = lua_tostring(L, getnum);
- lua_assert((unsigned long)s % 4 == 0); /* check alignment */
lua_pushstring(L, s);
}
else if EQ("tonumber") {
@@ -643,6 +655,8 @@ static const struct luaL_reg tests_funcs[] = {
{"ref", tref},
{"getref", getref},
{"unref", unref},
+ {"d2s", d2s},
+ {"s2d", s2d},
{"newuserdata", newuserdata},
{"udataval", udataval},
{"newtag", newtag},
--
cgit v1.2.3-55-g6feb