nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

detail (cleaned whitespaces at end of lines)

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2011-07-15 09:50:29 -03:00
parent 559bb554c9
commit 32a12e2f3f
4 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lcode.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lcode.c,v 2.55 2011/05/31 18:24:36 roberto Exp roberto $ ** $Id: lcode.c,v 2.56 2011/05/31 18:27:56 roberto Exp roberto $
** Code generator for Lua ** Code generator for Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -44,8 +44,8 @@ void luaK_nil (FuncState *fs, int from, int n) {
int pl = pfrom + GETARG_B(*previous); int pl = pfrom + GETARG_B(*previous);
if ((pfrom <= from && from <= pl + 1) || if ((pfrom <= from && from <= pl + 1) ||
(from <= pfrom && pfrom <= l + 1)) { /* can connect both? */ (from <= pfrom && pfrom <= l + 1)) { /* can connect both? */
if (pfrom < from) from = pfrom; /* from = min(from, pfrom) */ if (pfrom < from) from = pfrom; /* from = min(from, pfrom) */
if (pl > l) l = pl; /* l = max(l, pl) */ if (pl > l) l = pl; /* l = max(l, pl) */
SETARG_A(*previous, from); SETARG_A(*previous, from);
SETARG_B(*previous, l - from); SETARG_B(*previous, l - from);
return; return;

4
lctype.h
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lctype.h,v 1.10 2011/06/24 12:25:33 roberto Exp roberto $ ** $Id: lctype.h,v 1.11 2011/06/27 18:22:46 roberto Exp roberto $
** 'ctype' functions for Lua ** 'ctype' functions for Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -11,7 +11,7 @@
/* /*
** WARNING: the functions defined here do not necessarily correspond ** WARNING: the functions defined here do not necessarily correspond
** to the similar functions in the standard C ctype.h. They are ** to the similar functions in the standard C ctype.h. They are
** optimized for the specific needs of Lua ** optimized for the specific needs of Lua
*/ */

4
lopcodes.h
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lopcodes.h,v 1.140 2011/04/07 18:14:12 roberto Exp roberto $ ** $Id: lopcodes.h,v 1.141 2011/04/19 16:22:13 roberto Exp roberto $
** Opcodes for Lua virtual machine ** Opcodes for Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -196,7 +196,7 @@ OP_LEN,/* A B R(A) := length of R(B) */
OP_CONCAT,/* A B C R(A) := R(B).. ... ..R(C) */ OP_CONCAT,/* A B C R(A) := R(B).. ... ..R(C) */
OP_JMP,/* A sBx pc+=sBx; if (A) close all upvalues >= R(A) + 1 */ OP_JMP,/* A sBx pc+=sBx; if (A) close all upvalues >= R(A) + 1 */
OP_EQ,/* A B C if ((RK(B) == RK(C)) ~= A) then pc++ */ OP_EQ,/* A B C if ((RK(B) == RK(C)) ~= A) then pc++ */
OP_LT,/* A B C if ((RK(B) < RK(C)) ~= A) then pc++ */ OP_LT,/* A B C if ((RK(B) < RK(C)) ~= A) then pc++ */
OP_LE,/* A B C if ((RK(B) <= RK(C)) ~= A) then pc++ */ OP_LE,/* A B C if ((RK(B) <= RK(C)) ~= A) then pc++ */

6
lparser.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lparser.c,v 2.112 2011/06/27 18:18:59 roberto Exp roberto $ ** $Id: lparser.c,v 2.113 2011/07/02 15:58:14 roberto Exp roberto $
** Lua Parser ** Lua Parser
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -418,7 +418,7 @@ static void movegotosout (FuncState *fs, BlockCnt *bl) {
int i = bl->firstgoto; int i = bl->firstgoto;
Labellist *gl = &fs->ls->dyd->gt; Labellist *gl = &fs->ls->dyd->gt;
/* correct pending gotos to current block and try to close it /* correct pending gotos to current block and try to close it
with visible labels */ with visible labels */
while (i < gl->n) { while (i < gl->n) {
Labeldesc *gt = &gl->arr[i]; Labeldesc *gt = &gl->arr[i];
if (gt->nactvar > bl->nactvar) { if (gt->nactvar > bl->nactvar) {
@@ -1190,7 +1190,7 @@ static void checkrepeated (FuncState *fs, Labellist *ll, TString *label) {
int i; int i;
for (i = fs->bl->firstlabel; i < ll->n; i++) { for (i = fs->bl->firstlabel; i < ll->n; i++) {
if (eqstr(label, ll->arr[i].name)) { if (eqstr(label, ll->arr[i].name)) {
const char *msg = luaO_pushfstring(fs->ls->L, const char *msg = luaO_pushfstring(fs->ls->L,
"label " LUA_QS " already defined on line %d", "label " LUA_QS " already defined on line %d",
getstr(label), ll->arr[i].line); getstr(label), ll->arr[i].line);
semerror(fs->ls, msg); semerror(fs->ls, msg);