summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lbaselib.c4
-rw-r--r--ldblib.c4
-rw-r--r--ldebug.c6
-rw-r--r--lgc.h4
-rw-r--r--linit.c8
-rw-r--r--liolib.c4
-rw-r--r--llex.c6
-rw-r--r--loslib.c4
-rw-r--r--lparser.c4
-rw-r--r--lstrlib.c4
10 files changed, 24 insertions, 24 deletions
diff --git a/lbaselib.c b/lbaselib.c
index bc169563..64a609fd 100644
--- a/lbaselib.c
+++ b/lbaselib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lbaselib.c,v 1.257 2010/12/27 18:00:38 roberto Exp roberto $ 2** $Id: lbaselib.c,v 1.258 2011/01/07 12:41:48 roberto Exp roberto $
3** Basic library 3** Basic library
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -135,7 +135,7 @@ static int luaB_rawequal (lua_State *L) {
135 135
136static int luaB_rawlen (lua_State *L) { 136static int luaB_rawlen (lua_State *L) {
137 int t = lua_type(L, 1); 137 int t = lua_type(L, 1);
138 luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1, 138 luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1,
139 "table or string expected"); 139 "table or string expected");
140 lua_pushinteger(L, lua_rawlen(L, 1)); 140 lua_pushinteger(L, lua_rawlen(L, 1));
141 return 1; 141 return 1;
diff --git a/ldblib.c b/ldblib.c
index 2426f955..ad4c62ca 100644
--- a/ldblib.c
+++ b/ldblib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldblib.c,v 1.127 2010/12/20 17:24:15 roberto Exp roberto $ 2** $Id: ldblib.c,v 1.128 2011/01/10 15:51:19 roberto Exp roberto $
3** Interface from Lua to its debug API 3** Interface from Lua to its debug API
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -253,7 +253,7 @@ static int db_upvaluejoin (lua_State *L) {
253} 253}
254 254
255 255
256#define gethooktable(L) luaL_findtable(L, LUA_REGISTRYINDEX, HOOKKEY); 256#define gethooktable(L) luaL_findtable(L, LUA_REGISTRYINDEX, HOOKKEY);
257 257
258 258
259static void hookf (lua_State *L, lua_Debug *ar) { 259static void hookf (lua_State *L, lua_Debug *ar) {
diff --git a/ldebug.c b/ldebug.c
index cd506ac2..d473de7c 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldebug.c,v 2.74 2010/10/11 20:24:42 roberto Exp roberto $ 2** $Id: ldebug.c,v 2.75 2010/11/30 17:17:51 roberto Exp roberto $
3** Debug Interface 3** Debug Interface
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -325,7 +325,7 @@ static const char *getobjname (lua_State *L, CallInfo *ci, int reg,
325 if (reg == a) { 325 if (reg == a) {
326 int k = GETARG_C(i); /* key index */ 326 int k = GETARG_C(i); /* key index */
327 int t = GETARG_B(i); 327 int t = GETARG_B(i);
328 const char *vn = (op == OP_GETTABLE) /* name of indexed variable */ 328 const char *vn = (op == OP_GETTABLE) /* name of indexed variable */
329 ? luaF_getlocalname(p, t + 1, pc) 329 ? luaF_getlocalname(p, t + 1, pc)
330 : getstr(p->upvalues[t].name); 330 : getstr(p->upvalues[t].name);
331 kname(p, k, a, what, name); 331 kname(p, k, a, what, name);
@@ -468,7 +468,7 @@ void luaG_typeerror (lua_State *L, const TValue *o, const char *op) {
468 const char *kind = NULL; 468 const char *kind = NULL;
469 if (isLua(ci)) { 469 if (isLua(ci)) {
470 kind = getupvalname(ci, o, &name); /* check whether 'o' is an upvalue */ 470 kind = getupvalname(ci, o, &name); /* check whether 'o' is an upvalue */
471 if (!kind && isinstack(ci, o)) /* no? try a register */ 471 if (!kind && isinstack(ci, o)) /* no? try a register */
472 kind = getobjname(L, ci, cast_int(o - ci->u.l.base), &name); 472 kind = getobjname(L, ci, cast_int(o - ci->u.l.base), &name);
473 } 473 }
474 if (kind) 474 if (kind)
diff --git a/lgc.h b/lgc.h
index b0520f36..bf7d7c4c 100644
--- a/lgc.h
+++ b/lgc.h
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lgc.h,v 2.48 2010/12/20 18:17:46 roberto Exp roberto $ 2** $Id: lgc.h,v 2.49 2010/12/29 18:00:23 roberto Exp roberto $
3** Garbage Collector 3** Garbage Collector
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -106,7 +106,7 @@
106 106
107#define luaC_condGC(L,c) \ 107#define luaC_condGC(L,c) \
108 {if (G(L)->GCdebt > 0) {c;}; condchangemem(L);} 108 {if (G(L)->GCdebt > 0) {c;}; condchangemem(L);}
109#define luaC_checkGC(L) luaC_condGC(L, luaC_step(L);) 109#define luaC_checkGC(L) luaC_condGC(L, luaC_step(L);)
110 110
111 111
112#define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ 112#define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \
diff --git a/linit.c b/linit.c
index cc975ec3..a3c31a7b 100644
--- a/linit.c
+++ b/linit.c
@@ -1,16 +1,16 @@
1/* 1/*
2** $Id: linit.c,v 1.29 2010/10/25 14:32:36 roberto Exp roberto $ 2** $Id: linit.c,v 1.30 2010/11/12 15:48:30 roberto Exp roberto $
3** Initialization of libraries for lua.c and other clients 3** Initialization of libraries for lua.c and other clients
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
6 6
7 7
8/* 8/*
9** If you embed Lua in your program and need to open the standard 9** If you embed Lua in your program and need to open the standard
10** libraries, call luaL_openlibs in your program. If you need a 10** libraries, call luaL_openlibs in your program. If you need a
11** different set of libraries, copy this file to your project and edit 11** different set of libraries, copy this file to your project and edit
12** it to suit your needs. 12** it to suit your needs.
13*/ 13*/
14 14
15 15
16#define linit_c 16#define linit_c
diff --git a/liolib.c b/liolib.c
index 4b15fd35..1fa05477 100644
--- a/liolib.c
+++ b/liolib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: liolib.c,v 2.94 2010/11/09 16:57:49 roberto Exp roberto $ 2** $Id: liolib.c,v 2.95 2010/11/10 18:05:36 roberto Exp roberto $
3** Standard I/O (and system) library 3** Standard I/O (and system) library
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -517,7 +517,7 @@ static int io_write (lua_State *L) {
517 517
518 518
519static int f_write (lua_State *L) { 519static int f_write (lua_State *L) {
520 FILE * f = tofile(L); 520 FILE * f = tofile(L);
521 lua_pushvalue(L, 1); /* push file at the stack top (to be returned) */ 521 lua_pushvalue(L, 1); /* push file at the stack top (to be returned) */
522 return g_write(L, f, 2); 522 return g_write(L, f, 2);
523} 523}
diff --git a/llex.c b/llex.c
index e4bfa48d..b9e752a8 100644
--- a/llex.c
+++ b/llex.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: llex.c,v 2.42 2010/12/06 21:08:36 roberto Exp roberto $ 2** $Id: llex.c,v 2.43 2010/12/10 14:53:15 roberto Exp roberto $
3** Lexical Analyzer 3** Lexical Analyzer
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -127,7 +127,7 @@ TString *luaX_newstring (LexState *ls, const char *str, size_t l) {
127 TValue *o; /* entry for `str' */ 127 TValue *o; /* entry for `str' */
128 TString *ts = luaS_newlstr(L, str, l); /* create new string */ 128 TString *ts = luaS_newlstr(L, str, l); /* create new string */
129 setsvalue2s(L, L->top++, ts); /* temporarily anchor it in stack */ 129 setsvalue2s(L, L->top++, ts); /* temporarily anchor it in stack */
130 o = luaH_setstr(L, ls->fs->h, ts); 130 o = luaH_setstr(L, ls->fs->h, ts);
131 if (ttisnil(o)) { 131 if (ttisnil(o)) {
132 setbvalue(o, 1); /* t[string] = true */ 132 setbvalue(o, 1); /* t[string] = true */
133 luaC_checkGC(L); 133 luaC_checkGC(L);
@@ -185,7 +185,7 @@ static int check_next (LexState *ls, const char *set) {
185} 185}
186 186
187 187
188/* 188/*
189** change all characters 'from' in buffer to 'to' 189** change all characters 'from' in buffer to 'to'
190*/ 190*/
191static void buffreplace (LexState *ls, char from, char to) { 191static void buffreplace (LexState *ls, char from, char to) {
diff --git a/loslib.c b/loslib.c
index 95ec7395..d4ec884c 100644
--- a/loslib.c
+++ b/loslib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: loslib.c,v 1.31 2010/07/02 12:01:53 roberto Exp roberto $ 2** $Id: loslib.c,v 1.32 2010/10/05 12:18:03 roberto Exp roberto $
3** Standard Operating System library 3** Standard Operating System library
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -182,7 +182,7 @@ static const char *checkoption (lua_State *L, const char *conv, char *buff) {
182 return conv; /* to avoid warnings */ 182 return conv; /* to avoid warnings */
183} 183}
184 184
185 185
186static int os_date (lua_State *L) { 186static int os_date (lua_State *L) {
187 const char *s = luaL_optstring(L, 1, "%c"); 187 const char *s = luaL_optstring(L, 1, "%c");
188 time_t t = luaL_opt(L, (time_t)luaL_checknumber, 2, time(NULL)); 188 time_t t = luaL_opt(L, (time_t)luaL_checknumber, 2, time(NULL));
diff --git a/lparser.c b/lparser.c
index c11b4aaf..e2ca368e 100644
--- a/lparser.c
+++ b/lparser.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lparser.c,v 2.93 2010/12/15 19:13:29 roberto Exp roberto $ 2** $Id: lparser.c,v 2.94 2010/12/17 12:03:41 roberto Exp roberto $
3** Lua Parser 3** Lua Parser
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -587,7 +587,7 @@ static void field (LexState *ls, struct ConsControl *cc) {
587 587
588 588
589static void constructor (LexState *ls, expdesc *t) { 589static void constructor (LexState *ls, expdesc *t) {
590 /* constructor -> '{' [ field { sep field } [sep] ] '}' 590 /* constructor -> '{' [ field { sep field } [sep] ] '}'
591 sep -> ',' | ';' */ 591 sep -> ',' | ';' */
592 FuncState *fs = ls->fs; 592 FuncState *fs = ls->fs;
593 int line = ls->linenumber; 593 int line = ls->linenumber;
diff --git a/lstrlib.c b/lstrlib.c
index 97139613..255bc51f 100644
--- a/lstrlib.c
+++ b/lstrlib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lstrlib.c,v 1.161 2010/12/20 17:25:36 roberto Exp roberto $ 2** $Id: lstrlib.c,v 1.162 2011/01/12 20:36:01 roberto Exp roberto $
3** Standard library for string operations and pattern-matching 3** Standard library for string operations and pattern-matching
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -524,7 +524,7 @@ static int nospecials (const char *p, size_t l) {
524 size_t upto = 0; 524 size_t upto = 0;
525 do { 525 do {
526 if (strpbrk(p + upto, SPECIALS)) 526 if (strpbrk(p + upto, SPECIALS))
527 return 0; /* pattern has a special character */ 527 return 0; /* pattern has a special character */
528 upto += strlen(p + upto) + 1; /* may have more after \0 */ 528 upto += strlen(p + upto) + 1; /* may have more after \0 */
529 } while (upto <= l); 529 } while (upto <= l);
530 return 1; /* no special chars found */ 530 return 1; /* no special chars found */