aboutsummaryrefslogtreecommitdiff
path: root/lua.stx
diff options
context:
space:
mode:
Diffstat (limited to 'lua.stx')
-rw-r--r--lua.stx15
1 files changed, 11 insertions, 4 deletions
diff --git a/lua.stx b/lua.stx
index bd61cfb7..2dd21a3c 100644
--- a/lua.stx
+++ b/lua.stx
@@ -1,6 +1,6 @@
1%{ 1%{
2 2
3char *rcs_luastx = "$Id: lua.stx,v 3.11 1994/11/23 14:39:52 roberto Stab roberto $"; 3char *rcs_luastx = "$Id: lua.stx,v 3.12 1994/11/25 19:24:57 roberto Exp $";
4 4
5#include <stdio.h> 5#include <stdio.h>
6#include <stdlib.h> 6#include <stdlib.h>
@@ -418,9 +418,8 @@ functioncall : funcvalue funcParams
418funcvalue : varexp { $$ = 0; } 418funcvalue : varexp { $$ = 0; }
419 | varexp ':' NAME 419 | varexp ':' NAME
420 { 420 {
421 code_byte(PUSHSTRING);
422 code_word(luaI_findconstant($3));
423 code_byte(PUSHSELF); 421 code_byte(PUSHSELF);
422 code_word(luaI_findconstant($3));
424 $$ = 1; 423 $$ = 1;
425 } 424 }
426 ; 425 ;
@@ -830,7 +829,15 @@ static void PrintCode (Byte *code, Byte *end)
830 printf ("%d STOREGLOBAL %d\n", n, c.w); 829 printf ("%d STOREGLOBAL %d\n", n, c.w);
831 } 830 }
832 break; 831 break;
833 case PUSHSELF: printf ("%d PUSHSELF\n", (p++)-code); break; 832 case PUSHSELF:
833 {
834 CodeWord c;
835 int n = p-code;
836 p++;
837 get_word(c,p);
838 printf ("%d PUSHSELF %d\n", n, c.w);
839 }
840 break;
834 case STOREINDEXED0: printf ("%d STOREINDEXED0\n", (p++)-code); break; 841 case STOREINDEXED0: printf ("%d STOREINDEXED0\n", (p++)-code); break;
835 case STOREINDEXED: printf ("%d STOREINDEXED %d\n", p-code, *(++p)); 842 case STOREINDEXED: printf ("%d STOREINDEXED %d\n", p-code, *(++p));
836 p++; 843 p++;