Changeset 373 in dev for trunk/abdev/BasicCompiler32/Compile_Statement.cpp

Timestamp:

Nov 26, 2007, 9:44:17 PM (16 years ago)

Author:

dai_9181

Message:

Foreachにて自動的に一時オブジェクトを生成できるようにした

File:

• trunk/abdev/BasicCompiler32/Compile_Statement.cpp (modified) (3 diffs)

trunk/abdev/BasicCompiler32/Compile_Statement.cpp

@@ -597 +597 @@
     Type resultType;
     int i;
-    char temporary[VN_SIZE],variable[VN_SIZE],collectionVar[VN_SIZE];
+    char temporary[VN_SIZE],collectionVar[VN_SIZE];
     bool isError = false;
 
+    //レキシカルスコープをレベルアップ
+    compiler.codeGenerator.lexicalScopes.Start( compiler.codeGenerator.GetNativeCodeSize(), LexicalScope::SCOPE_TYPE_FOR );
+
     //第１パラメータを取得
-    i=GetOneParameter(Parameter,0,temporary);
+    char variable[VN_SIZE];
+    i=GetOneParameter(Parameter,0,variable);
     if(!Parameter[i]){
         SetError(12,"Foreach",cp);
@@ -608 +612 @@
     }
 
-    lstrcpy( variable, temporary );
-
     //第２パラメータを取得（in～）
     i=GetOneParameter(Parameter,i,collectionVar);
+    
+    if( !GetVarType( variable, resultType, false ) )
+    {
+        Type collectionType;
+        if( !NumOpe_GetType( Parameter, Type(), collectionType ) )
+        {
+            isError = true;
+            goto ErrorStep;
+        }
+
+        // 未定義の場合は自動的に定義する
+        sprintf(temporary,"%s%c%c%s", variable, 1, ESC_AS, collectionType.GetActualGenericType(0).GetClass().GetFullName() );
+        OpcodeDim(temporary,DIMFLAG_INITDEBUGVAR);
+    }
 
     // Resetメソッドを呼び出す
@@ -634 +650 @@
     //je ...
     const PertialSchedule *pTempPertialSchedule = compiler.codeGenerator.op_je( 0, sizeof(long), true );
-
-    //レキシカルスコープをレベルアップ
-    compiler.codeGenerator.lexicalScopes.Start( compiler.codeGenerator.GetNativeCodeSize(), LexicalScope::SCOPE_TYPE_FOR );
 
     // Currentプロパティから現在の値を取得