From 541e722360168c78a61b8b79f4cd234252ffb6cb Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 23 Dec 1997 17:24:19 -0200
Subject: details

---
 lobject.h | 8 +++++++-
 lua.stx   | 4 ++--
 lvm.c     | 6 +++---
 3 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/lobject.h b/lobject.h
index 0f4d02fd..659b1c5f 100644
--- 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
index 3eac8519..6e40b7d6 100644
--- 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
index 5e160f71..56a842bc 100644
--- 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 {
-- 
cgit v1.2.3-55-g6feb