Changeset 55 in dev for BasicCompiler32

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

BasicCompiler32

Files:

• CParameter.cpp (modified) (1 diff)
• Compile_Calc.cpp (modified) (8 diffs)
• Compile_ProcOp.cpp (modified) (2 diffs)
• Compile_Set_Var.cpp (modified) (1 diff)
• Compile_Statement.cpp (modified) (1 diff)
• Compile_Var.cpp (modified) (3 diffs)
• NumOpe.cpp (modified) (5 diffs)
• NumOpe_TypeOperation.cpp (modified) (3 diffs)
• VarList.cpp (modified) (2 diffs)
• increment.cpp (modified) (3 diffs)

BasicCompiler32/CParameter.cpp

@@ -334 +334 @@
                 ParmSize+=sizeof(long);
             }
-            else if(DummyTypeInfo.type==DEF_INTEGER||DummyTypeInfo.type==DEF_WORD){
+            else if(DummyTypeInfo.type==DEF_INTEGER||DummyTypeInfo.type==DEF_WORD || (isUnicode&&DummyTypeInfo.type==DEF_CHAR)){
                 ChangeTypeToInteger(CalcType);
                 ParmSize+=sizeof(long);
             }
-            else if(DummyTypeInfo.type==DEF_CHAR||DummyTypeInfo.type==DEF_BYTE||DummyTypeInfo.type==DEF_BOOLEAN){
+            else if(DummyTypeInfo.type==DEF_SBYTE||DummyTypeInfo.type==DEF_BYTE||DummyTypeInfo.type==DEF_BOOLEAN || (isUnicode==false&&DummyTypeInfo.type==DEF_CHAR)){
                 ChangeTypeToByte(CalcType);
                 ParmSize+=sizeof(long);

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);

BasicCompiler32/Compile_ProcOp.cpp

@@ -774 +774 @@
             obp+=sizeof(long);
         }
-        else if(i3==DEF_INTEGER||i3==DEF_WORD){
+        else if(i3==DEF_INTEGER||i3==DEF_WORD || (isUnicode&&i3==DEF_CHAR)){
             //xor eax,eax（eaxを0に初期化する）
             op_zero_reg(REG_EAX);
@@ -786 +786 @@
             obp+=sizeof(long);
         }
-        else if(i3==DEF_CHAR||i3==DEF_BYTE||i3==DEF_BOOLEAN){
+        else if(i3==DEF_SBYTE||i3==DEF_BYTE||i3==DEF_BOOLEAN || (isUnicode==false&&i3==DEF_CHAR)){
             //xor eax,eax（eaxを0に初期化する）
             op_zero_reg(REG_EAX);

BasicCompiler32/Compile_Set_Var.cpp

@@ -804 +804 @@
 }
 void Set8Variable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
-    ChangeTypeToWhole(type,DEF_CHAR);
+    ChangeTypeToWhole(type,DEF_SBYTE);
 
     //pop eax

BasicCompiler32/Compile_Statement.cpp

@@ -990 +990 @@
     if(type1==DEF_INTEGER||
         type1==DEF_WORD||
-        type1==DEF_CHAR||
+        type1==DEF_SBYTE||
         type1==DEF_BYTE||
-        type1==DEF_BOOLEAN) CaseTypeSize=sizeof(long);
+        type1==DEF_BOOLEAN||
+        type1==DEF_CHAR) CaseTypeSize=sizeof(long);
     else{
         CaseTypeSize=GetTypeSize(type1,lpIndex);

BasicCompiler32/Compile_Var.cpp

@@ -872 +872 @@
         }
     }
-    else if(type==DEF_INTEGER||type==DEF_WORD)
+    else if(type==DEF_INTEGER||type==DEF_WORD || (isUnicode&&type==DEF_CHAR))
         *(WORD *)(initGlobalBuf+offset)=(WORD)i64data;
-    else if(type==DEF_CHAR||type==DEF_BYTE||type==DEF_BOOLEAN)
+    else if(type==DEF_SBYTE||type==DEF_BYTE||type==DEF_BOOLEAN || (isUnicode==false&&type==DEF_CHAR))
         *(BYTE *)(initGlobalBuf+offset)=(BYTE)i64data;
     //String型が未完成
@@ -1066 +1066 @@
         obp+=sizeof(long);
     }
