comment typos

This commit is contained in:
Roberto Ierusalimschy 2009-11-26 09:39:20 -02:00
parent b0f2b288a6
commit 3c4d970a7b
10 changed files with 22 additions and 22 deletions

View File

@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.226 2009/11/24 12:05:44 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.227 2009/11/25 15:27:51 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -655,7 +655,7 @@ static int luaB_costatus (lua_State *L) {
lua_pushliteral(L, "suspended"); /* initial state */ lua_pushliteral(L, "suspended"); /* initial state */
break; break;
} }
default: /* some error occured */ default: /* some error occurred */
lua_pushliteral(L, "dead"); lua_pushliteral(L, "dead");
break; break;
} }

View File

@ -1,5 +1,5 @@
/* /*
** $Id: lfunc.c,v 2.15 2009/09/28 16:32:50 roberto Exp roberto $ ** $Id: lfunc.c,v 2.16 2009/09/30 15:38:37 roberto Exp roberto $
** Auxiliary functions to manipulate prototypes and closures ** Auxiliary functions to manipulate prototypes and closures
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -60,7 +60,7 @@ UpVal *luaF_findupval (lua_State *L, StkId level) {
lua_assert(p->v != &p->u.value); lua_assert(p->v != &p->u.value);
if (p->v == level) { /* found a corresponding upvalue? */ if (p->v == level) { /* found a corresponding upvalue? */
if (isdead(g, obj2gco(p))) /* is it dead? */ if (isdead(g, obj2gco(p))) /* is it dead? */
changewhite(obj2gco(p)); /* ressurect it */ changewhite(obj2gco(p)); /* ressurrect it */
return p; return p;
} }
pp = &p->next; pp = &p->next;

