diff options
-rw-r--r-- | lapi.c | 4 | ||||
-rw-r--r-- | lbaselib.c | 4 | ||||
-rw-r--r-- | ldo.c | 4 | ||||
-rw-r--r-- | lgc.c | 4 | ||||
-rw-r--r-- | liolib.c | 18 | ||||
-rw-r--r-- | lmathlib.c | 6 | ||||
-rw-r--r-- | lobject.c | 6 | ||||
-rw-r--r-- | lua.c | 6 | ||||
-rw-r--r-- | lvm.c | 4 |
9 files changed, 28 insertions, 28 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lapi.c,v 2.221 2014/06/26 17:25:11 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 2.222 2014/06/26 18:28:24 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 | */ |
@@ -183,7 +183,7 @@ LUA_API void lua_settop (lua_State *L, int idx) { | |||
183 | 183 | ||
184 | /* | 184 | /* |
185 | ** Reverse the stack segment from 'from' to 'to' | 185 | ** Reverse the stack segment from 'from' to 'to' |
186 | ** (auxiliar to 'lua_rotate') | 186 | ** (auxiliary to 'lua_rotate') |
187 | */ | 187 | */ |
188 | static void reverse (lua_State *L, StkId from, StkId to) { | 188 | static void reverse (lua_State *L, StkId from, StkId to) { |
189 | for (; from < to; from++, to--) { | 189 | for (; from < to; from++, to--) { |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lbaselib.c,v 1.288 2014/06/02 03:06:26 roberto Exp roberto $ | 2 | ** $Id: lbaselib.c,v 1.289 2014/06/10 17:41:38 roberto Exp roberto $ |
3 | ** Basic library | 3 | ** Basic library |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -387,7 +387,7 @@ static int luaB_select (lua_State *L) { | |||
387 | 387 | ||
388 | /* | 388 | /* |
389 | ** Continuation function for 'pcall' and 'xpcall'. Both functions | 389 | ** Continuation function for 'pcall' and 'xpcall'. Both functions |
390 | ** already pushed a 'true' before doing the call, so in case of sucess | 390 | ** already pushed a 'true' before doing the call, so in case of success |
391 | ** 'finishpcall' only has to return everything in the stack minus | 391 | ** 'finishpcall' only has to return everything in the stack minus |
392 | ** 'extra' values (where 'extra' is exactly the number of items to be | 392 | ** 'extra' values (where 'extra' is exactly the number of items to be |
393 | ** ignored). | 393 | ** ignored). |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldo.c,v 2.122 2014/06/12 19:07:30 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 2.123 2014/06/19 18:27:20 roberto Exp roberto $ |
3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -516,7 +516,7 @@ static l_noret resume_error (lua_State *L, const char *msg, StkId firstArg) { | |||
516 | /* | 516 | /* |
517 | ** Do the work for 'lua_resume' in protected mode. Most of the work | 517 | ** Do the work for 'lua_resume' in protected mode. Most of the work |
518 | ** depends on the status of the coroutine: initial state, suspended | 518 | ** depends on the status of the coroutine: initial state, suspended |
519 | ** inside a hook, or regulary suspended (optionally with a continuation | 519 | ** inside a hook, or regularly suspended (optionally with a continuation |
520 | ** function), plus erroneous cases: non-suspended coroutine or dead | 520 | ** function), plus erroneous cases: non-suspended coroutine or dead |
521 | ** coroutine. | 521 | ** coroutine. |
522 | */ | 522 | */ |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lgc.c,v 2.182 2014/04/04 17:01:04 roberto Exp roberto $ | 2 | ** $Id: lgc.c,v 2.183 2014/05/25 19:08:32 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 | */ |
@@ -899,7 +899,7 @@ void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt) { | |||
899 | GCObject **p; | 899 | GCObject **p; |
900 | if (issweepphase(g)) { | 900 | if (issweepphase(g)) { |
901 | makewhite(g, o); /* "sweep" object 'o' */ | 901 | makewhite(g, o); /* "sweep" object 'o' */ |
902 | if (g->sweepgc == &o->gch.next) /* shoud not remove 'sweepgc' object */ | 902 | if (g->sweepgc == &o->gch.next) /* should not remove 'sweepgc' object */ |
903 | g->sweepgc = sweeptolive(L, g->sweepgc, NULL); /* change 'sweepgc' */ | 903 | g->sweepgc = sweeptolive(L, g->sweepgc, NULL); /* change 'sweepgc' */ |
904 | } | 904 | } |
905 | /* search for pointer pointing to 'o' */ | 905 | /* search for pointer pointing to 'o' */ |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: liolib.c,v 2.125 2014/05/21 15:24:21 roberto Exp roberto $ | 2 | ** $Id: liolib.c,v 2.126 2014/06/02 03:00:51 roberto Exp roberto $ |
3 | ** Standard I/O (and system) library | 3 | ** Standard I/O (and system) library |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -402,11 +402,11 @@ static int test2 (RN *rn, const char *set) { | |||
402 | 402 | ||
403 | 403 | ||
404 | /* | 404 | /* |
405 | ** Read a sequence of (hexa)digits | 405 | ** Read a sequence of (hex)digits |
406 | */ | 406 | */ |
407 | static int readdigits (RN *rn, int hexa) { | 407 | static int readdigits (RN *rn, int hex) { |
408 | int count = 0; | 408 | int count = 0; |
409 | while ((hexa ? isxdigit(rn->c) : isdigit(rn->c)) && nextc(rn)) | 409 | while ((hex ? isxdigit(rn->c) : isdigit(rn->c)) && nextc(rn)) |
410 | count++; | 410 | count++; |
411 | return count; | 411 | return count; |
412 | } | 412 | } |
@@ -426,7 +426,7 @@ static int readdigits (RN *rn, int hexa) { | |||
426 | static int read_number (lua_State *L, FILE *f) { | 426 | static int read_number (lua_State *L, FILE *f) { |
427 | RN rn; | 427 | RN rn; |
428 | int count = 0; | 428 | int count = 0; |
429 | int hexa = 0; | 429 | int hex = 0; |
430 | char decp[2] = "."; | 430 | char decp[2] = "."; |
431 | rn.f = f; rn.n = 0; | 431 | rn.f = f; rn.n = 0; |
432 | decp[0] = getlocaledecpoint(); /* get decimal point from locale */ | 432 | decp[0] = getlocaledecpoint(); /* get decimal point from locale */ |
@@ -434,13 +434,13 @@ static int read_number (lua_State *L, FILE *f) { | |||
434 | do { rn.c = l_getc(rn.f); } while (isspace(rn.c)); /* skip spaces */ | 434 | do { rn.c = l_getc(rn.f); } while (isspace(rn.c)); /* skip spaces */ |
435 | test2(&rn, "-+"); /* optional signal */ | 435 | test2(&rn, "-+"); /* optional signal */ |
436 | if (test2(&rn, "0")) { | 436 | if (test2(&rn, "0")) { |
437 | if (test2(&rn, "xX")) hexa = 1; /* numeral is hexadecimal */ | 437 | if (test2(&rn, "xX")) hex = 1; /* numeral is hexadecimal */ |
438 | else count = 1; /* count initial '0' as a valid digit */ | 438 | else count = 1; /* count initial '0' as a valid digit */ |
439 | } | 439 | } |
440 | count += readdigits(&rn, hexa); /* integral part */ | 440 | count += readdigits(&rn, hex); /* integral part */ |
441 | if (test2(&rn, decp)) /* decimal point? */ | 441 | if (test2(&rn, decp)) /* decimal point? */ |
442 | count += readdigits(&rn, hexa); /* fractionary part */ | 442 | count += readdigits(&rn, hex); /* fractional part */ |
443 | if (count > 0 && test2(&rn, (hexa ? "pP" : "eE"))) { /* exponent mark? */ | 443 | if (count > 0 && test2(&rn, (hex ? "pP" : "eE"))) { /* exponent mark? */ |
444 | test2(&rn, "-+"); /* exponent signal */ | 444 | test2(&rn, "-+"); /* exponent signal */ |
445 | readdigits(&rn, 0); /* exponent digits */ | 445 | readdigits(&rn, 0); /* exponent digits */ |
446 | } | 446 | } |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lmathlib.c,v 1.103 2014/06/18 12:35:53 roberto Exp roberto $ | 2 | ** $Id: lmathlib.c,v 1.104 2014/06/26 18:38:28 roberto Exp roberto $ |
3 | ** Standard mathematical library | 3 | ** Standard mathematical library |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -145,14 +145,14 @@ static int math_fmod (lua_State *L) { | |||
145 | static int math_modf (lua_State *L) { | 145 | static int math_modf (lua_State *L) { |
146 | if (lua_isinteger(L ,1)) { | 146 | if (lua_isinteger(L ,1)) { |
147 | lua_settop(L, 1); /* number is its own integer part */ | 147 | lua_settop(L, 1); /* number is its own integer part */ |
148 | lua_pushnumber(L, 0); /* no fractionary part */ | 148 | lua_pushnumber(L, 0); /* no fractional part */ |
149 | } | 149 | } |
150 | else { | 150 | else { |
151 | lua_Number n = luaL_checknumber(L, 1); | 151 | lua_Number n = luaL_checknumber(L, 1); |
152 | /* integer part (rounds toward zero) */ | 152 | /* integer part (rounds toward zero) */ |
153 | lua_Number ip = (n < 0) ? l_mathop(ceil)(n) : l_mathop(floor)(n); | 153 | lua_Number ip = (n < 0) ? l_mathop(ceil)(n) : l_mathop(floor)(n); |
154 | pushnumint(L, ip); | 154 | pushnumint(L, ip); |
155 | /* fractionary part (test needed for inf/-inf) */ | 155 | /* fractional part (test needed for inf/-inf) */ |
156 | lua_pushnumber(L, (n == ip) ? 0.0 : (n - ip)); | 156 | lua_pushnumber(L, (n == ip) ? 0.0 : (n - ip)); |
157 | } | 157 | } |
158 | return 2; | 158 | return 2; |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lobject.c,v 2.85 2014/05/12 21:22:05 roberto Exp roberto $ | 2 | ** $Id: lobject.c,v 2.86 2014/05/12 21:44:17 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 | */ |
@@ -256,7 +256,7 @@ static const char *l_str2d (const char *s, lua_Number *result) { | |||
256 | char *endptr; | 256 | char *endptr; |
257 | if (strpbrk(s, "nN")) /* reject 'inf' and 'nan' */ | 257 | if (strpbrk(s, "nN")) /* reject 'inf' and 'nan' */ |
258 | return NULL; | 258 | return NULL; |
259 | else if (strpbrk(s, "xX")) /* hexa? */ | 259 | else if (strpbrk(s, "xX")) /* hex? */ |
260 | *result = lua_strx2number(s, &endptr); | 260 | *result = lua_strx2number(s, &endptr); |
261 | else | 261 | else |
262 | *result = lua_str2number(s, &endptr); | 262 | *result = lua_str2number(s, &endptr); |
@@ -273,7 +273,7 @@ static const char *l_str2int (const char *s, lua_Integer *result) { | |||
273 | while (lisspace(cast_uchar(*s))) s++; /* skip initial spaces */ | 273 | while (lisspace(cast_uchar(*s))) s++; /* skip initial spaces */ |
274 | neg = isneg(&s); | 274 | neg = isneg(&s); |
275 | if (s[0] == '0' && | 275 | if (s[0] == '0' && |
276 | (s[1] == 'x' || s[1] == 'X')) { /* hexa? */ | 276 | (s[1] == 'x' || s[1] == 'X')) { /* hex? */ |
277 | s += 2; /* skip '0x' */ | 277 | s += 2; /* skip '0x' */ |
278 | for (; lisxdigit(cast_uchar(*s)); s++) { | 278 | for (; lisxdigit(cast_uchar(*s)); s++) { |
279 | a = a * 16 + luaO_hexavalue(cast_uchar(*s)); | 279 | a = a * 16 + luaO_hexavalue(cast_uchar(*s)); |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lua.c,v 1.211 2014/06/05 20:42:06 roberto Exp roberto $ | 2 | ** $Id: lua.c,v 1.212 2014/06/26 17:08:52 roberto Exp roberto $ |
3 | ** Lua stand-alone interpreter | 3 | ** Lua stand-alone interpreter |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -115,7 +115,7 @@ static void lstop (lua_State *L, lua_Debug *ar) { | |||
115 | 115 | ||
116 | /* | 116 | /* |
117 | ** Function to be called at a C signal. Because a C signal cannot | 117 | ** Function to be called at a C signal. Because a C signal cannot |
118 | ** just change a Lua state (as there is no proper syncronization), | 118 | ** just change a Lua state (as there is no proper synchronization), |
119 | ** this function only sets a hook that, when called, will stop the | 119 | ** this function only sets a hook that, when called, will stop the |
120 | ** interpreter. | 120 | ** interpreter. |
121 | */ | 121 | */ |
@@ -284,7 +284,7 @@ static const char *get_prompt (lua_State *L, int firstline) { | |||
284 | /* | 284 | /* |
285 | ** Check whether 'status' signals a syntax error and the error | 285 | ** Check whether 'status' signals a syntax error and the error |
286 | ** message at the top of the stack ends with the above mark for | 286 | ** message at the top of the stack ends with the above mark for |
287 | ** incoplete statements. | 287 | ** incomplete statements. |
288 | */ | 288 | */ |
289 | static int incomplete (lua_State *L, int status) { | 289 | static int incomplete (lua_State *L, int status) { |
290 | if (status == LUA_ERRSYNTAX) { | 290 | if (status == LUA_ERRSYNTAX) { |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.c,v 2.215 2014/06/10 18:53:18 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 2.216 2014/06/19 18:27:20 roberto Exp roberto $ |
3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -239,7 +239,7 @@ void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val) { | |||
239 | luaT_callTM(L, tm, t, key, val, 0); | 239 | luaT_callTM(L, tm, t, key, val, 0); |
240 | return; | 240 | return; |
241 | } | 241 | } |
242 | t = tm; /* else repeat assginment over 'tm' */ | 242 | t = tm; /* else repeat assignment over 'tm' */ |
243 | } | 243 | } |
244 | luaG_runerror(L, "settable chain too long; possible loop"); | 244 | luaG_runerror(L, "settable chain too long; possible loop"); |
245 | } | 245 | } |