Changeset 716 in dev for trunk/ab5.0

Timestamp:

Aug 8, 2008, 12:11:01 AM (16 years ago)

Author:

dai

Message:

[712]を64bit版にマージ。

File:

• trunk/ab5.0/abdev/compiler_x64/Compile_Statement.cpp (modified) (6 diffs)

trunk/ab5.0/abdev/compiler_x64/Compile_Statement.cpp

@@ -481 +481 @@
     char temporary[VN_SIZE],variable[VN_SIZE],collectionVar[VN_SIZE];
     bool isError = false;
-
-    //レキシカルスコープをレベルアップ
-    compiler.codeGenerator.lexicalScopes.Start( compiler.codeGenerator.GetNativeCodeSize(), LexicalScope::SCOPE_TYPE_FOR );
+    std::string elementTypeName;
 
     //第１パラメータを取得
@@ -498 +496 @@
     lstrcpy( collectionVar, Parameter + i );
 
-    if( !GetVarType( variable, resultType, false ) )
+
+    Exception::TryCommand(); //Finallyで_System_ForeachEnumerator.Disposeするため
+
+    //Enumeratorの取得
+    sprintf(temporary,"_System_ForeachEnumerator=%s.GetEnumerator()", collectionVar );
+    OpcodeDim(temporary,DIMFLAG_INITDEBUGVAR);
+
+    //レキシカルスコープをレベルアップ
+    compiler.codeGenerator.lexicalScopes.Start( compiler.codeGenerator.GetNativeCodeSize(), LexicalScope::SCOPE_TYPE_FOR );
+
     {
         Type collectionType;
@@ -506 +513 @@
             goto ErrorStep;
         }
+        elementTypeName = collectionType.GetActualGenericType(0).GetClass().GetFullName();
+    }
+
+    if( !GetVarType( variable, resultType, false ) )
+    {
 
         // 未定義の場合は自動的に定義する
-        sprintf(temporary,"%s=Nothing%c%c%s", variable, 1, ESC_AS, collectionType.GetActualGenericType(0).GetClass().GetFullName().c_str() );
+        sprintf(temporary,"%s=Nothing%c%c%s", variable, 1, ESC_AS, elementTypeName.c_str() );
         OpcodeDim(temporary,DIMFLAG_INITDEBUGVAR);
     }
-
-    // Resetメソッドを呼び出す
-    sprintf( temporary, "%s.Reset()", collectionVar );
-    Compile( temporary );
 
     //Continueアドレスのバックアップとセット
@@ -520 +528 @@
 
     // MoveNextメソッドを呼び出す
-    sprintf( temporary, "%s.MoveNext()", collectionVar );
     int reg = REG_RAX;
-    NumOpe(&reg,temporary,Type(),resultType);
+    NumOpe( &reg, "_System_ForeachEnumerator.MoveNext()", Type(), resultType );
 
     //cmp rax,0
@@ -535 +542 @@
     {
         // Currentプロパティから現在の値を取得
-        sprintf( temporary, "%s=%s.Current", variable, collectionVar );
+        sprintf( temporary, "%s=_System_ForeachEnumerator.Current%c%c%s", variable, 1, ESC_AS, elementTypeName.c_str() );
         Compile( temporary );
     }
@@ -561 +568 @@
     //jeジャンプ先のオフセット値
     compiler.codeGenerator.opfix_JmpPertialSchedule( pTempPertialSchedule );
+
+    //Disposeを呼んでTryスコープを終える
+    Exception::FinallyCommand();
+    Compile( "_System_ForeachEnumerator.Dispose()" );
+    Exception::EndTryCommand();
 
     //Continueアドレスを復元