Changeset 127 in dev for BasicCompiler_Common/Class.cpp

Timestamp:

May 16, 2007, 4:36:28 AM (18 years ago)

Author:

dai_9181

Message:

Bittableをちょっとだけ実装。
64bitコンパイラプロジェクトにSmallDebugビルド構成を作成（Releaseビルドが不調な間の暫定モード）。

File:

• BasicCompiler_Common/Class.cpp (modified) (3 diffs)

BasicCompiler_Common/Class.cpp

@@ -1399 +1399 @@
             }
             else{
+                bool isInherits = false;
                 if(basbuf[i+1]==1&&basbuf[i+2]==ESC_INHERITS){
                     //継承を行う場合
+                    isInherits = true;
+
                     for(i+=3,i2=0;;i++,i2++){
                         if(IsCommandDelimitation(basbuf[i])){
@@ -1414 +1417 @@
                     }
                 }
-                else{
+                else if( memicmp( basbuf + i+1,"Blittable", 9 ) == 0 &&
+                    basbuf[i+10] == 1 && basbuf[i+11] == ESC_INHERITS ){
+                        // Blittable Inherits
+
+                        for(i+=12,i2=0;;i++,i2++){
+                            if(IsCommandDelimitation(basbuf[i])){
+                                temporary[i2]=0;
+                                break;
+                            }
+                            temporary[i2]=basbuf[i];
+                        }
+
+                        Type type;
+                        Type::StringToType( temporary, type );
+                        pobj_c->SetBlittableType( type );
+
+                }
+
+                if( !isInherits ){
                     //Objectを継承する
                     lstrcpy( temporary, "Object" );
@@ -1476 +1497 @@
                     i += 2;
                 }
-/*
-                //Ref修飾子
-                bool isRef = false;
-                if( basbuf[i] == 1 && basbuf[i + 1] == ESC_BYREF ){
-                    isRef = true;
-                    i += 2;
-                }*/
 
                 if(basbuf[i]==1&&(