4
lgc.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lgc.c,v 2.61 2009/11/09 18:29:21 roberto Exp roberto $ ** $Id: lgc.c,v 2.62 2009/11/18 13:13:47 roberto Exp roberto $
** Garbage Collector ** Garbage Collector
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -704,7 +704,7 @@ static void atomic (lua_State *L) {
/* traverse objects caught by write barrier and by 'remarkupvals' */ /* traverse objects caught by write barrier and by 'remarkupvals' */
propagateall(g); propagateall(g);
/* at this point, all strongly accessible objects are marked. /* at this point, all strongly accessible objects are marked.
Start marking weakily accessible objects. */ Start marking weakly accessible objects. */
traverselistofgrays(g, &g->weak); /* remark weak tables */ traverselistofgrays(g, &g->weak); /* remark weak tables */
traverselistofgrays(g, &g->ephemeron); /* remark ephemeron tables */ traverselistofgrays(g, &g->ephemeron); /* remark ephemeron tables */
traverselistofgrays(g, &g->grayagain); /* remark gray again */ traverselistofgrays(g, &g->grayagain); /* remark gray again */

4
lgc.h
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lgc.h,v 2.22 2009/11/17 11:56:03 roberto Exp roberto $ ** $Id: lgc.h,v 2.23 2009/11/18 13:13:47 roberto Exp roberto $
** Garbage Collector ** Garbage Collector
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -26,7 +26,7 @@
/* /*
** some userful bit tricks ** some useful bit tricks
*/ */
#define resetbits(x,m) ((x) &= cast(lu_byte, ~(m))) #define resetbits(x,m) ((x) &= cast(lu_byte, ~(m)))
#define setbits(x,m) ((x) |= (m)) #define setbits(x,m) ((x) |= (m))

View File

@ -1,5 +1,5 @@
/* /*
** $Id: lobject.c,v 2.32 2009/11/06 17:07:12 roberto Exp roberto $ ** $Id: lobject.c,v 2.33 2009/11/19 19:06:52 roberto Exp roberto $
** Some generic functions over Lua objects ** Some generic functions over Lua objects
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -221,7 +221,7 @@ void luaO_chunkid (char *out, const char *source, size_t bufflen) {
else { /* string; format as [string "source"] */ else { /* string; format as [string "source"] */
const char *nl = strchr(source, '\n'); /* find first new line (if any) */ const char *nl = strchr(source, '\n'); /* find first new line (if any) */
addstr(out, PRE, LL(PRE)); /* add prefix */ addstr(out, PRE, LL(PRE)); /* add prefix */
bufflen -= LL(PRE RETS POS); /* save space for prefix+sufix */ bufflen -= LL(PRE RETS POS); /* save space for prefix+suffix */
if (l < bufflen && nl == NULL) { /* small one-line source? */ if (l < bufflen && nl == NULL) { /* small one-line source? */
addstr(out, source, l); /* keep it */ addstr(out, source, l); /* keep it */
} }

View File

@ -1,5 +1,5 @@
/* /*
** $Id: lparser.c,v 2.71 2009/10/14 16:43:11 roberto Exp roberto $ ** $Id: lparser.c,v 2.72 2009/11/17 16:33:38 roberto Exp roberto $
** Lua Parser ** Lua Parser
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -404,7 +404,7 @@ static void close_func (LexState *ls) {
f->sizeupvalues = fs->nups; f->sizeupvalues = fs->nups;
lua_assert(fs->bl == NULL); lua_assert(fs->bl == NULL);
ls->fs = fs->prev; ls->fs = fs->prev;
/* last token read was anchored in defunct function; must reanchor it */ /* last token read was anchored in defunct function; must re-anchor it */
anchor_token(ls); anchor_token(ls);
L->top--; /* pop table of constants */ L->top--; /* pop table of constants */
luaC_checkGC(L); luaC_checkGC(L);

View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstate.h,v 2.48 2009/11/18 13:13:47 roberto Exp roberto $ ** $Id: lstate.h,v 2.49 2009/11/25 15:27:51 roberto Exp roberto $
** Global State ** Global State
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -131,7 +131,7 @@ typedef struct global_State {
GCObject *ephemeron; /* list of ephemeron tables (weak keys) */ GCObject *ephemeron; /* list of ephemeron tables (weak keys) */
GCObject *allweak; /* list of all-weak tables */ GCObject *allweak; /* list of all-weak tables */
GCObject *tobefnz; /* list of userdata to be GC */ GCObject *tobefnz; /* list of userdata to be GC */
Mbuffer buff; /* temporary buffer for string concatentation */ Mbuffer buff; /* temporary buffer for string concatenation */
lu_mem GCthreshold; /* when totalbytes > GCthreshold, run GC step */ lu_mem GCthreshold; /* when totalbytes > GCthreshold, run GC step */
lu_mem totalbytes; /* number of bytes currently allocated */ lu_mem totalbytes; /* number of bytes currently allocated */
int gcpause; /* size of pause between successive GCs */ int gcpause; /* size of pause between successive GCs */

View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltable.c,v 2.44 2009/11/06 17:07:12 roberto Exp roberto $ ** $Id: ltable.c,v 2.45 2009/11/19 17:54:07 roberto Exp roberto $
** Lua tables (hash) ** Lua tables (hash)
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -133,7 +133,7 @@ static int arrayindex (const TValue *key) {
/* /*
** returns the index of a `key' for table traversals. First goes all ** returns the index of a `key' for table traversals. First goes all
** elements in the array part, then elements in the hash part. The ** elements in the array part, then elements in the hash part. The
** beginning of a traversal is signalled by -1. ** beginning of a traversal is signaled by -1.
*/ */
static int findindex (lua_State *L, Table *t, StkId key) { static int findindex (lua_State *L, Table *t, StkId key) {
int i; int i;

4
lua.h
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lua.h,v 1.250 2009/11/09 19:10:48 roberto Exp roberto $ ** $Id: lua.h,v 1.251 2009/11/25 15:27:51 roberto Exp roberto $
** Lua - A Scripting Language ** Lua - A Scripting Language
** Lua.org, PUC-Rio, Brazil (http://www.lua.org) ** Lua.org, PUC-Rio, Brazil (http://www.lua.org)
** See Copyright Notice at the end of this file ** See Copyright Notice at the end of this file
@ -370,7 +370,7 @@ LUA_API void (lua_setallocf) (lua_State *L, lua_Alloc f, void *ud);
typedef struct lua_Debug lua_Debug; /* activation record */ typedef struct lua_Debug lua_Debug; /* activation record */
/* Functions to be called by the debuger in specific events */ /* Functions to be called by the debugger in specific events */
typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar); typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar);

View File

@ -1,5 +1,5 @@
/* /*
** $Id: luaconf.h,v 1.115 2009/11/19 19:06:52 roberto Exp roberto $ ** $Id: luaconf.h,v 1.116 2009/11/24 12:05:44 roberto Exp roberto $
** Configuration file for Lua ** Configuration file for Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -53,7 +53,7 @@
/* /*
@@ LUA_USE_POSIX includes all functionallity listed as X/Open System @@ LUA_USE_POSIX includes all functionality listed as X/Open System
@* Interfaces Extension (XSI). @* Interfaces Extension (XSI).
** CHANGE it (define it) if your system is XSI compatible. ** CHANGE it (define it) if your system is XSI compatible.
*/ */
@ -129,7 +129,7 @@
@* template. @* template.
@@ LUA_EXECDIR in a Windows path is replaced by the executable's @@ LUA_EXECDIR in a Windows path is replaced by the executable's
@* directory. @* directory.
@@ LUA_IGMARK is a mark to ignore all before it when bulding the @@ LUA_IGMARK is a mark to ignore all before it when building the
@* luaopen_ function name. @* luaopen_ function name.
** CHANGE them if for some reason your system cannot use those ** CHANGE them if for some reason your system cannot use those
** characters. (E.g., if one of those characters is a common character ** characters. (E.g., if one of those characters is a common character
@ -335,7 +335,7 @@
*/ */
/* /*
@@ LUA_COMPAT_FENV controls de presence of functions 'setfenv/getfenv'. @@ LUA_COMPAT_FENV controls the presence of functions 'setfenv/getfenv'.
** CHANGE it (undefine it) if as soon as you rewrite your code to ** CHANGE it (undefine it) if as soon as you rewrite your code to
** avoid using those functions. (You can replace them with lexical ** avoid using those functions. (You can replace them with lexical
** environments, 'loadin', or the debug library.) ** environments, 'loadin', or the debug library.)