Changeset 86 in dev for BasicCompiler32

Timestamp:

Mar 30, 2007, 5:12:12 AM (18 years ago)

Author:

dai_9181

Message:

pSubStaticMethod_System_TypeBase_InitializeUserTypesを追加

Location:

BasicCompiler32

Files:

• Compile_ProcOp.cpp (modified) (15 diffs)
• MakePeHdr.cpp (modified) (2 diffs)

BasicCompiler32/Compile_ProcOp.cpp

@@ -3 +3 @@
 
 
-void SystemProc( const char *name ){
-    if(lstrcmp(name,"_System_GetEip")==0){
+void SystemProc( const UserProc &userProc ){
+    if( userProc.GetName() == "_System_GetEip" ){
         //mov eax,dword ptr[esp]
         OpBuffer[obp++]=(char)0x8B;
@@ -13 +13 @@
         OpBuffer[obp++]=(char)0xC3;
     }
-    else if(lstrcmp(name,"_System_InitDllGlobalVariables")==0){
+    else if( userProc.GetName() == "_System_InitDllGlobalVariables" ){
         ////////////////////////////////////////
         // DLLのグローバル領域をコンパイル
@@ -54 +54 @@
         OpBuffer[obp++]=(char)0xC3;
     }
-    else if(lstrcmp(name,"_System_InitStaticLocalVariables")==0){
+    else if( userProc.GetName() == "_System_InitStaticLocalVariables" ){
         //静的ローカルオブジェクトのコンストラクタ呼び出し
 
@@ -77 +77 @@
         OpBuffer[obp++]=(char)0xC3;
     }
-    else if(lstrcmp(name,"_System_Call_Destructor_of_GlobalObject")==0){
+    else if( userProc.GetName() == "_System_Call_Destructor_of_GlobalObject" ){
 
         UserProc *pBackUserProc;
@@ -91 +91 @@
         OpBuffer[obp++]=(char)0xC3;
     }
-    else if(lstrcmp(name,"_System_GetSp")==0){
+    else if( userProc.GetName() == "_System_GetSp" ){
         //mov eax,esp
         op_mov_RR(REG_EAX,REG_ESP);
@@ -101 +101 @@
         OpBuffer[obp++]=(char)0xC3;
     }
-    else if(lstrcmp(name,"_allrem")==0){
+    else if( userProc.GetName() == "_allrem" ){
         //乗除演算用の特殊関数（64ビット整数対応）
         BYTE Buffer_allrem[]={
@@ -110 +110 @@
         obp+=178;
     }
-    else if(lstrcmp(name,"_aullrem")==0){
+    else if( userProc.GetName() == "_aullrem" ){
         //乗除演算用の特殊関数（64ビット整数対応）
         BYTE Buffer_aullrem[]={
@@ -127 +127 @@
         obp+=117;
     }
-    else if(lstrcmp(name,"_allmul")==0){
+    else if( userProc.GetName() == "_allmul" ){
         //乗算用の特殊関数（64ビット整数対応）
         BYTE Buffer_allmul[]={
@@ -136 +136 @@
         obp+=52;
     }
-    else if(lstrcmp(name,"_alldiv")==0){
+    else if( userProc.GetName() == "_alldiv" ){
         //除算用の特殊関数（64ビット整数対応）
         BYTE Buffer_alldiv[]={
@@ -145 +145 @@
         obp+=170;
     }
-    else if(lstrcmp(name,"_aulldiv")==0){
+    else if( userProc.GetName() == "_aulldiv" ){
         //整数除算用の特殊関数（64ビット整数対応）
         BYTE Buffer_aulldiv[]={
@@ -161 +161 @@
         obp+=104;
     }
-    else if(lstrcmp(name,"_allshl")==0){
+    else if( userProc.GetName() == "_allshl" ){
         //符号あり左ビットシフト用の特殊関数（64ビット整数対応）
         BYTE Buffer_allshl[]={
@@ -170 +170 @@
         obp+=31;
     }
-    else if(lstrcmp(name,"_allshr")==0){
+    else if( userProc.GetName() == "_allshr" ){
         //符号あり右ビットシフト用の特殊関数（64ビット整数対応）
         BYTE Buffer_allshr[]={
@@ -179 +179 @@
         obp+=33;
     }
-    else if(lstrcmp(name,"_aullshr")==0){
+    else if( userProc.GetName() == "_aullshr" ){
         //符号なし右ビットシフト用の特殊関数（64ビット整数対応）
         BYTE Buffer_aullshr[]={
@@ -204 +204 @@
         obp+=31;
     }
+    else if( userProc.GetName() == "InitializeUserTypes" ){
+    }
     else{
         SetError();
@@ -245 +247 @@
         AllLocalVarSize=0;
 
-        SystemProc(pUserProc->GetName().c_str());
+        SystemProc(*pUserProc);
 
         pUserProc->endOpAddress=obp;

BasicCompiler32/MakePeHdr.cpp

@@ -26 +26 @@
     *pSub_System_GC_malloc_ForObjectPtr,
     *pSub_System_GC_free_for_SweepingDelete,
+    *pSubStaticMethod_System_TypeBase_InitializeUserTypes,
 
     *pSub_allrem,
@@ -245 +246 @@
     if( pSub_System_GC_free_for_SweepingDelete = GetSubHash( "_System_GC_free_for_SweepingDelete",1 ) )
         pSub_System_GC_free_for_SweepingDelete->Using();
+
+    if( pSubStaticMethod_System_TypeBase_InitializeUserTypes = GetSubHash( "_System_TypeBase.InitializeUserTypes",1 ) ){
+        pSubStaticMethod_System_TypeBase_InitializeUserTypes->Using();
+        pSubStaticMethod_System_TypeBase_InitializeUserTypes->ThisIsSystemProc();
+    }
 
     pSub_allrem=GetSubHash("_allrem");