Commit: 8f8f7404e4911d01d5bc31708137ce2277b5efe3 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Revisão: 8f8f7404e4911d01d5bc31708137ce2277b5efe3 (tree)
• Hora: 2019-05-15 04:50:35
• Autor: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Mensagem de Log

CLIB: Call init() at beginning of execution but at compiling.

Mudança Sumário

• modified: mips/clib/clib.c
• modified: mips/clib/clib_p32MX370F512H.ld
• modified: mips/clib/nbproject/Makefile-genesis.properties
• modified: mips/megalopa/clib.c
• modified: mips/megalopa/clib.txt
• modified: mips/megalopa/compiler.h
• modified: mips/megalopa/debug.c
• modified: mips/megalopa/help.txt
• modified: mips/megalopa/megalopa.mcp

Diff

--- a/mips/clib/clib.c
+++ b/mips/clib/clib.c
@@ -39,12 +39,13 @@ const void* const clibdata[]={
  * static start address at 0xA0008000. When editing this function is required,
  * the size of kseg2_program_mem and address of kseg0_program_mem 
  * in linker script must be changed.
+ * This function is called twice, for exchanging data and for calling init().
  */
 void* CLIBINIT clib_init(void** data){
 	// Store pointer to data
-	g_data=data;
+	if (data) g_data=data;
 	// Call user initialization routine
-	init();
+	else init();
 	// Return pointer to clibdata
 	return (void*)&clibdata[0];
 }

--- a/mips/clib/clib_p32MX370F512H.ld
+++ b/mips/clib/clib_p32MX370F512H.ld
@@ -103,8 +103,8 @@ _GEN_EXCPT_ADDR                = _ebase_address + 0x180;
 MEMORY
 {
   kseg1_data_mem       (w!x)  : ORIGIN = (0xA0008000-0x080), LENGTH = 0x080
-  kseg2_program_mem     (rx)  : ORIGIN = (0xA0008000)      , LENGTH = 0x040
-  kseg0_program_mem     (rx)  : ORIGIN = (0xA0008000+0x040), LENGTH = (0x18000-0x040)
+  kseg2_program_mem     (rx)  : ORIGIN = (0xA0008000)      , LENGTH = 0x050
+  kseg0_program_mem     (rx)  : ORIGIN = (0xA0008000+0x050), LENGTH = (0x18000-0x050)
   kseg0_boot_mem              : ORIGIN = (0x9D006000+0x1000+0x490), LENGTH = 0 /* dummy */
   exception_mem               : ORIGIN = 0x9D006000, LENGTH = 0x1000
   kseg1_boot_mem              : ORIGIN = (0x9D006000+0x1000), LENGTH = 0x490

--- a/mips/clib/nbproject/Makefile-genesis.properties
+++ b/mips/clib/nbproject/Makefile-genesis.properties
@@ -1,5 +1,5 @@
 #
-#Sun May 12 18:25:29 PDT 2019
+#Tue May 14 12:14:44 PDT 2019
 default.com-microchip-mplab-nbide-toolchainXC32-XC32LanguageToolchain.md5=f2639e8ffe4e3a80ef2cdaeba61da340
 default.languagetoolchain.dir=C\:\\Program Files\\Microchip\\xc32\\v1.42\\bin
 configurations-xml=d396d647be909bd57511217de4e29ec7

--- a/mips/megalopa/clib.c
+++ b/mips/megalopa/clib.c
@@ -195,6 +195,10 @@ char* clib_main(){
 	}
 	// Initial assembly is a jump statement to jump to the the following routine.
 	g_object[0]=0x08000000 | ((((int)(&g_object[g_objpos]))&0x0FFFFFFF)>>2); // j xxxxxxxx
+	// Insert initialization code
+	g_object[g_objpos++]=0x3C050000|((((unsigned int)(0xA0008000+adjust))>>16)&0x0000FFFF); // lui   a1,xxxx
+	g_object[g_objpos++]=0x34A50000|(((unsigned int)(0xA0008000+adjust))&0x0000FFFF);       // ori a1,a1,xxxx
+	call_quicklib_code(call_clib_init,ASM_ADDIU_A0_ZERO_ | 0);
 	// All done
 	return 0;
 }

--- a/mips/megalopa/clib.txt
+++ b/mips/megalopa/clib.txt
@@ -78,7 +78,7 @@ example.cを編集(必要ならばファイル名を変更)する事で、Cラ
 Cライブラリーを作成するにあたり、以下の規約に従って下さい。
 
 １．グローバル変数・スタティック変数領域の容量は、128バイト。
-　・５０個ほどのグローバル変数・スタティック変数が使用可能。
+　・２０個ほどのグローバル変数・スタティック変数が使用可能。
 　・大きなメモリー領域が必要な場合は、malloc(), calloc(), free()を使用する。
 　・グローバル変数の初期化は、init()関数で行なわなければならない。
 　・スタティック変数は実行前の初期化はできない（常に０で初期化される）。

--- a/mips/megalopa/compiler.h
+++ b/mips/megalopa/compiler.h
@@ -517,9 +517,10 @@ char* hex_construct_line();
 #define ASM_ADDU_A1_V0_ZERO 0x00402821
 #define ASM_ADDU_A2_V0_ZERO 0x00403021
 #define ASM_ADDU_A3_V0_ZERO 0x00403821
-#define ASM_ORI_A0_ZERO_ 0x34040000
-#define ASM_LW_A0_XXXX_S8 0x8FC40000
-#define ASM_LW_A0_XXXX_S5 0x8EA40000
+#define ASM_ORI_A0_ZERO_    0x34040000
+#define ASM_ADDIU_A0_ZERO_  0x24040000
+#define ASM_LW_A0_XXXX_S8   0x8FC40000
+#define ASM_LW_A0_XXXX_S5   0x8EA40000
 
 // Interrupt macros
 // 32 different type interruptions are possible

--- a/mips/megalopa/debug.c
+++ b/mips/megalopa/debug.c
@@ -262,35 +262,28 @@ static const char class2text[]=
 static const char hextext[]=
 ":020000040000fa\n"
 ":1080000000001c3c707f9c2721e09903e0ffbd2706\n"
-":108010001c00bfaf1000bcaf1880828f000044acc2\n"
-":108020001c80998f09f82003000000001000bc8f0d\n"
-":108030002080828f1c00bf8f0800e0032000bd2736\n"
+":108010001c00bfaf1000bcaf030080101880828f1f\n"
+":1080200005000010000044ac1c80998f09f8200363\n"
+":10803000000000001000bc8f2080828f1c00bf8fca\n"
+":088040000800e0032000bd2749\n"
 ":020000040000fa\n"
-":107f80000000000000000080a87f00a0408000a04a\n"
-":107f9000408100a0000001a0f08000a0048100a0aa\n"
-":087fa000488000a00000000071\n"
+":107f80000000000000000080a07f00a0508000a042\n"
+":107f9000dc8000a0000001a0588000a000000000cc\n"
 ":020000040000fa\n"
-":108040000800e0030000000000001c3c287f9c2783\n"
-":1080500021e09903040080542480828f2480828f41\n"
-":108060000800e003188142240800e003288142242c\n"
-":1080700000001c3c007f9c2721e09903d8ffbd270e\n"
-":108080002400bfaf2000b1af1c00b0af1000bcafe8\n"
-":10809000218880001880908f040004240000058e41\n"
-":1080a0002880998f09f82003000000001000bc8f81\n"
-":1080b000212040000000058e2c80998f09f82003b4\n"
-":1080c000000000001000bc8f212020023080998f1a\n"
-":1080d00009f82003000000001000bc8f2400bf8faf\n"
-":1080e0002000b18f1c00b08f0800e0032800bd27de\n"
-":1080f0000000a28c080040000800bc8c0800e003cf\n"
-":10810000000000000400a28c080040000800bc8ca5\n"
-":088110000800e003000000007c\n"
+":108050000800e0030000000000001c3c187f9c2783\n"
+":1080600021e09903040080542480828f2480828f31\n"
+":108070000800e003b48042240800e003c4804224e6\n"
+":1080800000001c3cf07e9c2721e09903e0ffbd2707\n"
+":108090001c00bfaf1000bcaf2880998f09f82003e7\n"
+":1080a000000000001000bc8f1c00bf8f0800e00320\n"
+":0480b0002000bd27c8\n"
 ":020000040000fa\n"
-":1081180048656c6c6f20576f726c6421000000001a\n"
-":108128005468697320697320612074657374000052\n"
-":088138005445535400000000ff\n"
+":1080b40048656c6c6f20576f726c6421000000007f\n"
+":1080c40054686973206973206120746573740000b7\n"
+":0880d400544553540000000064\n"
 ":020000040000fa\n"
-":108140004001000080000000508100a000000000fd\n"
-":0c815000388100a0708000a0000000003a\n"
+":1080dc004001000080000000ec8000a000000000c7\n"
+":0c80ec00d48000a0808000a000000000f4\n"
 ":00000001FF\n"
 ;
 

--- a/mips/megalopa/help.txt
+++ b/mips/megalopa/help.txt
@@ -837,6 +837,26 @@ DELETE x[,y[,z[, ... ]]]
 CALL x
 	xで指定されたオブジェクトのメソッドを呼び出す。「CALL」は省略可。
 
+＜Cライブラリー呼び出し機能＞
+Cライブラリーの使い方について、詳しくはclib.txtを参照して下さい。以下は、関連す
+る命令と関数です。
+
+USECLIB x[,y[,z[, ... ]]]
+	Cライブラリーの利用を宣言する。x,y,z等は、ライブラリー名を6文字以内の英数字
+	で指定。
+CLIB xxx::yyy[,z1[,z2 ...]]
+	Cライブラリー内の関数を呼び出す。xxxはライブラリー名、yyyは関数名。z1, z2等
+	は引数（オプション）。
+CLIB(xxx::yyy[,z1[,z2 ... ]])
+	Cライブラリー内の関数を呼び出し、整数を返す。xxxはライブラリー名、yyyは関数
+	名。z1, z2等は引数（オプション）。xxx::yyy([z1[,z2 ... ]])と書いても同じ。
+CLIB$(xxx::yyy[,z1[,z2 ... ]])
+	Cライブラリー内の関数を呼び出し、文字列を返す。xxxはライブラリー名、yyyは関
+	数名。z1, z2等は引数（オプション）。xxx::yyy$([z1[,z2 ... ]])と書いても同じ。
+CLIB#(xxx::yyy[,z1[,z2 ... ]])
+	Cライブラリー内の関数を呼び出し、実数を返す。xxxはライブラリー名、yyyは関
+	数名。z1, z2等は引数（オプション）。xxx::yyy#([z1[,z2 ... ]])と書いても同じ。
+
 ＜ヒント＞
 MachiKania ver 1.2 以降、FOR-NEXTループ、WHILE-WENDループ、DO-LOOPループの途中で、
 RETURN文が使えるようになりました。ただし、GOTO文でループの外に飛ぶと、予期せぬ結
@@ -863,7 +883,10 @@ ON GOTO分やON GOSUB文はサポートしていません。ただし、例え
 を扱いたい場合は、同名の変数をVAR指定しないようにして下さい。
 
 ＜バージョン履歴＞
-・KM-1303 2019年？月公開。
+・KM-1304 2019年？月公開。
+　・Cライブラリー呼び出し機能を追加
+　・特殊な状況でクラス読み込みに失敗する不具合を修正。
+・KM-1303 2019年5月公開。
 　・タイマー機能(USETIMER,TIMER, CORETIMERステートメントとTIMER(), CORETIMER()関
 　　数)を追加。
 　・割り込み機能(INTERRUPTステートメント)を追加。

--- a/mips/megalopa/megalopa.mcp
+++ b/mips/megalopa/megalopa.mcp
@@ -74,6 +74,7 @@ file_046=.
 file_047=.
 file_048=.
 file_049=.
+file_050=.
 [GENERATED_FILES]
 file_000=no
 file_001=no
@@ -125,6 +126,7 @@ file_046=no
 file_047=no
 file_048=no
 file_049=no
+file_050=no
 [OTHER_FILES]
 file_000=no
 file_001=no
@@ -176,6 +178,7 @@ file_046=yes
 file_047=yes
 file_048=yes
 file_049=yes
+file_050=yes
 [FILE_INFO]
 file_000=compiler.c
 file_001=debug.c
@@ -227,6 +230,7 @@ file_046=help.txt
 file_047=reservednames.js
 file_048=class.txt
 file_049=sharedfiles.js
+file_050=clib.txt
 [SUITE_INFO]
 suite_guid={62D235D8-2DB2-49CD-AF24-5489A6015337}
 suite_state=