diff options
-rw-r--r-- | lcode.c | 6 | ||||
-rw-r--r-- | lgc.c | 4 | ||||
-rw-r--r-- | lmathlib.c | 8 | ||||
-rw-r--r-- | lobject.c | 4 | ||||
-rw-r--r-- | lstate.h | 8 | ||||
-rw-r--r-- | lstrlib.c | 4 | ||||
-rw-r--r-- | ltable.h | 4 | ||||
-rw-r--r-- | ltm.c | 4 | ||||
-rw-r--r-- | lua.c | 6 | ||||
-rw-r--r-- | luaconf.h | 4 | ||||
-rw-r--r-- | lutf8lib.c | 4 | ||||
-rw-r--r-- | lvm.h | 4 |
12 files changed, 30 insertions, 30 deletions
@@ -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 | */ |
90 | static int getjump (FuncState *fs, int pc) { | 90 | static 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 | */ |
758 | int luaK_exp2RK (FuncState *fs, expdesc *e) { | 758 | int 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' */ |
@@ -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; |
@@ -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) { | |||
284 | static int math_type (lua_State *L) { | 284 | static 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); |
@@ -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 | */ |
400 | const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) { | 400 | const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) { |
@@ -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. |
@@ -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 | */ |
@@ -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 | /* |
@@ -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" |
@@ -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 | */ |
467 | static int collectargs (char **argv, int *first) { | 467 | static 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 */ |
@@ -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. |
@@ -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 | ||
@@ -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 | ||
96 | LUAI_FUNC int luaV_equalobj (lua_State *L, const TValue *t1, const TValue *t2); | 96 | LUAI_FUNC int luaV_equalobj (lua_State *L, const TValue *t1, const TValue *t2); |