Commit: 243d3a37aeba7ab834b127091ab32f11c1b82782 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Révision: 243d3a37aeba7ab834b127091ab32f11c1b82782 (tree)
• l'heure: 2019-02-17 17:29:13
• Auteur: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Message de Log

Restrict using previously deleted memory for permanent purpose.

Change Summary

• modified: mips/megalopa/class.txt
• modified: mips/megalopa/debug.c
• modified: mips/megalopa/help.txt
• modified: mips/megalopa/memory.c

Modification

--- a/mips/megalopa/class.txt
+++ b/mips/megalopa/class.txt
@@ -119,8 +119,8 @@ DELETEするだけではこれらの領域は破棄されません。その場
 ＜フィールドへのアクセス方法＞
 
 パブリックフィールドへアクセスする場合は、オブジェクトを含む変数に続けて「.」と
-フィールド名を記述して下さい。フィールドが文字列の場合は「$」を後ろに付けて下さ
-い。
+フィールド名を記述して下さい。フィールドが文字列の場合は「$」を、実数の場合は
+「#」を、それぞれ後ろに付けて下さい。
 
 記述例：
 　USECLASS CLASS1
@@ -132,8 +132,8 @@ DELETEするだけではこれらの領域は破棄されません。その場
 
 パブリックメソッドへアクセスする場合は、オブジェクトを含む変数に続けて「.」と
 メソッド名、続けて「( )」を記述して下さい。メソッドが戻り値として文字列を返す場
-合、メソッド名の後ろに「$」を付けて下さい。メソッドは関数と同じ扱いですが、戻
-り値を利用しない場合は、CALL命令により呼び出す事も出来ます。
+合、メソッド名の後ろに「$」を付けて下さい（実数の場合は「#」）。メソッドは関数
+と同じ扱いですが、戻り値を利用しない場合は、CALL命令により呼び出す事も出来ます。
 
 CALL x
 	xで指定されたオブジェクトのメソッドを呼び出す。

--- a/mips/megalopa/debug.c
+++ b/mips/megalopa/debug.c
@@ -229,14 +229,21 @@ static const char initext[]=
 
 
 static const char bastext[]=
-"USECLASS CLASS1,CLASS2\n"
+"USECLASS CLASS1\n"
 "CLS\n"
-"CLASS1::T1=123\n"
-"CLASS2::T2=456\n"
-"print CLASS1::T3(),\n"
-"print CLASS2::T4(),\n"
-"print CLASS1::T5(),\n"
-"print CLASS2::T6(),\n"
+"dim o(9)\n"
+"for j=1 to 100\n"
+" cursor 0,0\n"
+" for i=1 to 9\n"
+"   o(i)=new(CLASS1)\n"
+" next\n"
+" for i=1 to 9\n"
+"  a=o(i)\n"
+"  print hex$(a),\n"
+"  delete a\n"
+" next\n"
+"next\n"
+"\n"
 "\n"
 "\n";
 

--- a/mips/megalopa/help.txt
+++ b/mips/megalopa/help.txt
@@ -723,6 +723,10 @@ FIELD [PUBLIC] x[,y[,z[, ... ]]]
 FIELD PRIVATE x[,y[,z[, ... ]]]
 	クラスファイル中で、プライベートフィールドを宣言する。x,y,z等はフィールド
 	名を6文字以内の英数字で指定。
+STATIC [PUBLIC] x[,y[,z[, ... ]]]
+	クラスファイル中で、パブリックスなタティック変数を宣言する。"PUBLIC"は省略可。
+STATIC PRIVATE x[,y[,z[, ... ]]]
+	クラスファイル中で、プライベートなスタティック変数を宣言する。USEVARと同じ。
 METHOD x
 	クラスファイル中で、メソッドを宣言する。xは、メソッド名を6文字以内の英
 	数字で指定。
@@ -735,10 +739,10 @@ CALL x
 	xで指定されたオブジェクトのメソッドを呼び出す。
 
 ＜ヒント＞
