diff options
-rw-r--r-- | lua.stx | 38 |
1 files changed, 20 insertions, 18 deletions
@@ -1,6 +1,6 @@ | |||
1 | %{ | 1 | %{ |
2 | 2 | ||
3 | char *rcs_luastx = "$Id: lua.stx,v 3.24 1995/10/26 14:21:56 roberto Exp roberto $"; | 3 | char *rcs_luastx = "$Id: lua.stx,v 3.25 1995/10/26 17:02:50 roberto Exp roberto $"; |
4 | 4 | ||
5 | #include <stdio.h> | 5 | #include <stdio.h> |
6 | #include <stdlib.h> | 6 | #include <stdlib.h> |
@@ -804,8 +804,8 @@ static void PrintCode (Byte *code, Byte *end) | |||
804 | p++; | 804 | p++; |
805 | break; | 805 | break; |
806 | case PUSHBYTE: | 806 | case PUSHBYTE: |
807 | printf ("%d PUSHBYTE %d\n", p-code, *(++p)); | 807 | printf ("%d PUSHBYTE %d\n", p-code, *(p+1)); |
808 | p++; | 808 | p+=2; |
809 | break; | 809 | break; |
810 | case PUSHWORD: | 810 | case PUSHWORD: |
811 | { | 811 | { |
@@ -850,8 +850,8 @@ static void PrintCode (Byte *code, Byte *end) | |||
850 | printf ("%d PUSHLOCAL%c\n", p-code, *p-PUSHLOCAL0+'0'); | 850 | printf ("%d PUSHLOCAL%c\n", p-code, *p-PUSHLOCAL0+'0'); |
851 | p++; | 851 | p++; |
852 | break; | 852 | break; |
853 | case PUSHLOCAL: printf ("%d PUSHLOCAL %d\n", p-code, *(++p)); | 853 | case PUSHLOCAL: printf ("%d PUSHLOCAL %d\n", p-code, *(p+1)); |
854 | p++; | 854 | p+=2; |
855 | break; | 855 | break; |
856 | case PUSHGLOBAL: | 856 | case PUSHGLOBAL: |
857 | { | 857 | { |
@@ -870,8 +870,8 @@ static void PrintCode (Byte *code, Byte *end) | |||
870 | p++; | 870 | p++; |
871 | break; | 871 | break; |
872 | case STORELOCAL: | 872 | case STORELOCAL: |
873 | printf ("%d STORELOCAL %d\n", p-code, *(++p)); | 873 | printf ("%d STORELOCAL %d\n", p-code, *(p+1)); |
874 | p++; | 874 | p+=2; |
875 | break; | 875 | break; |
876 | case STOREGLOBAL: | 876 | case STOREGLOBAL: |
877 | { | 877 | { |
@@ -892,25 +892,25 @@ static void PrintCode (Byte *code, Byte *end) | |||
892 | } | 892 | } |
893 | break; | 893 | break; |
894 | case STOREINDEXED0: printf ("%d STOREINDEXED0\n", (p++)-code); break; | 894 | case STOREINDEXED0: printf ("%d STOREINDEXED0\n", (p++)-code); break; |
895 | case STOREINDEXED: printf ("%d STOREINDEXED %d\n", p-code, *(++p)); | 895 | case STOREINDEXED: printf ("%d STOREINDEXED %d\n", p-code, *(p+1)); |
896 | p++; | 896 | p+=2; |
897 | break; | 897 | break; |
898 | case STORELIST0: | 898 | case STORELIST0: |
899 | printf("%d STORELIST0 %d\n", p-code, *(++p)); | 899 | printf("%d STORELIST0 %d\n", p-code, *(p+1)); |
900 | p++; | 900 | p+=2+; |
901 | break; | 901 | break; |
902 | case STORELIST: | 902 | case STORELIST: |
903 | printf("%d STORELIST %d %d\n", p-code, *(p+1), *(p+2)); | 903 | printf("%d STORELIST %d %d\n", p-code, *(p+1), *(p+2)); |
904 | p+=3; | 904 | p+=3; |
905 | break; | 905 | break; |
906 | case STORERECORD: | 906 | case STORERECORD: |
907 | printf("%d STORERECORD %d\n", p-code, *(++p)); | 907 | printf("%d STORERECORD %d\n", p-code, *(p+1)); |
908 | p += *p*sizeof(Word) + 1; | 908 | p += *p*sizeof(Word) + 2; |
909 | break; | 909 | break; |
910 | case ADJUST0: printf ("%d ADJUST0\n", (p++)-code); break; | 910 | case ADJUST0: printf ("%d ADJUST0\n", (p++)-code); break; |
911 | case ADJUST: | 911 | case ADJUST: |
912 | printf ("%d ADJUST %d\n", p-code, *(++p)); | 912 | printf ("%d ADJUST %d\n", p-code, *(p+1)); |
913 | p++; | 913 | p+=2; |
914 | break; | 914 | break; |
915 | case CREATEARRAY: | 915 | case CREATEARRAY: |
916 | { | 916 | { |
@@ -993,8 +993,8 @@ static void PrintCode (Byte *code, Byte *end) | |||
993 | break; | 993 | break; |
994 | case RETCODE0: printf ("%d RETCODE0\n", (p++)-code); break; | 994 | case RETCODE0: printf ("%d RETCODE0\n", (p++)-code); break; |
995 | case RETCODE: | 995 | case RETCODE: |
996 | printf ("%d RETCODE %d\n", p-code, *(++p)); | 996 | printf ("%d RETCODE %d\n", p-code, *(p+1)); |
997 | p++; | 997 | p+=2; |
998 | break; | 998 | break; |
999 | case SETLINE: | 999 | case SETLINE: |
1000 | { | 1000 | { |
@@ -1006,7 +1006,9 @@ static void PrintCode (Byte *code, Byte *end) | |||
1006 | } | 1006 | } |
1007 | break; | 1007 | break; |
1008 | 1008 | ||
1009 | default: printf ("%d Cannot happen: code %d\n", (p++)-code, *(p-1)); break; | 1009 | default: printf ("%d Cannot happen: code %d\n", p-code, *p)); |
1010 | p+=1; | ||
1011 | break; | ||
1010 | } | 1012 | } |
1011 | } | 1013 | } |
1012 | } | 1014 | } |