mirror of https://github.com/rusefi/lua.git
details
This commit is contained in:
parent
807ba6301c
commit
541e722360
|
@ -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 */
|
||||
|
||||
|
|
4
lua.stx
4
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);
|
||||
}
|
||||
|
||||
|
|
6
lvm.c
6
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 {
|
||||
|
|
Loading…
Reference in New Issue