Changeset 90 in dev for BasicCompiler32

Timestamp:

Apr 7, 2007, 3:02:29 PM (17 years ago)

Author:

dai_9181

Message:

実行時型情報の生成にほぼ対応した。

Location:

BasicCompiler32

Files:

• Compile_Object.cpp (modified) (1 diff)
• Compile_ProcOp.cpp (modified) (2 diffs)
• MakePeHdr.cpp (modified) (1 diff)

BasicCompiler32/Compile_Object.cpp

@@ -48 +48 @@
         PROCFLAG_NEW,"",0);
 
+    {
+        // 動的型情報をセットする
+        // obj._System_SetType( _System_TypeBase.Search( strNamespace, name ) )
+        subs.clear();
+        pobj_c->EnumMethod( "_System_SetType", subs );
+        if( subs.size() == 1 ){
+            char temporary[VN_SIZE];
+            sprintf( temporary, "_System_TypeBase.Search(\"\",\"%s\"))", pobj_c->name );
+
+            Opcode_CallProc(temporary,
+                subs[0],
+                PROCFLAG_NEW,"",0);
+        }
+        else{
+            SetError();
+        }
+    }
+
 
 

BasicCompiler32/Compile_ProcOp.cpp

@@ -204 +204 @@
         obp+=31;
     }
-    else if( userProc.GetName() == "InitializeUserTypes"
+    else{
+        SetError();
+    }
+}
+void AutoGeneration(UserProc &userProc){
+    if( userProc.GetName() == "InitializeUserTypes"
         && userProc.HasParentClass()
         && (string)userProc.GetParentClass().name == "_System_TypeBase" ){
@@ -540 +545 @@
     //////////////////////////////////////////
     ////// プロシージャ内をコンパイル ////////
-    if(pUserProc->IsMacro()) CompileBuffer(ESC_ENDMACRO,0);
+    if( pUserProc->IsAutoGeneration() ){
+        AutoGeneration( *pUserProc );
+    }
     else{
-        if(pUserProc->IsSub()) CompileBuffer(ESC_ENDSUB,0);
-        else if(pUserProc->IsFunction()) CompileBuffer(ESC_ENDFUNCTION,0);
+        if(pUserProc->IsMacro()){
+            CompileBuffer(ESC_ENDMACRO,0);
+        }
+        else{
+            if(pUserProc->IsSub()){
+                CompileBuffer(ESC_ENDSUB,0);
+            }
+            else if(pUserProc->IsFunction()){
+                CompileBuffer(ESC_ENDFUNCTION,0);
+            }
+        }
     }
     //////////////////////////////////////////

BasicCompiler32/MakePeHdr.cpp

@@ -249 +249 @@
     if( pSubStaticMethod_System_TypeBase_InitializeUserTypes = GetSubHash( "_System_TypeBase.InitializeUserTypes",1 ) ){
         pSubStaticMethod_System_TypeBase_InitializeUserTypes->Using();
-        pSubStaticMethod_System_TypeBase_InitializeUserTypes->ThisIsSystemProc();
+        pSubStaticMethod_System_TypeBase_InitializeUserTypes->ThisIsAutoGenerationProc();
     }