Changeset 93 in dev for BasicCompiler32

Timestamp:

Apr 11, 2007, 3:23:14 AM (18 years ago)

Author:

dai_9181

Message:

"a=[10,20,30]" などのように、リテラルバイナリデータを指定できるようにした。

File:

• BasicCompiler32/NumOpe.cpp (modified) (1 diff)

BasicCompiler32/NumOpe.cpp

@@ -103 +103 @@
             return false;
         }
+
+        return true;
+    }
+
+    if( !baseType.IsNull() && expression[0] == '[' ){
+        // リテラル配列の場合
+
+        if( !baseType.IsPointer() ){
+            SetError(1,NULL,cp);
+            return false;
+        }
+        Type tempBaseType( baseType );
+        tempBaseType.PtrLevelDown();
+
+        char *buffer = (char *)malloc( lstrlen( expression ) + 1 );
+        lstrcpy( buffer, expression );
+        RemoveStringBracket( buffer );
+
+        void *binary = malloc( 1 );
+        int num = 0;
+
+        i = 0;
+        while( buffer[i] ){
+            i = GetOneParameter( buffer, i, temporary );
+            if( buffer[i] == ',' ){
+                i++;
+            }
+
+            Type resultType;
+            _int64 i64data;
+            if( !StaticCalculation( true, temporary, tempBaseType.GetBasicType(), &i64data, resultType ) ){
+                return false;
+            }
+            if( !resultType.IsWhole() ){
+                // TODO: 実数に未対応
+                SetError();
+                return false;
+            }
+
+            binary = realloc( binary, ( num + 1 ) * tempBaseType.GetSize() );
+            memcpy( (char *)binary + (num * tempBaseType.GetSize()), &i64data, tempBaseType.GetSize() );
+            num++;
+        }
+
+        i2 = dataTable.AddBinary( binary, num * tempBaseType.GetSize() );
+
+        //mov eax,i2
+        op_mov_RV(REG_EAX,i2);
+        obp-=sizeof(long);
+        pobj_DataTableSchedule->add();
+        obp+=sizeof(long);
+
+        free( buffer );
+
+        resultType = baseType;
+
+        //push eax
+        op_push( REG_EAX );
 
         return true;