aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lapi.c4
-rw-r--r--lcode.c4
-rw-r--r--ldebug.c4
-rw-r--r--lgc.c6
-rw-r--r--lobject.c4
-rw-r--r--lobject.h4
-rw-r--r--lstring.h4
-rw-r--r--lstrlib.c4
-rw-r--r--ltable.c4
9 files changed, 19 insertions, 19 deletions
diff --git a/lapi.c b/lapi.c
index 1c1e8f9e..181c90d6 100644
--- a/lapi.c
+++ b/lapi.c
@@ -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*/
210static void reverse (lua_State *L, StkId from, StkId to) { 210static void reverse (lua_State *L, StkId from, StkId to) {
211 for (; from < to; from++, to--) { 211 for (; from < to; from++, to--) {
diff --git a/lcode.c b/lcode.c
index f2c9de7b..7b50f3cf 100644
--- a/lcode.c
+++ b/lcode.c
@@ -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*/
1336void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e, int line) { 1336void 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};
diff --git a/ldebug.c b/ldebug.c
index 94b3596c..10102405 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -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*/
diff --git a/lgc.c b/lgc.c
index 036020ae..389d69bb 100644
--- a/lgc.c
+++ b/lgc.c
@@ -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;
diff --git a/lobject.c b/lobject.c
index fb2c172c..e9e037f7 100644
--- a/lobject.c
+++ b/lobject.c
@@ -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.
diff --git a/lobject.h b/lobject.h
index 372ec13b..c7b6be18 100644
--- a/lobject.h
+++ b/lobject.h
@@ -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.
diff --git a/lstring.h b/lstring.h
index 416d9519..a994fe1e 100644
--- a/lstring.h
+++ b/lstring.h
@@ -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
diff --git a/lstrlib.c b/lstrlib.c
index 9a4cf90d..84b6e4eb 100644
--- a/lstrlib.c
+++ b/lstrlib.c
@@ -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 }
diff --git a/ltable.c b/ltable.c
index 33c6852a..54799c21 100644
--- a/ltable.c
+++ b/ltable.c
@@ -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*/
691lua_Unsigned luaH_getn (Table *t) { 691lua_Unsigned luaH_getn (Table *t) {