Changeset 90 in dev for BasicCompiler32/Compile_ProcOp.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• BasicCompiler32/Compile_ProcOp.cpp (modified) (2 diffs)

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);
+            }
+        }
     }
     //////////////////////////////////////////