rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

detail (typos in comments)

This commit is contained in:
Roberto Ierusalimschy 2014-06-30 16:48:08 -03:00
parent a77d263e86
commit b9dcf9974d
9 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lapi.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 2.221 2014/06/26 17:25:11 roberto Exp roberto $ ** $Id: lapi.c,v 2.222 2014/06/26 18:28:24 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -183,7 +183,7 @@ LUA_API void lua_settop (lua_State *L, int idx) {
/* /*
** Reverse the stack segment from 'from' to 'to' ** Reverse the stack segment from 'from' to 'to'
** (auxiliar to 'lua_rotate') ** (auxiliary to 'lua_rotate')
*/ */
static void reverse (lua_State *L, StkId from, StkId to) { static void reverse (lua_State *L, StkId from, StkId to) {
for (; from < to; from++, to--) { for (; from < to; from++, to--) {

4
lbaselib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.288 2014/06/02 03:06:26 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.289 2014/06/10 17:41:38 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -387,7 +387,7 @@ static int luaB_select (lua_State *L) {
/* /*
** Continuation function for 'pcall' and 'xpcall'. Both functions ** Continuation function for 'pcall' and 'xpcall'. Both functions
** already pushed a 'true' before doing the call, so in case of sucess ** already pushed a 'true' before doing the call, so in case of success
** 'finishpcall' only has to return everything in the stack minus ** 'finishpcall' only has to return everything in the stack minus
** 'extra' values (where 'extra' is exactly the number of items to be ** 'extra' values (where 'extra' is exactly the number of items to be
** ignored). ** ignored).

4
ldo.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldo.c,v 2.122 2014/06/12 19:07:30 roberto Exp roberto $ ** $Id: ldo.c,v 2.123 2014/06/19 18:27:20 roberto Exp roberto $
** Stack and Call structure of Lua ** Stack and Call structure of Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -516,7 +516,7 @@ static l_noret resume_error (lua_State *L, const char *msg, StkId firstArg) {
/* /*
** Do the work for 'lua_resume' in protected mode. Most of the work ** Do the work for 'lua_resume' in protected mode. Most of the work
** depends on the status of the coroutine: initial state, suspended ** depends on the status of the coroutine: initial state, suspended
** inside a hook, or regulary suspended (optionally with a continuation ** inside a hook, or regularly suspended (optionally with a continuation
** function), plus erroneous cases: non-suspended coroutine or dead ** function), plus erroneous cases: non-suspended coroutine or dead
** coroutine. ** coroutine.
*/ */

4
lgc.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lgc.c,v 2.182 2014/04/04 17:01:04 roberto Exp roberto $ ** $Id: lgc.c,v 2.183 2014/05/25 19:08:32 roberto Exp roberto $
** Garbage Collector ** Garbage Collector
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -899,7 +899,7 @@ void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt) {
GCObject **p; GCObject **p;
if (issweepphase(g)) { if (issweepphase(g)) {
makewhite(g, o); /* "sweep" object 'o' */ makewhite(g, o); /* "sweep" object 'o' */
if (g->sweepgc == &o->gch.next) /* shoud not remove 'sweepgc' object */ if (g->sweepgc == &o->gch.next) /* should not remove 'sweepgc' object */
g->sweepgc = sweeptolive(L, g->sweepgc, NULL); /* change 'sweepgc' */ g->sweepgc = sweeptolive(L, g->sweepgc, NULL); /* change 'sweepgc' */
} }
/* search for pointer pointing to 'o' */ /* search for pointer pointing to 'o' */

18
liolib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 2.125 2014/05/21 15:24:21 roberto Exp roberto $ ** $Id: liolib.c,v 2.126 2014/06/02 03:00:51 roberto Exp roberto $
** Standard I/O (and system) library ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -402,11 +402,11 @@ static int test2 (RN *rn, const char *set) {
/* /*
** Read a sequence of (hexa)digits ** Read a sequence of (hex)digits
*/ */
static int readdigits (RN *rn, int hexa) { static int readdigits (RN *rn, int hex) {
int count = 0; int count = 0;
while ((hexa ? isxdigit(rn->c) : isdigit(rn->c)) && nextc(rn)) while ((hex ? isxdigit(rn->c) : isdigit(rn->c)) && nextc(rn))
count++; count++;
return count; return count;
} }
@ -426,7 +426,7 @@ static int readdigits (RN *rn, int hexa) {
static int read_number (lua_State *L, FILE *f) { static int read_number (lua_State *L, FILE *f) {
RN rn; RN rn;
int count = 0; int count = 0;
int hexa = 0; int hex = 0;
char decp[2] = "."; char decp[2] = ".";
rn.f = f; rn.n = 0; rn.f = f; rn.n = 0;
decp[0] = getlocaledecpoint(); /* get decimal point from locale */ decp[0] = getlocaledecpoint(); /* get decimal point from locale */
@ -434,13 +434,13 @@ static int read_number (lua_State *L, FILE *f) {
do { rn.c = l_getc(rn.f); } while (isspace(rn.c)); /* skip spaces */ do { rn.c = l_getc(rn.f); } while (isspace(rn.c)); /* skip spaces */
test2(&rn, "-+"); /* optional signal */ test2(&rn, "-+"); /* optional signal */
if (test2(&rn, "0")) { if (test2(&rn, "0")) {
if (test2(&rn, "xX")) hexa = 1; /* numeral is hexadecimal */ if (test2(&rn, "xX")) hex = 1; /* numeral is hexadecimal */
else count = 1; /* count initial '0' as a valid digit */ else count = 1; /* count initial '0' as a valid digit */
} }
count += readdigits(&rn, hexa); /* integral part */ count += readdigits(&rn, hex); /* integral part */
if (test2(&rn, decp)) /* decimal point? */ if (test2(&rn, decp)) /* decimal point? */
count += readdigits(&rn, hexa); /* fractionary part */ count += readdigits(&rn, hex); /* fractional part */
if (count > 0 && test2(&rn, (hexa ? "pP" : "eE"))) { /* exponent mark? */ if (count > 0 && test2(&rn, (hex ? "pP" : "eE"))) { /* exponent mark? */
test2(&rn, "-+"); /* exponent signal */ test2(&rn, "-+"); /* exponent signal */
readdigits(&rn, 0); /* exponent digits */ readdigits(&rn, 0); /* exponent digits */
} }

6
lmathlib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lmathlib.c,v 1.103 2014/06/18 12:35:53 roberto Exp roberto $ ** $Id: lmathlib.c,v 1.104 2014/06/26 18:38:28 roberto Exp roberto $
** Standard mathematical library ** Standard mathematical library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -145,14 +145,14 @@ static int math_fmod (lua_State *L) {
static int math_modf (lua_State *L) { static int math_modf (lua_State *L) {
if (lua_isinteger(L ,1)) { if (lua_isinteger(L ,1)) {
lua_settop(L, 1); /* number is its own integer part */ lua_settop(L, 1); /* number is its own integer part */
lua_pushnumber(L, 0); /* no fractionary part */ lua_pushnumber(L, 0); /* no fractional part */
} }
else { else {
lua_Number n = luaL_checknumber(L, 1); lua_Number n = luaL_checknumber(L, 1);
/* integer part (rounds toward zero) */ /* integer part (rounds toward zero) */
lua_Number ip = (n < 0) ? l_mathop(ceil)(n) : l_mathop(floor)(n); lua_Number ip = (n < 0) ? l_mathop(ceil)(n) : l_mathop(floor)(n);
pushnumint(L, ip); pushnumint(L, ip);
/* fractionary part (test needed for inf/-inf) */ /* fractional part (test needed for inf/-inf) */
lua_pushnumber(L, (n == ip) ? 0.0 : (n - ip)); lua_pushnumber(L, (n == ip) ? 0.0 : (n - ip));
} }
return 2; return 2;

6
lobject.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lobject.c,v 2.85 2014/05/12 21:22:05 roberto Exp roberto $ ** $Id: lobject.c,v 2.86 2014/05/12 21:44:17 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
*/ */
@ -256,7 +256,7 @@ static const char *l_str2d (const char *s, lua_Number *result) {
char *endptr; char *endptr;
if (strpbrk(s, "nN")) /* reject 'inf' and 'nan' */ if (strpbrk(s, "nN")) /* reject 'inf' and 'nan' */
return NULL; return NULL;
else if (strpbrk(s, "xX")) /* hexa? */ else if (strpbrk(s, "xX")) /* hex? */
*result = lua_strx2number(s, &endptr); *result = lua_strx2number(s, &endptr);
else else
*result = lua_str2number(s, &endptr); *result = lua_str2number(s, &endptr);
@ -273,7 +273,7 @@ static const char *l_str2int (const char *s, lua_Integer *result) {
while (lisspace(cast_uchar(*s))) s++; /* skip initial spaces */ while (lisspace(cast_uchar(*s))) s++; /* skip initial spaces */
neg = isneg(&s); neg = isneg(&s);
if (s[0] == '0' && if (s[0] == '0' &&
(s[1] == 'x' || s[1] == 'X')) { /* hexa? */ (s[1] == 'x' || s[1] == 'X')) { /* hex? */
s += 2; /* skip '0x' */ s += 2; /* skip '0x' */
for (; lisxdigit(cast_uchar(*s)); s++) { for (; lisxdigit(cast_uchar(*s)); s++) {
a = a * 16 + luaO_hexavalue(cast_uchar(*s)); a = a * 16 + luaO_hexavalue(cast_uchar(*s));

6
lua.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lua.c,v 1.211 2014/06/05 20:42:06 roberto Exp roberto $ ** $Id: lua.c,v 1.212 2014/06/26 17:08:52 roberto Exp roberto $
** Lua stand-alone interpreter ** Lua stand-alone interpreter
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -115,7 +115,7 @@ static void lstop (lua_State *L, lua_Debug *ar) {
/* /*
** Function to be called at a C signal. Because a C signal cannot ** Function to be called at a C signal. Because a C signal cannot
** just change a Lua state (as there is no proper syncronization), ** just change a Lua state (as there is no proper synchronization),
** this function only sets a hook that, when called, will stop the ** this function only sets a hook that, when called, will stop the
** interpreter. ** interpreter.
*/ */
@ -284,7 +284,7 @@ static const char *get_prompt (lua_State *L, int firstline) {
/* /*
** Check whether 'status' signals a syntax error and the error ** Check whether 'status' signals a syntax error and the error
** message at the top of the stack ends with the above mark for ** message at the top of the stack ends with the above mark for
** incoplete statements. ** incomplete statements.
*/ */
static int incomplete (lua_State *L, int status) { static int incomplete (lua_State *L, int status) {
if (status == LUA_ERRSYNTAX) { if (status == LUA_ERRSYNTAX) {

4
lvm.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 2.215 2014/06/10 18:53:18 roberto Exp roberto $ ** $Id: lvm.c,v 2.216 2014/06/19 18:27:20 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -239,7 +239,7 @@ void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val) {
luaT_callTM(L, tm, t, key, val, 0); luaT_callTM(L, tm, t, key, val, 0);
return; return;
} }
t = tm; /* else repeat assginment over 'tm' */ t = tm; /* else repeat assignment over 'tm' */
} }
luaG_runerror(L, "settable chain too long; possible loop"); luaG_runerror(L, "settable chain too long; possible loop");
} }