-FOR-NEXTループ、WHILE-WENDループ、DO-LOOPループの途中で、GOTO文でループの
-外に飛んだり、RETURN文を実行したりすると、予期せぬ結果（機器のリセット等）を
-引き起こします。ただし、GOSUB文でサブルーチンを呼んだり、別のループをネスト
-して使う事は可能です。
+KM-1302以降、FOR-NEXTループ、WHILE-WENDループ、DO-LOOPループの途中で、
+RETURN文が使えるようになりました。ただし、GOTO文でループの外に飛ぶと、予期せぬ結
+果（機器のリセット等）を引き起こします。ただし、GOSUB文でサブルーチンを呼んだり、別の
+ループをネストして使う事は可能です。
 
 ON GOTO分やON GOSUB文はサポートしていません。ただし、例えば次のように記述す
 ることで、同様の動作をさせることは可能です。

--- a/mips/megalopa/memory.c
+++ b/mips/megalopa/memory.c
@@ -32,15 +32,17 @@ static int g_deleted_num;
 static int g_deleted_pointer[DELETE_LIST_SIZE];
 static int g_deleted_size[DELETE_LIST_SIZE];
 
-
-#define register_deleted_block(x,y) \
-	do {\
-		if (g_deleted_num<DELETE_LIST_SIZE) {\
-			g_deleted_pointer[g_deleted_num]=(x);\
-			g_deleted_size[g_deleted_num]=(y);\
-			g_deleted_num++;\
-		}\
-	} while(0)
+void register_deleted_block(int pointer, int size){
+	// There is maximum
+	if (DELETE_LIST_SIZE<=g_deleted_num) return;
+	if (g_deleted_num) {
+		// Avoid duplication
+		if (g_deleted_pointer[g_deleted_num-1]==pointer) return;
+	}
+	g_deleted_pointer[g_deleted_num]=pointer;
+	g_deleted_size[g_deleted_num]=size;
+	g_deleted_num++;
+} 
 
 void set_free_area(void* begin, void* end){
 	// Initialize heap area
@@ -106,21 +108,26 @@ void* _alloc_memory_main(int size, int var_num){
 	g_var_size[var_num]=0;
 	g_var_pointer[var_num]=0;
 	while(1){
-		// Try the block previously deleted
-		candidate=0;
-		while(g_deleted_num){
-			// Check if the last deleted block fits
-			// If not, these cannot be used anymore
-			g_deleted_num--;
-			if (size<=g_deleted_size[g_deleted_num]) {
-				candidate=g_deleted_pointer[g_deleted_num];
+		// Try the block previously deleted, not for temporary block.
+		// This is for fast allocation of memory for class object.
+		// Note that the temporary areas can be invaded for following purpose
+		// because these are temporary ones.
+		if (var_num<26 || ALLOC_VAR_NUM<=var_num) {
+			candidate=0;
+			while(g_deleted_num){
+				// Check if the last deleted block fits
+				// If not, these cannot be used anymore
+				g_deleted_num--;
+				if (size<=g_deleted_size[g_deleted_num]) {
+					candidate=g_deleted_pointer[g_deleted_num];
+					break;
+				}
+			}
+			if (candidate || g_deleted_num) {
+				// Candidate found
 				break;
 			}
 		}
-		if (candidate || g_deleted_num) {
-			// Candidate found
-			break;
-		}
 		// Try the block after last block
 		candidate=0;
 		for(i=0;i<ALLOC_BLOCK_NUM;i++){
@@ -193,7 +200,7 @@ void free_non_temp_str(char* str){
 		}
 	}
 	for(i=ALLOC_VAR_NUM;i<ALLOC_BLOCK_NUM;i++){
-		if (g_var_pointer[i]==pointer && g_var_size[i]) {
+		if (g_var_pointer[i]==pointer) {
 			if (g_var_size[i] && g_var_mem[i]==(int)str) {
 				register_deleted_block(pointer,g_var_size[i]);
 				g_var_size[i]=0;