comments (a few extra quotes around identifiers)

This commit is contained in:
Roberto Ierusalimschy 2014-10-30 16:53:28 -02:00
parent 80e817719d
commit 4542fb9f78
6 changed files with 17 additions and 17 deletions

View File

@ -1,5 +1,5 @@
/* /*
** $Id: lcode.c,v 2.92 2014/10/27 16:29:58 roberto Exp roberto $ ** $Id: lcode.c,v 2.93 2014/10/28 17:27:41 roberto Exp roberto $
** Code generator for Lua ** Code generator for Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -589,7 +589,7 @@ int luaK_exp2RK (FuncState *fs, expdesc *e) {
} }
case VK: { case VK: {
vk: vk:
if (e->u.info <= MAXINDEXRK) /* constant fits in argC? */ if (e->u.info <= MAXINDEXRK) /* constant fits in 'argC'? */
return RKASK(e->u.info); return RKASK(e->u.info);
else break; else break;
} }

8
lgc.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lgc.c,v 2.197 2014/10/25 11:50:46 roberto Exp roberto $ ** $Id: lgc.c,v 2.198 2014/10/29 15:02:53 roberto Exp roberto $
** Garbage Collector ** Garbage Collector
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -975,7 +975,7 @@ static l_mem atomic (lua_State *L) {
/* remark occasional upvalues of (maybe) dead threads */ /* remark occasional upvalues of (maybe) dead threads */
remarkupvals(g); remarkupvals(g);
propagateall(g); /* propagate changes */ propagateall(g); /* propagate changes */
work = g->GCmemtrav; /* stop counting (do not recount gray-agains) */ work = g->GCmemtrav; /* stop counting (do not recount 'grayagain') */
g->gray = grayagain; g->gray = grayagain;
propagateall(g); /* traverse 'grayagain' list */ propagateall(g); /* traverse 'grayagain' list */
g->GCmemtrav = 0; /* restart counting */ g->GCmemtrav = 0; /* restart counting */
@ -995,7 +995,7 @@ static l_mem atomic (lua_State *L) {
/* at this point, all resurrected objects are marked. */ /* at this point, all resurrected objects are marked. */
/* remove dead objects from weak tables */ /* remove dead objects from weak tables */
clearkeys(g, g->ephemeron, NULL); /* clear keys from all ephemeron tables */ clearkeys(g, g->ephemeron, NULL); /* clear keys from all ephemeron tables */
clearkeys(g, g->allweak, NULL); /* clear keys from all allweak tables */ clearkeys(g, g->allweak, NULL); /* clear keys from all 'allweak' tables */
/* clear values from resurrected weak tables */ /* clear values from resurrected weak tables */
clearvalues(g, g->weak, origweak); clearvalues(g, g->weak, origweak);
clearvalues(g, g->allweak, origall); clearvalues(g, g->allweak, origall);
@ -1125,7 +1125,7 @@ void luaC_step (lua_State *L) {
/* /*
** Performs a full GC cycle; if "isemergency", set a flag to avoid ** Performs a full GC cycle; if 'isemergency', set a flag to avoid
** some operations which could change the interpreter state in some ** some operations which could change the interpreter state in some
** unexpected ways (running finalizers and shrinking some structures). ** unexpected ways (running finalizers and shrinking some structures).
** Before running the collection, check 'keepinvariant'; if it is true, ** Before running the collection, check 'keepinvariant'; if it is true,

4
llex.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: llex.c,v 2.85 2014/10/25 11:50:46 roberto Exp roberto $ ** $Id: llex.c,v 2.86 2014/10/26 15:45:41 roberto Exp roberto $
** Lexical Analyzer ** Lexical Analyzer
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -438,7 +438,7 @@ static void read_string (LexState *ls, int del, SemInfo *seminfo) {
} }
default: { default: {
esccheck(ls, lisdigit(ls->current), "invalid escape sequence"); esccheck(ls, lisdigit(ls->current), "invalid escape sequence");
c = readdecesc(ls); /* digital escape \ddd */ c = readdecesc(ls); /* digital escape '\ddd' */
goto only_save; goto only_save;
} }
} }

View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstate.h,v 2.117 2014/10/07 18:29:13 roberto Exp roberto $ ** $Id: lstate.h,v 2.118 2014/10/25 11:50:46 roberto Exp roberto $
** Global State ** Global State
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -21,10 +21,10 @@
** belong to one (and only one) of these lists, using field 'next' of ** belong to one (and only one) of these lists, using field 'next' of
** the 'CommonHeader' for the link: ** the 'CommonHeader' for the link:
** **
** allgc: all objects not marked for finalization; ** 'allgc': all objects not marked for finalization;
** finobj: all objects marked for finalization; ** 'finobj': all objects marked for finalization;
** tobefnz: all objects ready to be finalized; ** 'tobefnz': all objects ready to be finalized;
** fixedgc: all objects that are not to be collected (currently ** 'fixedgc': all objects that are not to be collected (currently
** only small strings, such as reserved words). ** only small strings, such as reserved words).
*/ */

View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstrlib.c,v 1.208 2014/10/27 13:30:24 roberto Exp roberto $ ** $Id: lstrlib.c,v 1.209 2014/10/28 18:23:31 roberto Exp roberto $
** Standard library for string operations and pattern-matching ** Standard library for string operations and pattern-matching
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -1101,7 +1101,7 @@ static KOption getoption (Header *h, const char **fmt, int *size) {
** alignment requirements. ** alignment requirements.
** Local variable 'size' gets the size to be aligned. (Kpadal option ** Local variable 'size' gets the size to be aligned. (Kpadal option
** always gets its full alignment, other options are limited by ** always gets its full alignment, other options are limited by
** the maximum alignment ('maxalign). Kchar option needs no aligment ** the maximum alignment ('maxalign'). Kchar option needs no alignment
** despite its size. ** despite its size.
*/ */
static KOption getdetails (Header *h, size_t totalsize, static KOption getdetails (Header *h, size_t totalsize,

View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 2.189 2014/10/25 11:50:46 roberto Exp roberto $ ** $Id: ltests.c,v 2.190 2014/10/27 17:00:02 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation ** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -1369,7 +1369,7 @@ static void Chook (lua_State *L, lua_Debug *ar) {
/* /*
** sets registry.C_HOOK[L] = scpt and sets Chook as a hook ** sets 'registry.C_HOOK[L] = scpt' and sets 'Chook' as a hook
*/ */
static void sethookaux (lua_State *L, int mask, int count, const char *scpt) { static void sethookaux (lua_State *L, int mask, int count, const char *scpt) {
if (*scpt == '\0') { /* no script? */ if (*scpt == '\0') { /* no script? */