Changeset 55 in dev for BasicCompiler32/Compile_Calc.cpp

Timestamp:

Feb 13, 2007, 3:14:57 AM (18 years ago)

Author:

dai_9181

Message:

・コマンドラインオプション "/unicode" に対応。
・Unicode文字セットを使用する場合に "UNICODE" が自動的に#defineされるようにしました。
・SByte型（8ビット符号付き整数型）を追加。
・Char型を文字型に変更。
・プロジェクトオプションから「Unicode文字セットを使用する」チェックを選択できるようにしました。

File:

• BasicCompiler32/Compile_Calc.cpp (modified) (8 diffs)

BasicCompiler32/Compile_Calc.cpp

@@ -78 +78 @@
             //符号あり
 
-            if(OldType==DEF_INTEGER){
+            if(OldType==DEF_INTEGER || (isUnicode&&OldType==DEF_CHAR)){
                 //pop eax
                 op_pop(REG_EAX);
@@ -90 +90 @@
                 op_push(REG_EAX);
             }
-            else if(OldType==DEF_CHAR){
+            else if(OldType==DEF_SBYTE || (isUnicode==false&&OldType==DEF_CHAR)){
                 //pop eax
                 op_pop(REG_EAX);
@@ -170 +170 @@
             //符号あり
 
-            if(OldType==DEF_INTEGER){
+            if(OldType==DEF_INTEGER || (isUnicode&&OldType==DEF_CHAR)){
                 //pop eax
                 op_pop(REG_EAX);
@@ -182 +182 @@
                 op_push(REG_EAX);
             }
-            else if(OldType==DEF_CHAR){
+            else if(OldType==DEF_SBYTE || (isUnicode==false&&OldType==DEF_CHAR)){
                 //pop eax
                 op_pop(REG_EAX);
@@ -320 +320 @@
     if(OldType==DEF_BOOLEAN||
         OldType==DEF_BYTE||
-        OldType==DEF_WORD||OldType==DEF_INTEGER) return;
-    else if(OldType==DEF_CHAR){
+        OldType==DEF_WORD||OldType==DEF_INTEGER || (isUnicode&&OldType==DEF_CHAR)) return;
+    else if(OldType==DEF_SBYTE || (isUnicode==false&&OldType==DEF_CHAR)){
         //pop eax
         op_pop(REG_EAX);
@@ -350 +350 @@
 void ChangeTypeToByte(int OldType){
     //現在のスタックの内容をbyte型に変換する
-    if(OldType==DEF_BYTE||OldType==DEF_CHAR) return;
+    if(OldType==DEF_BYTE||OldType==DEF_SBYTE || (isUnicode==false&&OldType==DEF_CHAR)) return;
 
     ChangeTypeToLong(OldType);
@@ -572 +572 @@
         SetBooleanVariable(CalcType,&VarRelativeVar);
     }
-    else if(VarType==DEF_CHAR||VarType==DEF_BYTE){
+    else if(VarType==DEF_SBYTE||VarType==DEF_BYTE || (isUnicode==false&&VarType==DEF_CHAR)){
         //8ビット整数型変数へスタックの内容を格納する
         Set8Variable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
     }
-    else if(VarType==DEF_INTEGER||VarType==DEF_WORD){
+    else if(VarType==DEF_INTEGER||VarType==DEF_WORD || (isUnicode&&VarType==DEF_CHAR)){
         //16ビット整数型変数へスタックの内容を格納する
         Set16Variable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
@@ -687 +687 @@
         SetBooleanVariable(CalcType,&VarRelativeVar);
     }
-    else if(VarType==DEF_CHAR||VarType==DEF_BYTE){
+    else if(VarType==DEF_SBYTE||VarType==DEF_BYTE || (isUnicode==false&&VarType==DEF_CHAR)){
         //8ビット整数型変数へスタックの内容を格納する
         Set8Variable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
     }
-    else if(VarType==DEF_INTEGER||VarType==DEF_WORD){
+    else if(VarType==DEF_INTEGER||VarType==DEF_WORD || (isUnicode&&VarType==DEF_CHAR)){
         //16ビット整数型変数へスタックの内容を格納する
         Set16Variable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);