BASIC compiler/interpreter for PIC32MX/MZ-80K
| Révision | 551724fdd991a0dedd0975f3108e7f986713e21c (tree) |
|---|---|
| l'heure | 2019-02-11 16:39:52 |
| Auteur | Katsumi <kmorimatsu@sour...> |
| Commiter | Katsumi |
Debug calling static method.
mips/megalopa/class.c (diff) mips/megalopa/debug.c (diff) mips/zoea/class.c (diff)| @@ -824,6 +824,7 @@ char* static_method(char type){ | ||
| 824 | 824 | |
| 825 | 825 | } |
| 826 | 826 | if (g_source[g_srcpos]!='(') return ERR_SYNTAX; |
| 827 | + g_srcpos++; | |
| 827 | 828 | // Begin parameter(s) construction routine |
| 828 | 829 | check_obj_space(1); |
| 829 | 830 | g_object[g_objpos++]=0x34020000; // ori v0,zero,0 |
| @@ -228,8 +228,7 @@ static const char initext[]= | ||
| 228 | 228 | static const char bastext[]= |
| 229 | 229 | "USECLASS CLASS1\n" |
| 230 | 230 | "CLS\n" |
| 231 | -"a=new(CLASS1)\n" | |
| 232 | -"print a.T3()\n" | |
| 231 | +"print CLASS1::T3()\n" | |
| 233 | 232 | "\n" |
| 234 | 233 | "\n" |
| 235 | 234 | "\n" |
| @@ -824,6 +824,7 @@ char* static_method(char type){ | ||
| 824 | 824 | |
| 825 | 825 | } |
| 826 | 826 | if (g_source[g_srcpos]!='(') return ERR_SYNTAX; |
| 827 | + g_srcpos++; | |
| 827 | 828 | // Begin parameter(s) construction routine |
| 828 | 829 | check_obj_space(1); |
| 829 | 830 | g_object[g_objpos++]=0x34020000; // ori v0,zero,0 |
Fork