提交: ca5f0398cddb6f8e974740a35a49d9cd4047b96f - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• 修訂: ca5f0398cddb6f8e974740a35a49d9cd4047b96f (tree)
• 時間: 2019-02-11 16:19:29
• 作者: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Log Message

Support using a class in another class.

Change Summary

• modified: mips/megalopa/file.c

差異

--- a/mips/megalopa/file.c
+++ b/mips/megalopa/file.c
@@ -109,7 +109,7 @@ char* compile_file(){
 }
 
 int compile_and_link_file(char* buff,char* appname){
-	int i;
+	int i,j;
 	char* err;
 
 	while(1){
@@ -129,7 +129,9 @@ int compile_and_link_file(char* buff,char* appname){
 
 		// If compiling a class file is required, do it.
 		if (err==ERR_COMPILE_CLASS) {
+			j=g_compiling_class;
 			i=compile_and_link_class(buff, g_class);
+			g_compiling_class=j;
 			if (i) return i;
 			// Continue compiling current file from the beginning.
 			continue;