nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

warnings/details

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2001-07-21 21:59:36 -03:00
parent a94cba4b88
commit 45b173cbf8
5 changed files with 10 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lapi.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 1.147 2001/06/26 13:20:45 roberto Exp roberto $ ** $Id: lapi.c,v 1.148 2001/07/12 18:11:58 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -489,7 +489,7 @@ LUA_API int lua_ref (lua_State *L, int lock) {
lua_rawseti(L, -2, ref); lua_rawseti(L, -2, ref);
lua_pop(L, 1); /* remove registry */ lua_pop(L, 1); /* remove registry */
} }
lua_pushliteral(L, "n"); lua_pushliteral(L, l_s("n"));
lua_pushnumber(L, ref); lua_pushnumber(L, ref);
lua_settable(L, -3); lua_settable(L, -3);
lua_pop(L, 2); lua_pop(L, 2);

4
lauxlib.h
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lauxlib.h,v 1.34 2001/02/23 17:17:25 roberto Exp roberto $ ** $Id: lauxlib.h,v 1.35 2001/04/06 21:17:37 roberto Exp roberto $
** Auxiliary functions for building Lua libraries ** Auxiliary functions for building Lua libraries
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -85,7 +85,7 @@ typedef struct luaL_Buffer {
} luaL_Buffer; } luaL_Buffer;
#define luaL_putchar(B,c) \ #define luaL_putchar(B,c) \
((void)((B)->p < &(B)->buffer[LUAL_BUFFERSIZE] || luaL_prepbuffer(B)), \ ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \
(*(B)->p++ = (lua_char)(c))) (*(B)->p++ = (lua_char)(c)))
#define luaL_addsize(B,n) ((B)->p += (n)) #define luaL_addsize(B,n) ((B)->p += (n))

12
liolib.c
View File

@@ -1,11 +1,10 @@
/* /*
** $Id: liolib.c,v 1.119 2001/07/12 18:11:58 roberto Exp roberto $ ** $Id: liolib.c,v 1.120 2001/07/16 18:48:31 roberto Exp roberto $
** Standard I/O (and system) library ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
#include <ctype.h>
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#include <string.h> #include <string.h>
@@ -25,13 +24,6 @@
#endif #endif
#ifndef l_realloc
#define l_malloc(s) malloc(s)
#define l_realloc(b,os,s) realloc(b, s)
#define l_free(b, os) free(b)
#endif
#ifdef POPEN #ifdef POPEN
/* FILE *popen(); /* FILE *popen();
@@ -330,7 +322,7 @@ static int io_read (lua_State *L) {
success = 1; /* always success */ success = 1; /* always success */
break; break;
case l_c('w'): /* word */ case l_c('w'): /* word */
lua_error(L, "option `*w' is deprecated"); lua_error(L, l_s("option `*w' is deprecated"));
break; break;
case l_c('u'): { /* read until */ case l_c('u'): { /* read until */
size_t pl = lua_strlen(L, n) - 2; size_t pl = lua_strlen(L, n) - 2;

4
llex.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: llex.c,v 1.87 2001/06/15 20:36:57 roberto Exp roberto $ ** $Id: llex.c,v 1.88 2001/06/20 21:07:57 roberto Exp roberto $
** Lexical Analyzer ** Lexical Analyzer
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -377,7 +377,7 @@ int luaX_lex (LexState *LS, SemInfo *seminfo) {
return TK_NAME; return TK_NAME;
} }
else { else {
int c = LS->current; l_charint c = LS->current;
if (iscntrl(c)) if (iscntrl(c))
luaX_invalidchar(LS, c); luaX_invalidchar(LS, c);
next(LS); next(LS);

4
llex.h
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: llex.h,v 1.35 2001/03/06 14:46:54 roberto Exp roberto $ ** $Id: llex.h,v 1.36 2001/06/20 21:07:57 roberto Exp roberto $
** Lexical Analyzer ** Lexical Analyzer
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -49,7 +49,7 @@ typedef struct Token {
typedef struct LexState { typedef struct LexState {
int current; /* current character */ l_charint current; /* current character */
Token t; /* current token */ Token t; /* current token */
Token lookahead; /* look ahead token */ Token lookahead; /* look ahead token */
struct FuncState *fs; /* `FuncState' is private to the parser */ struct FuncState *fs; /* `FuncState' is private to the parser */