Changeset 353 in dev for trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

Timestamp:

Oct 21, 2007, 3:37:31 PM (17 years ago)

Author:

dai_9181

Message:

インターフェイス実装周りの仕様整備

File:

• trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp (modified) (2 diffs)

trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

@@ -138 +138 @@
     if( userProc.GetName() == "InitializeUserTypes"
         && userProc.HasParentClass()
-        && userProc.GetParentClass().GetName() == "_System_TypeBase" ){
-            compiler.GetObjectModule().meta.GetClasses().Compile_System_InitializeUserTypes();
+        && userProc.GetParentClass().GetName() == "_System_TypeBase" )
+    {
+        compiler.GetObjectModule().meta.GetClasses().Compile_System_InitializeUserTypes();
     }
     else if( userProc.GetName() == "RegisterGlobalRoots"
         && userProc.HasParentClass()
-        && userProc.GetParentClass().GetName() == "_System_CGarbageCollection" ){
-
-            Compile_AddGlobalRootsForGc();
+        && userProc.GetParentClass().GetName() == "_System_CGarbageCollection" )
+    {
+        Compile_AddGlobalRootsForGc();
     }
     else if( userProc.GetName() == compiler.globalAreaProcName ){
@@ -270 +271 @@
     }
 
-    cp=pUserProc->GetCodePos();
-    for(;;cp++){
-        if(IsCommandDelimitation(basbuf[cp])) break;
-    }
-    cp--;
+    if( !pUserProc->IsAutoGeneration() )
+    {
+        cp=pUserProc->GetCodePos();
+        for(;;cp++){
+            if(IsCommandDelimitation(basbuf[cp])) break;
+        }
+        cp--;
+    }
 
     //プロシージャ抜け出しスケジュール（Exit Sub/Function）