-    else if(type==DEF_INTEGER||type==DEF_WORD){
+    else if(type==DEF_INTEGER||type==DEF_WORD || (isUnicode&&type==DEF_CHAR)){
         //mov ax,InitValue
         OpBuffer[obp++]=(char)0x66;
@@ -1081 +1081 @@
         obp+=sizeof(long);
     }
-    else if(type==DEF_CHAR||type==DEF_BYTE||type==DEF_BOOLEAN){
+    else if(type==DEF_SBYTE||type==DEF_BYTE||type==DEF_BOOLEAN || (isUnicode==false&&type==DEF_CHAR)){
         //mov byte ptr[ebp+offset],InitValue
         OpBuffer[obp++]=(char)0xC6;

BasicCompiler32/NumOpe.cpp

@@ -39 +39 @@
         op_push(REG_EAX);
     }
-    else if(type==DEF_INTEGER){
+    else if(type==DEF_INTEGER || (isUnicode&&type==DEF_CHAR)){
         //movsx ebx,ax
         OpBuffer[obp++]=(char)0x0F;
@@ -48 +48 @@
         op_push(REG_EBX);
     }
-    else if(type==DEF_CHAR){
+    else if(type==DEF_SBYTE || (isUnicode==false&&type==DEF_CHAR)){
         //movsx ebx,al
         OpBuffer[obp++]=(char)0x0F;
@@ -418 +418 @@
                             PushLongVariable(&RelativeVar);
                         }
-                        else if(i2==DEF_INTEGER){
+                        else if(i2==DEF_INTEGER || (isUnicode&&i2==DEF_CHAR)){
                             PushIntegerVariable(&RelativeVar);
                         }
@@ -424 +424 @@
                             PushWordVariable(&RelativeVar);
                         }
-                        else if(i2==DEF_CHAR){
+                        else if(i2==DEF_SBYTE || (isUnicode==false&&i2==DEF_CHAR)){
                             PushCharVariable(&RelativeVar);
                         }
@@ -739 +739 @@
             i3=(long)i64data;
 
-            if(i2==DEF_CHAR||i2==DEF_BYTE||i2==DEF_BOOLEAN) i3=i3&0x000000FF;
-            if(i2==DEF_INTEGER||i2==DEF_WORD) i3=i3&0x0000FFFF;
+            if(i2==DEF_SBYTE||i2==DEF_BYTE||i2==DEF_BOOLEAN || (isUnicode==false&&i2==DEF_CHAR)) i3=i3&0x000000FF;
+            if(i2==DEF_INTEGER||i2==DEF_WORD || (isUnicode&&i2==DEF_CHAR)) i3=i3&0x0000FFFF;
 
             //push term

BasicCompiler32/NumOpe_TypeOperation.cpp

@@ -51 +51 @@
         op_push(REG_EAX);
     }
-    else if(type==DEF_INTEGER){
+    else if(type==DEF_INTEGER || (isUnicode&&type==DEF_CHAR)){
         //pop eax
         op_pop(REG_EAX);
@@ -75 +75 @@
         op_push(REG_EAX);
     }
-    else if(type==DEF_CHAR){
+    else if(type==DEF_SBYTE || (isUnicode==false&&type==DEF_CHAR)){
         //pop eax
         op_pop(REG_EAX);
@@ -101 +101 @@
 }
 void ExtendStackTo16(int type){
-    if(type==DEF_CHAR){
+    if(type==DEF_SBYTE || (isUnicode==false&&type==DEF_CHAR)){
         //pop eax
         op_pop(REG_EAX);

BasicCompiler32/VarList.cpp

@@ -103 +103 @@
             else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
         }
-        else if(type==DEF_INTEGER){
+        else if(type==DEF_INTEGER || (isUnicode&&type==DEF_CHAR)){
             if(ReadProcessMemory(hDebugProcess,(void *)offset,&wData,sizeof(WORD),&dwAccessByte)){
                 sprintf(lptv->item.pszText,"%s %d(&H%X)",VarName,(short)wData,(short)wData);
@@ -115 +115 @@
             else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
         }
-        else if(type==DEF_CHAR){
+        else if(type==DEF_SBYTE || (isUnicode==false&&type==DEF_CHAR)){
             if(ReadProcessMemory(hDebugProcess,(void *)offset,&byteData,sizeof(BYTE),&dwAccessByte)){
                 temporary[0]=byteData;

BasicCompiler32/increment.cpp

@@ -80 +80 @@
 }
 void ExtendTypeTo32(int type,int reg){
-    if(type==DEF_INTEGER){
+    if(type==DEF_INTEGER || (isUnicode&&type==DEF_CHAR)){
         //movsx reg32,reg16
         op_movsx_R32R16(reg,reg);
@@ -88 +88 @@
         op_and_RV(reg,(int)0x0000FFFF);
     }
-    else if(type==DEF_CHAR){
+    else if(type==DEF_SBYTE || (isUnicode==false&&type==DEF_CHAR)){
         //movsx reg32,reg8
         op_movsx_R32R8(reg,reg);
@@ -98 +98 @@
 }
 void ExtendTypeTo16(int type,int reg){
-    if(type==DEF_CHAR){
+    if(type==DEF_SBYTE || (isUnicode==false&&type==DEF_CHAR)){
         //movsx reg16,reg8
         op_movsx_R16R8(reg,reg);