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

small corrections

This commit is contained in:
Roberto Ierusalimschy 1994-11-01 15:54:31 -02:00
parent fb23cd2e26
commit 41e4c5798e
3 changed files with 6 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hash.c
View File

@ -3,13 +3,11 @@
** hash manager for lua ** hash manager for lua
*/ */
char *rcs_hash="$Id: hash.c,v 2.8 1994/10/11 12:59:49 celes Exp $"; char *rcs_hash="$Id: hash.c,v 2.9 1994/10/17 19:03:23 celes Exp roberto $";
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include "mm.h"
#include "opcode.h" #include "opcode.h"
#include "hash.h" #include "hash.h"
#include "inout.h" #include "inout.h"

10
lua.h
View File

@ -2,17 +2,13 @@
** LUA - Linguagem para Usuarios de Aplicacao ** LUA - Linguagem para Usuarios de Aplicacao
** Grupo de Tecnologia em Computacao Grafica ** Grupo de Tecnologia em Computacao Grafica
** TeCGraf - PUC-Rio ** TeCGraf - PUC-Rio
** $Id: lua.h,v 1.3 1994/08/17 15:05:08 celes Exp celes $ ** $Id: lua.h,v 1.4 1994/08/24 15:29:02 celes Exp roberto $
*/ */
#ifndef lua_h #ifndef lua_h
#define lua_h #define lua_h
#ifdef __cplusplus
extern "C"
{
#endif
typedef void (*lua_CFunction) (void); typedef void (*lua_CFunction) (void);
typedef struct Object *lua_Object; typedef struct Object *lua_Object;
@ -61,8 +57,4 @@ int lua_isfunction (lua_Object object);
int lua_iscfunction (lua_Object object); int lua_iscfunction (lua_Object object);
int lua_isuserdata (lua_Object object); int lua_isuserdata (lua_Object object);
#ifdef __cplusplus
}
#endif
#endif #endif

10
opcode.c
View File

@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** TecCGraf - PUC-Rio
*/ */
char *rcs_opcode="$Id: opcode.c,v 2.9 1994/10/11 14:38:17 celes Exp $"; char *rcs_opcode="$Id: opcode.c,v 2.10 1994/10/17 19:00:40 celes Exp roberto $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@ -13,8 +13,6 @@ char *rcs_opcode="$Id: opcode.c,v 2.9 1994/10/11 14:38:17 celes Exp $";
#include <floatingpoint.h> #include <floatingpoint.h>
#endif #endif
#include "mm.h"
#include "opcode.h" #include "opcode.h"
#include "hash.h" #include "hash.h"
#include "inout.h" #include "inout.h"
@ -76,7 +74,7 @@ static int lua_checkstack (Word n)
/* /*
** Concatenate two given string, creating a mark space at the beginning. ** Concatenate two given strings, creating a mark space at the beginning.
** Return the new string pointer. ** Return the new string pointer.
*/ */
static char *lua_strconc (char *l, char *r) static char *lua_strconc (char *l, char *r)
@ -119,7 +117,7 @@ static int lua_tonumber (Object *obj)
} }
/* /*
** Test if is possible to convert an object to a number object. ** Test if it is possible to convert an object to a number object.
** If possible, return the converted object, otherwise return nil object. ** If possible, return the converted object, otherwise return nil object.
*/ */
static Object *lua_convtonumber (Object *obj) static Object *lua_convtonumber (Object *obj)
@ -648,7 +646,7 @@ int lua_execute (Byte *pc)
/* /*
** Function to indexed the values on the top ** Function to index the values on the top
*/ */
int lua_pushsubscript (void) int lua_pushsubscript (void)
{ {