lua

A copy of the Lua development repository
Log | Files | Refs | README

commit 541e722360168c78a61b8b79f4cd234252ffb6cb
parent 807ba6301c949cb42bd9390d737938c51dd5784c
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Tue, 23 Dec 1997 17:23:58 -0200

details

Diffstat:
Mlobject.h | 8+++++++-
Mlua.stx | 4++--
Mlvm.c | 6+++---
3 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/lobject.h b/lobject.h @@ -1,5 +1,5 @@ /* -** $Id: lobject.h,v 1.10 1997/11/27 18:25:06 roberto Exp roberto $ +** $Id: lobject.h,v 1.11 1997/12/15 16:17:20 roberto Exp roberto $ ** Type definitions for Lua objects ** See Copyright Notice in lua.h */ @@ -13,10 +13,16 @@ #include <limits.h> + +/* +** "real" is the type "number" of Lua +** GREP LUA_NUMBER to change that +*/ #ifndef real #define real float #endif + #define Byte lua_Byte /* some systems have Byte as a predefined type */ typedef unsigned char Byte; /* unsigned 8 bits */ diff --git a/lua.stx b/lua.stx @@ -1,6 +1,6 @@ %{ /* -** $Id: lua.stx,v 1.24 1997/12/22 17:24:11 roberto Exp roberto $ +** $Id: lua.stx,v 1.25 1997/12/22 20:57:18 roberto Exp roberto $ ** Syntax analizer and code generator ** See Copyright Notice in lua.h */ @@ -95,7 +95,7 @@ void luaY_syntaxerror (char *s, char *token) { if (token[0] == 0) token = "<eof>"; - luaL_verror("%.100s;\n> last token read: \"%.50s\" at line %d in file %.50s", + luaL_verror("%.100s;\n last token read: \"%.50s\" at line %d in file %.50s", s, token, L->lexstate->linenumber, L->mainState->f->fileName->str); } diff --git a/lvm.c b/lvm.c @@ -1,5 +1,5 @@ /* -** $Id: lvm.c,v 1.17 1997/12/15 16:17:20 roberto Exp roberto $ +** $Id: lvm.c,v 1.18 1997/12/17 20:48:58 roberto Exp roberto $ ** Lua virtual machine ** See Copyright Notice in lua.h */ @@ -43,7 +43,7 @@ static TaggedString *strconc (char *l, char *r) int luaV_tonumber (TObject *obj) -{ +{ /* LUA_NUMBER */ double t; char c; if (ttype(obj) != LUA_T_STRING) @@ -59,7 +59,7 @@ int luaV_tonumber (TObject *obj) int luaV_tostring (TObject *obj) -{ +{ /* LUA_NUMBER */ if (ttype(obj) != LUA_T_NUMBER) return 1; else {