diff options
-rw-r--r-- | lapi.c | 4 | ||||
-rw-r--r-- | lcode.c | 4 | ||||
-rw-r--r-- | ldebug.c | 4 | ||||
-rw-r--r-- | lgc.c | 6 | ||||
-rw-r--r-- | lobject.c | 4 | ||||
-rw-r--r-- | lobject.h | 4 | ||||
-rw-r--r-- | lstring.h | 4 | ||||
-rw-r--r-- | lstrlib.c | 4 | ||||
-rw-r--r-- | ltable.c | 4 |
9 files changed, 19 insertions, 19 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lapi.c,v 2.273 2017/11/02 11:28:56 roberto Exp $ | 2 | ** $Id: lapi.c,v 2.276 2017/11/07 13:25:26 roberto Exp roberto $ |
3 | ** Lua API | 3 | ** Lua API |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -205,7 +205,7 @@ LUA_API void lua_settop (lua_State *L, int idx) { | |||
205 | ** Reverse the stack segment from 'from' to 'to' | 205 | ** Reverse the stack segment from 'from' to 'to' |
206 | ** (auxiliary to 'lua_rotate') | 206 | ** (auxiliary to 'lua_rotate') |
207 | ** Note that we move(copy) only the value inside the stack. | 207 | ** Note that we move(copy) only the value inside the stack. |
208 | ** (We do not move addicional fields that may exist.) | 208 | ** (We do not move additional fields that may exist.) |
209 | */ | 209 | */ |
210 | static void reverse (lua_State *L, StkId from, StkId to) { | 210 | static void reverse (lua_State *L, StkId from, StkId to) { |
211 | for (; from < to; from++, to--) { | 211 | for (; from < to; from++, to--) { |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lcode.c,v 2.134 2017/11/22 18:41:20 roberto Exp roberto $ | 2 | ** $Id: lcode.c,v 2.135 2017/11/22 19:15:44 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 | */ |
@@ -1331,7 +1331,7 @@ static void codeeq (FuncState *fs, BinOpr opr, expdesc *e1, expdesc *e2) { | |||
1331 | 1331 | ||
1332 | 1332 | ||
1333 | /* | 1333 | /* |
1334 | ** Aplly prefix operation 'op' to expression 'e'. | 1334 | ** Apply prefix operation 'op' to expression 'e'. |
1335 | */ | 1335 | */ |
1336 | void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e, int line) { | 1336 | void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e, int line) { |
1337 | static const expdesc ef = {VKINT, {0}, NO_JUMP, NO_JUMP}; | 1337 | static const expdesc ef = {VKINT, {0}, NO_JUMP, NO_JUMP}; |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldebug.c,v 2.144 2017/11/13 15:36:52 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 2.145 2017/11/23 16:35:54 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 | */ |
@@ -51,7 +51,7 @@ static int currentpc (CallInfo *ci) { | |||
51 | /* | 51 | /* |
52 | ** Get a "base line" to find the line corresponding to an instruction. | 52 | ** Get a "base line" to find the line corresponding to an instruction. |
53 | ** For that, search the array of absolute line info for the largest saved | 53 | ** For that, search the array of absolute line info for the largest saved |
54 | ** instruction smaller or equal to the wanted instrution. A special | 54 | ** instruction smaller or equal to the wanted instruction. A special |
55 | ** case is when there is no absolute info or the instruction is before | 55 | ** case is when there is no absolute info or the instruction is before |
56 | ** the first absolute one. | 56 | ** the first absolute one. |
57 | */ | 57 | */ |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lgc.c,v 2.236 2017/10/31 15:29:28 roberto Exp $ | 2 | ** $Id: lgc.c,v 2.238 2017/11/07 13:25:26 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 | */ |
@@ -507,7 +507,7 @@ static lu_mem traversetable (global_State *g, Table *h) { | |||
507 | ** mode, check the generational invariant. If the cache is old, | 507 | ** mode, check the generational invariant. If the cache is old, |
508 | ** everything is ok. If the prototype is 'old0', everything | 508 | ** everything is ok. If the prototype is 'old0', everything |
509 | ** is ok too. (It will naturally be visited again.) If the | 509 | ** is ok too. (It will naturally be visited again.) If the |
510 | ** prototype is older than 'old0', then its cache (whith is new) | 510 | ** prototype is older than 'old0', then its cache (which is new) |
511 | ** must be visited again in the next collection, so the prototype | 511 | ** must be visited again in the next collection, so the prototype |
512 | ** goes to the 'protogray' list. (If the prototype has a cache, | 512 | ** goes to the 'protogray' list. (If the prototype has a cache, |
513 | ** it is already immutable and does not need other barriers; | 513 | ** it is already immutable and does not need other barriers; |
@@ -1195,7 +1195,7 @@ static void entergen (lua_State *L, global_State *g) { | |||
1195 | luaC_runtilstate(L, bitmask(GCSpause)); /* prepare to start a new cycle */ | 1195 | luaC_runtilstate(L, bitmask(GCSpause)); /* prepare to start a new cycle */ |
1196 | luaC_runtilstate(L, bitmask(GCSpropagate)); /* start new cycle */ | 1196 | luaC_runtilstate(L, bitmask(GCSpropagate)); /* start new cycle */ |
1197 | atomic(L); | 1197 | atomic(L); |
1198 | /* sweep all ellements making them old */ | 1198 | /* sweep all elements making them old */ |
1199 | sweep2old(L, &g->allgc); | 1199 | sweep2old(L, &g->allgc); |
1200 | /* everything alive now is old */ | 1200 | /* everything alive now is old */ |
1201 | g->reallyold = g->old = g->survival = g->allgc; | 1201 | g->reallyold = g->old = g->survival = g->allgc; |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lobject.c,v 2.119 2017/11/08 14:50:23 roberto Exp roberto $ | 2 | ** $Id: lobject.c,v 2.120 2017/11/16 13:19:06 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 | */ |
@@ -272,7 +272,7 @@ static const char *l_str2dloc (const char *s, lua_Number *result, int mode) { | |||
272 | ** - 'n'/'N' means 'inf' or 'nan' (which should be rejected) | 272 | ** - 'n'/'N' means 'inf' or 'nan' (which should be rejected) |
273 | ** - '.' just optimizes the search for the common case (nothing special) | 273 | ** - '.' just optimizes the search for the common case (nothing special) |
274 | ** This function accepts both the current locale or a dot as the radix | 274 | ** This function accepts both the current locale or a dot as the radix |
275 | ** mark. If the convertion fails, it may mean number has a dot but | 275 | ** mark. If the conversion fails, it may mean number has a dot but |
276 | ** locale accepts something else. In that case, the code copies 's' | 276 | ** locale accepts something else. In that case, the code copies 's' |
277 | ** to a buffer (because 's' is read-only), changes the dot to the | 277 | ** to a buffer (because 's' is read-only), changes the dot to the |
278 | ** current locale radix mark, and tries to convert again. | 278 | ** current locale radix mark, and tries to convert again. |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lobject.h,v 2.125 2017/06/29 15:06:44 roberto Exp $ | 2 | ** $Id: lobject.h,v 2.130 2017/11/07 13:25:26 roberto Exp roberto $ |
3 | ** Type definitions for Lua objects | 3 | ** Type definitions for Lua objects |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -529,7 +529,7 @@ typedef union Closure { | |||
529 | 529 | ||
530 | /* | 530 | /* |
531 | ** Nodes for Hash tables. A pack of two TValue's (key-value pairs) | 531 | ** Nodes for Hash tables. A pack of two TValue's (key-value pairs) |
532 | ** plus a 'next' field to link colliding entries. The distribuition | 532 | ** plus a 'next' field to link colliding entries. The distribution |
533 | ** of the key's fields ('key_tt' and 'key_val') not forming a proper | 533 | ** of the key's fields ('key_tt' and 'key_val') not forming a proper |
534 | ** 'TValue' allows for a smaller size for 'Node' both in 4-byte | 534 | ** 'TValue' allows for a smaller size for 'Node' both in 4-byte |
535 | ** and 8-byte alignments. | 535 | ** and 8-byte alignments. |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lstring.h,v 1.61 2015/11/03 15:36:01 roberto Exp roberto $ | 2 | ** $Id: lstring.h,v 1.62 2017/07/27 13:50:16 roberto Exp roberto $ |
3 | ** String table (keep all strings handled by Lua) | 3 | ** String table (keep all strings handled by Lua) |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -14,7 +14,7 @@ | |||
14 | 14 | ||
15 | /* | 15 | /* |
16 | ** Memory-allocation error message must be preallocated (it cannot | 16 | ** Memory-allocation error message must be preallocated (it cannot |
17 | ** be created after memory is exausted) | 17 | ** be created after memory is exhausted) |
18 | */ | 18 | */ |
19 | #define MEMERRMSG "not enough memory" | 19 | #define MEMERRMSG "not enough memory" |
20 | 20 | ||
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lstrlib.c,v 1.258 2017/11/08 14:50:23 roberto Exp roberto $ | 2 | ** $Id: lstrlib.c,v 1.259 2017/11/16 13:19:06 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 | */ |
@@ -1117,7 +1117,7 @@ static void addliteral (lua_State *L, luaL_Buffer *b, int arg) { | |||
1117 | else { /* integers */ | 1117 | else { /* integers */ |
1118 | lua_Integer n = lua_tointeger(L, arg); | 1118 | lua_Integer n = lua_tointeger(L, arg); |
1119 | const char *format = (n == LUA_MININTEGER) /* corner case? */ | 1119 | const char *format = (n == LUA_MININTEGER) /* corner case? */ |
1120 | ? "0x%" LUA_INTEGER_FRMLEN "x" /* use hexa */ | 1120 | ? "0x%" LUA_INTEGER_FRMLEN "x" /* use hex */ |
1121 | : LUA_INTEGER_FMT; /* else use default format */ | 1121 | : LUA_INTEGER_FMT; /* else use default format */ |
1122 | nb = l_sprintf(buff, MAX_ITEM, format, (LUAI_UACINT)n); | 1122 | nb = l_sprintf(buff, MAX_ITEM, format, (LUAI_UACINT)n); |
1123 | } | 1123 | } |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ltable.c,v 2.125 2017/06/29 15:06:44 roberto Exp roberto $ | 2 | ** $Id: ltable.c,v 2.126 2017/11/08 14:50:23 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 | */ |
@@ -685,7 +685,7 @@ static lua_Unsigned hash_search (Table *t, lua_Unsigned j) { | |||
685 | ** First, try the array part: if there is an array part and its last | 685 | ** First, try the array part: if there is an array part and its last |
686 | ** element is nil, there must be a boundary there; a binary search | 686 | ** element is nil, there must be a boundary there; a binary search |
687 | ** finds that boundary. Otherwise, if the hash part is empty or does not | 687 | ** finds that boundary. Otherwise, if the hash part is empty or does not |
688 | ** contain 'j + 1', 'j' is a boundary. Othersize, call 'hash_search' | 688 | ** contain 'j + 1', 'j' is a boundary. Otherwize, call 'hash_search' |
689 | ** to find a boundary in the hash part. | 689 | ** to find a boundary in the hash part. |
690 | */ | 690 | */ |
691 | lua_Unsigned luaH_getn (Table *t) { | 691 | lua_Unsigned luaH_getn (Table *t) { |