GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-14 05:43:00 +08:00
Code Issues Projects Releases Wiki Activity

small bug corrected

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1994-11-17 19:11:37 -02:00
parent a84aa11f71
commit aa4cd37adf
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lua.stx
View File

@ -1,6 +1,6 @@
%{ %{
char *rcs_luastx = "$Id: lua.stx,v 3.7 1994/11/17 18:59:06 roberto Exp roberto $"; char *rcs_luastx = "$Id: lua.stx,v 3.8 1994/11/17 19:09:46 roberto Exp roberto $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@ -237,9 +237,6 @@ function : FUNCTION NAME
Word func = luaI_findsymbol($2); Word func = luaI_findsymbol($2);
s_tag(func) = LUA_T_FUNCTION; s_tag(func) = LUA_T_FUNCTION;
s_bvalue(func) = $4; s_bvalue(func) = $4;
#if LISTING
PrintCode(funcCode,funcCode+pc);
#endif
} }
; ;
@ -251,9 +248,6 @@ method : FUNCTION NAME ':' NAME
} }
body body
{ {
#if LISTING
PrintCode(funcCode,funcCode+pc);
#endif
/* assign function to table field */ /* assign function to table field */
pc=maincode; basepc=*initcode; maxcurr=maxmain; pc=maincode; basepc=*initcode; maxcurr=maxmain;
nlocalvar=0; nlocalvar=0;
@ -273,6 +267,9 @@ body : '(' parlist ')' block END
$$ = newvector(pc, Byte); $$ = newvector(pc, Byte);
memcpy($$, basepc, pc*sizeof(Byte)); memcpy($$, basepc, pc*sizeof(Byte));
funcCode = basepc; maxcode=maxcurr; funcCode = basepc; maxcode=maxcurr;
#if LISTING
PrintCode(funcCode,funcCode+pc);
#endif
} }
; ;
@ -692,7 +689,10 @@ static void codeIf (Long thenAdd, Long elseAdd)
{ {
Long elseinit = elseAdd+sizeof(Word)+1; Long elseinit = elseAdd+sizeof(Word)+1;
if (pc == elseinit) /* no else */ if (pc == elseinit) /* no else */
{
pc -= sizeof(Word)+1; pc -= sizeof(Word)+1;
elseinit = pc;
}
else else
{ {
basepc[elseAdd] = JMP; basepc[elseAdd] = JMP;