summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lcode.c6
-rw-r--r--lgc.c4
-rw-r--r--lmathlib.c8
-rw-r--r--lobject.c4
-rw-r--r--lstate.h8
-rw-r--r--lstrlib.c4
-rw-r--r--ltable.h4
-rw-r--r--ltm.c4
-rw-r--r--lua.c6
-rw-r--r--luaconf.h4
-rw-r--r--lutf8lib.c4
-rw-r--r--lvm.h4
12 files changed, 30 insertions, 30 deletions
diff --git a/lcode.c b/lcode.c
index 8bc85408..aca0256d 100644
--- a/lcode.c
+++ b/lcode.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lcode.c,v 2.110 2016/06/20 19:12:46 roberto Exp roberto $ 2** $Id: lcode.c,v 2.111 2016/07/19 17:12:07 roberto Exp roberto $
3** Code generator for Lua 3** Code generator for Lua
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -86,7 +86,7 @@ void luaK_nil (FuncState *fs, int from, int n) {
86/* 86/*
87** Gets the destination address of a jump instruction. Used to traverse 87** Gets the destination address of a jump instruction. Used to traverse
88** a list of jumps. 88** a list of jumps.
89*/ 89*/
90static int getjump (FuncState *fs, int pc) { 90static int getjump (FuncState *fs, int pc) {
91 int offset = GETARG_sBx(fs->f->code[pc]); 91 int offset = GETARG_sBx(fs->f->code[pc]);
92 if (offset == NO_JUMP) /* point to itself represents end of list */ 92 if (offset == NO_JUMP) /* point to itself represents end of list */
@@ -754,7 +754,7 @@ void luaK_exp2val (FuncState *fs, expdesc *e) {
754** (that is, it is either in a register or in 'k' with an index 754** (that is, it is either in a register or in 'k' with an index
755** in the range of R/K indices). 755** in the range of R/K indices).
756** Returns R/K index. 756** Returns R/K index.
757*/ 757*/
758int luaK_exp2RK (FuncState *fs, expdesc *e) { 758int luaK_exp2RK (FuncState *fs, expdesc *e) {
759 luaK_exp2val(fs, e); 759 luaK_exp2val(fs, e);
760 switch (e->k) { /* move constants to 'k' */ 760 switch (e->k) { /* move constants to 'k' */
diff --git a/lgc.c b/lgc.c
index 55a51870..de3f2a21 100644
--- a/lgc.c
+++ b/lgc.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lgc.c,v 2.213 2016/10/19 12:31:42 roberto Exp roberto $ 2** $Id: lgc.c,v 2.214 2016/11/07 12:38:35 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*/
@@ -539,7 +539,7 @@ static lu_mem traversethread (global_State *g, lua_State *th) {
539 StkId lim = th->stack + th->stacksize; /* real end of stack */ 539 StkId lim = th->stack + th->stacksize; /* real end of stack */
540 for (; o < lim; o++) /* clear not-marked stack slice */ 540 for (; o < lim; o++) /* clear not-marked stack slice */
541 setnilvalue(o); 541 setnilvalue(o);
542 /* 'remarkupvals' may have removed thread from 'twups' list */ 542 /* 'remarkupvals' may have removed thread from 'twups' list */
543 if (!isintwups(th) && th->openupval != NULL) { 543 if (!isintwups(th) && th->openupval != NULL) {
544 th->twups = g->twups; /* link it back to the list */ 544 th->twups = g->twups; /* link it back to the list */
545 g->twups = th; 545 g->twups = th;
diff --git a/lmathlib.c b/lmathlib.c
index 4cf90ce4..e0240c9b 100644
--- a/lmathlib.c
+++ b/lmathlib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lmathlib.c,v 1.117 2015/10/02 15:39:23 roberto Exp roberto $ 2** $Id: lmathlib.c,v 1.118 2016/12/20 18:37:00 roberto Exp roberto $
3** Standard mathematical library 3** Standard mathematical library
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -265,7 +265,7 @@ static int math_random (lua_State *L) {
265 default: return luaL_error(L, "wrong number of arguments"); 265 default: return luaL_error(L, "wrong number of arguments");
266 } 266 }
267 /* random integer in the interval [low, up] */ 267 /* random integer in the interval [low, up] */
268 luaL_argcheck(L, low <= up, 1, "interval is empty"); 268 luaL_argcheck(L, low <= up, 1, "interval is empty");
269 luaL_argcheck(L, low >= 0 || up <= LUA_MAXINTEGER + low, 1, 269 luaL_argcheck(L, low >= 0 || up <= LUA_MAXINTEGER + low, 1,
270 "interval too large"); 270 "interval too large");
271 r *= (double)(up - low) + 1.0; 271 r *= (double)(up - low) + 1.0;
@@ -284,9 +284,9 @@ static int math_randomseed (lua_State *L) {
284static int math_type (lua_State *L) { 284static int math_type (lua_State *L) {
285 if (lua_type(L, 1) == LUA_TNUMBER) { 285 if (lua_type(L, 1) == LUA_TNUMBER) {
286 if (lua_isinteger(L, 1)) 286 if (lua_isinteger(L, 1))
287 lua_pushliteral(L, "integer"); 287 lua_pushliteral(L, "integer");
288 else 288 else
289 lua_pushliteral(L, "float"); 289 lua_pushliteral(L, "float");
290 } 290 }
291 else { 291 else {
292 luaL_checkany(L, 1); 292 luaL_checkany(L, 1);
diff --git a/lobject.c b/lobject.c
index 2ecca865..e234df3d 100644
--- a/lobject.c
+++ b/lobject.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lobject.c,v 2.111 2016/05/20 14:07:48 roberto Exp roberto $ 2** $Id: lobject.c,v 2.112 2016/06/27 13:15:08 roberto Exp roberto $
3** Some generic functions over Lua objects 3** Some generic functions over Lua objects
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -394,7 +394,7 @@ static void pushstr (lua_State *L, const char *str, size_t l) {
394 394
395 395
396/* 396/*
397** this function handles only '%d', '%c', '%f', '%p', and '%s' 397** this function handles only '%d', '%c', '%f', '%p', and '%s'
398 conventional formats, plus Lua-specific '%I' and '%U' 398 conventional formats, plus Lua-specific '%I' and '%U'
399*/ 399*/
400const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) { 400const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) {
diff --git a/lstate.h b/lstate.h
index efceed69..9985545e 100644
--- a/lstate.h
+++ b/lstate.h
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lstate.h,v 2.131 2016/06/16 13:36:09 roberto Exp roberto $ 2** $Id: lstate.h,v 2.132 2016/10/19 12:31:42 roberto Exp roberto $
3** Global State 3** Global State
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -23,7 +23,7 @@
23** 23**
24** 'allgc': all objects not marked for finalization; 24** 'allgc': all objects not marked for finalization;
25** 'finobj': all objects marked for finalization; 25** 'finobj': all objects marked for finalization;
26** 'tobefnz': all objects ready to be finalized; 26** 'tobefnz': all objects ready to be finalized;
27** 'fixedgc': all objects that are not to be collected (currently 27** 'fixedgc': all objects that are not to be collected (currently
28** only small strings, such as reserved words). 28** only small strings, such as reserved words).
29 29
@@ -34,7 +34,7 @@ struct lua_longjmp; /* defined in ldo.c */
34 34
35 35
36/* 36/*
37** Atomic type (relative to signals) to better ensure that 'lua_sethook' 37** Atomic type (relative to signals) to better ensure that 'lua_sethook'
38** is thread safe 38** is thread safe
39*/ 39*/
40#if !defined(l_signalT) 40#if !defined(l_signalT)
@@ -66,7 +66,7 @@ typedef struct stringtable {
66** Information about a call. 66** Information about a call.
67** When a thread yields, 'func' is adjusted to pretend that the 67** When a thread yields, 'func' is adjusted to pretend that the
68** top function has only the yielded values in its stack; in that 68** top function has only the yielded values in its stack; in that
69** case, the actual 'func' value is saved in field 'extra'. 69** case, the actual 'func' value is saved in field 'extra'.
70** When a function calls another with a continuation, 'extra' keeps 70** When a function calls another with a continuation, 'extra' keeps
71** the function index so that, in case of errors, the continuation 71** the function index so that, in case of errors, the continuation
72** function can be called with the correct top. 72** function can be called with the correct top.
diff --git a/lstrlib.c b/lstrlib.c
index 1b56e2b0..934b7db8 100644
--- a/lstrlib.c
+++ b/lstrlib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lstrlib.c,v 1.252 2016/06/27 13:15:08 roberto Exp roberto $ 2** $Id: lstrlib.c,v 1.253 2016/12/20 18:37:00 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*/
@@ -1261,7 +1261,7 @@ static KOption getoption (Header *h, const char **fmt, int *size) {
1261** 'psize' is filled with option's size, 'notoalign' with its 1261** 'psize' is filled with option's size, 'notoalign' with its
1262** alignment requirements. 1262** alignment requirements.
1263** Local variable 'size' gets the size to be aligned. (Kpadal option 1263** Local variable 'size' gets the size to be aligned. (Kpadal option
1264** always gets its full alignment, other options are limited by 1264** always gets its full alignment, other options are limited by
1265** the maximum alignment ('maxalign'). Kchar option needs no alignment 1265** the maximum alignment ('maxalign'). Kchar option needs no alignment
1266** despite its size. 1266** despite its size.
1267*/ 1267*/
diff --git a/ltable.h b/ltable.h
index 8b80a6df..bd3543b5 100644
--- a/ltable.h
+++ b/ltable.h
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ltable.h,v 2.21 2015/11/03 15:47:30 roberto Exp roberto $ 2** $Id: ltable.h,v 2.22 2016/11/07 12:38:35 roberto Exp roberto $
3** Lua tables (hash) 3** Lua tables (hash)
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -15,7 +15,7 @@
15#define gnext(n) ((n)->i_key.nk.next) 15#define gnext(n) ((n)->i_key.nk.next)
16 16
17 17
18/* 'const' to avoid wrong writings that can mess up field 'next' */ 18/* 'const' to avoid wrong writings that can mess up field 'next' */
19#define gkey(n) cast(const TValue*, (&(n)->i_key.tvk)) 19#define gkey(n) cast(const TValue*, (&(n)->i_key.tvk))
20 20
21/* 21/*
diff --git a/ltm.c b/ltm.c
index cc28a414..b664dbed 100644
--- a/ltm.c
+++ b/ltm.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ltm.c,v 2.36 2015/11/03 15:47:30 roberto Exp roberto $ 2** $Id: ltm.c,v 2.37 2016/02/26 19:20:15 roberto Exp roberto $
3** Tag methods 3** Tag methods
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -15,7 +15,7 @@
15#include "lua.h" 15#include "lua.h"
16 16
17#include "ldebug.h" 17#include "ldebug.h"
18#include "ldo.h" 18#include "ldo.h"
19#include "lobject.h" 19#include "lobject.h"
20#include "lstate.h" 20#include "lstate.h"
21#include "lstring.h" 21#include "lstring.h"
diff --git a/lua.c b/lua.c
index dbfb9075..2ca9a3a5 100644
--- a/lua.c
+++ b/lua.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lua.c,v 1.227 2016/07/18 17:55:59 roberto Exp roberto $ 2** $Id: lua.c,v 1.228 2016/12/13 15:50:58 roberto Exp roberto $
3** Lua stand-alone interpreter 3** Lua stand-alone interpreter
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -461,7 +461,7 @@ static int handle_script (lua_State *L, char **argv) {
461/* 461/*
462** Traverses all arguments from 'argv', returning a mask with those 462** Traverses all arguments from 'argv', returning a mask with those
463** needed before running any Lua code (or an error code if it finds 463** needed before running any Lua code (or an error code if it finds
464** any invalid argument). 'first' returns the first not-handled argument 464** any invalid argument). 'first' returns the first not-handled argument
465** (either the script name or a bad argument in case of error). 465** (either the script name or a bad argument in case of error).
466*/ 466*/
467static int collectargs (char **argv, int *first) { 467static int collectargs (char **argv, int *first) {
@@ -485,7 +485,7 @@ static int collectargs (char **argv, int *first) {
485 args |= has_E; 485 args |= has_E;
486 break; 486 break;
487 case 'i': 487 case 'i':
488 args |= has_i; /* (-i implies -v) *//* FALLTHROUGH */ 488 args |= has_i; /* (-i implies -v) *//* FALLTHROUGH */
489 case 'v': 489 case 'v':
490 if (argv[i][2] != '\0') /* extra characters after 1st? */ 490 if (argv[i][2] != '\0') /* extra characters after 1st? */
491 return has_error; /* invalid option */ 491 return has_error; /* invalid option */
diff --git a/luaconf.h b/luaconf.h
index 7c7e2c0d..118f997a 100644
--- a/luaconf.h
+++ b/luaconf.h
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: luaconf.h,v 1.257 2016/08/22 17:21:12 roberto Exp roberto $ 2** $Id: luaconf.h,v 1.258 2016/12/20 18:37:00 roberto Exp roberto $
3** Configuration file for Lua 3** Configuration file for Lua
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -621,7 +621,7 @@
621 621
622 622
623/* 623/*
624@@ lua_number2strx converts a float to an hexadecimal numeric string. 624@@ lua_number2strx converts a float to an hexadecimal numeric string.
625** In C99, 'sprintf' (with format specifiers '%a'/'%A') does that. 625** In C99, 'sprintf' (with format specifiers '%a'/'%A') does that.
626** Otherwise, you can leave 'lua_number2strx' undefined and Lua will 626** Otherwise, you can leave 'lua_number2strx' undefined and Lua will
627** provide its own implementation. 627** provide its own implementation.
diff --git a/lutf8lib.c b/lutf8lib.c
index a2b42c72..6db6fd37 100644
--- a/lutf8lib.c
+++ b/lutf8lib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lutf8lib.c,v 1.14 2015/03/05 16:07:46 roberto Exp roberto $ 2** $Id: lutf8lib.c,v 1.15 2015/03/28 19:16:55 roberto Exp roberto $
3** Standard library for UTF-8 manipulation 3** Standard library for UTF-8 manipulation
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -194,7 +194,7 @@ static int byteoffset (lua_State *L) {
194 lua_pushinteger(L, posi + 1); 194 lua_pushinteger(L, posi + 1);
195 else /* no such character */ 195 else /* no such character */
196 lua_pushnil(L); 196 lua_pushnil(L);
197 return 1; 197 return 1;
198} 198}
199 199
200 200
diff --git a/lvm.h b/lvm.h
index f6f99c7a..ca75a338 100644
--- a/lvm.h
+++ b/lvm.h
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lvm.h,v 2.39 2015/09/09 13:44:07 roberto Exp roberto $ 2** $Id: lvm.h,v 2.40 2016/01/05 16:07:21 roberto Exp roberto $
3** Lua virtual machine 3** Lua virtual machine
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -90,7 +90,7 @@
90#define luaV_settable(L,t,k,v) { const TValue *slot; \ 90#define luaV_settable(L,t,k,v) { const TValue *slot; \
91 if (!luaV_fastset(L,t,k,slot,luaH_get,v)) \ 91 if (!luaV_fastset(L,t,k,slot,luaH_get,v)) \
92 luaV_finishset(L,t,k,v,slot); } 92 luaV_finishset(L,t,k,v,slot); }
93 93
94 94
95 95
96LUAI_FUNC int luaV_equalobj (lua_State *L, const TValue *t1, const TValue *t2); 96LUAI_FUNC int luaV_equalobj (lua_State *L, const TValue *t1, const TValue *t2);