Changeset 89 in dev for BasicCompiler_Common/Class.cpp

Timestamp:

Apr 4, 2007, 2:03:09 AM (18 years ago)

Author:

dai_9181

Message:

実行時型情報の生成に対応。
関数の戻り値の型に抽象クラスを指定できるようにした。

File:

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

BasicCompiler_Common/Class.cpp

@@ -117 +117 @@
 
             //ネイティブコードバッファの再確保
-            extern int obp_AllocSize;
-            if(obp_AllocSize<obp+8192){
-                obp_AllocSize+=8192;
-                OpBuffer=(char *)HeapReAlloc(hHeap,0,OpBuffer,obp_AllocSize); //matea
-            }
+            ReallocNativeCodeBuffer();
+
             i++;
         }
@@ -198 +195 @@
 
 void CClass::Inherits( CClass *pInheritsClass ){
-    int i3;
 
     //メンバをコピー
@@ -207 +203 @@
         pInheritsClass->iMemberNum*sizeof(CMember *));
     iMemberNum=pInheritsClass->iMemberNum;
-    for(i3=0;i3<pInheritsClass->iMemberNum;i3++){
+    for(int i3=0;i3<pInheritsClass->iMemberNum;i3++){
         ppobj_Member[i3]=new CMember( *pInheritsClass->ppobj_Member[i3] );
 
@@ -315 +311 @@
 {
     for( int i=(int)methods.size()-1; i>=0; i-- ){
-        if( pUserProc == methods[i]->pUserProc ) return methods[i];
+        if( pUserProc == methods[i]->pUserProc ){
+            return methods[i];
+        }
     }
     return NULL;
@@ -1350 +1348 @@
 
 
-                        if(pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->IsObject()||
-                            pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->IsStruct()){
+                        if(pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->IsStruct()){
                             if(pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->GetClass().ppobj_Member==0){
                                 //参照先が読み取られていないとき
@@ -1359 +1356 @@
 
 
-                        if(pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->IsObject()){
+                        if(pobj_c->ppobj_Member[pobj_c->iMemberNum-1]->IsStruct()){
                             //循環参照のチェック
                             pobj_LoopRefCheck->add(pobj_c->name);
@@ -1422 +1419 @@
     delete pobj_LoopRefCheck;
     pobj_LoopRefCheck=0;
-}
-
-void CDBClass::GenerateRuntimeTypeInfo(){
+
+    // イテレータ用のデータを作る
+    pobj_DBClass->Iterator_Init();
+}
+
+void CDBClass::Compile_System_InitializeUserTypes(){
+
+    ////////////////////////////////////////////////////////////////////
+    // クラス登録
+    ////////////////////////////////////////////////////////////////////
+
+    // イテレータをリセット
+    Iterator_Reset();
+
+    while( Iterator_HasNext() ){
+        CClass *pClass = Iterator_GetNext();
+
+        char temporary[VN_SIZE];
+        sprintf( temporary
+            , "Add(%c%c_System_TypeForClass(\"%s\",\"%s\"))"
+            , 1
+            , ESC_NEW
+            , ""                // 名前空間 (TODO: 実装)
+            , pClass->name      // クラス名
+            );
+
+        // コンパイル
+        ChangeOpcode( temporary );
+
+        // ネイティブコードバッファの再確保
+        ReallocNativeCodeBuffer();
+    }
+
+
+    ////////////////////////////////////////////////////////////////////
+    // 継承関係登録
+    ////////////////////////////////////////////////////////////////////
+    // TODO: 未完成
+    /*
+
+    // イテレータをリセット
+    Iterator_Reset();
+
+    while( Iterator_HasNext() ){
+        CClass *pClass = Iterator_GetNext();
+
+        sprintf( genBuffer + length
+            , "obj.Search( \"%s\" ).SetBaseType( Search( \"%s\" ) ):"
+            , ""                // クラス名
+            , pClass->name      // クラス名
+            );
+        length += lstrlen( genBuffer + length );
+
+        while( length + 8192 > max ){
+            max += 8192;
+            genBuffer = (char *)realloc( genBuffer, max );
+        }
+    }*/
 }
 
@@ -1475 +1527 @@
 //////////////////////
 
-void CDBClass::Iterator_Reset(void){
+void CDBClass::Iterator_Init(void){
     if(ppobj_IteClass) HeapDefaultFree(ppobj_IteClass);
 
@@ -1498 +1550 @@
     }
 }
+void CDBClass::Iterator_Reset(void){
+    iIteNextNum = 0;
+}
 BOOL CDBClass::Iterator_HasNext(void){
     if(iIteNextNum<iIteMaxNum) return 1;