Changeset 34 in dev for BasicCompiler_Common/Object.cpp

Timestamp:

Jan 14, 2007, 6:11:23 AM (18 years ago)

Author:

dai_9181

Message:

スコープ処理を統一した。関数の途中でReturnしても、スコープにあるローカルオブジェクトを正確に破棄できるようにした。

File:

• BasicCompiler_Common/Object.cpp (modified) (1 diff)

BasicCompiler_Common/Object.cpp

@@ -183 +183 @@
     }
 }
-
-
-void CallDestrouctorsOfScope(void){
-    extern BOOL bCompilingGlobal;
-    VARIABLE *pVar;
-    int num;
-    if(bCompilingGlobal){
-        //グローバルオブジェクトの解放処理
-        extern VARIABLE *GlobalVar;
-        extern int MaxGlobalVarNum;
-        pVar=GlobalVar;
-        num=MaxGlobalVarNum;
-    }
-    else{
-        //ローカルオブジェクトの解放処理
-        extern VARIABLE *LocalVar;
-        extern int MaxLocalVarNum;
-        pVar=LocalVar;
-        num=MaxLocalVarNum;
-    }
-
-
-    int i3,i4,i5;
-    int indexSystemGC=-1;
-    for(i3=0;i3<num;i3++){
-
-        if(bCompilingGlobal&&obj_LexScopes.GetNowLevel()==0){
-            if(lstrcmp(pVar[i3].name,"_System_GC")==0){
-                indexSystemGC=i3;
-                continue;
-            }
-        }
-
-        //同一レベルのレキシカルスコープのみを検知
-        if(!pVar[i3].bLiving) continue;
-        if(pVar[i3].ScopeLevel!=obj_LexScopes.GetNowLevel()) continue;
-
-        if(pVar[i3].type==DEF_OBJECT&&pVar[i3].fRef&OBJECT_PARAMETER){
-            //実態オブジェクトのパラメータを持つとき
-
-            //デストラクタを呼び出す
-            i5=pVar[i3].u.pobj_c->DestructorMemberSubIndex;
-            if(i5!=-1)
-                Opcode_CallProc("",pVar[i3].u.pobj_c->ppobj_Method[i5]->psi,0,pVar[i3].name,DEF_OBJECT);
-
-            //メモリを解放する
-
-#ifdef _AMD64_
-            //x64ビットコード
-
-            //mov rcx,qword ptr[rsp+offset]
-            op_mov_RM(sizeof(_int64),REG_RCX,REG_RSP,
-                -pVar[i3].offset,
-                MOD_BASE_DISP32);
-            obp-=sizeof(long);
-            AddLocalVarAddrSchedule();
-            obp+=sizeof(long);
-#else
-            //x86コード
-
-            //mov ecx,dword ptr[ebp+offset]
-            op_mov_RM(sizeof(long),REG_ECX,REG_EBP,-pVar[i3].offset,MOD_BASE_DISP32);
-            obp-=sizeof(long);
-            AddLocalVarAddrSchedule();
-            obp+=sizeof(long);
-
-            //push ecx
-            op_push(REG_ECX);
-#endif
-
-            //call free
-            extern SUBINFO *pSub_free;
-            op_call(pSub_free);
-
-
-            if(bCompilingGlobal){
-                //ここには来ないハズ
-                SetError(300,NULL,cp);
-            }
-        }
-        else if(pVar[i3].type==DEF_OBJECT&&pVar[i3].fRef==0){
-            //デストラクタの呼び出し
-            i5=pVar[i3].u.pobj_c->DestructorMemberSubIndex;
-            if(i5!=-1){
-                int ss[MAX_ARRAYDIM];
-                memset(ss,0,MAX_ARRAYDIM*sizeof(int));
-                if(pVar[i3].SubScripts[0]!=-1){
-                    while(1){
-                        for(i4=0;;i4++){
-                            if(pVar[i3].SubScripts[i4]==-1) break;
-
-                            if(ss[i4]>pVar[i3].SubScripts[i4]){
-                                ss[i4]=0;
-                                ss[i4+1]++;
-                            }
-                            else break;
-                        }
-                        if(pVar[i3].SubScripts[i4]==-1) break;
-                        char temporary[VN_SIZE];
-                        sprintf(temporary,"%s[%d",pVar[i3].name,ss[0]);
-                        for(i4=1;;i4++){
-                            if(pVar[i3].SubScripts[i4]==-1) break;
-
-                            sprintf(temporary+lstrlen(temporary),",%d",ss[i4]);
-                        }
-                        lstrcat(temporary,"]");
-                        Opcode_CallProc("",pVar[i3].u.pobj_c->ppobj_Method[i5]->psi,0,temporary,DEF_OBJECT);
-
-                        ss[0]++;
-
-
-                        //ネイティブコードバッファの再確保
-                        extern int obp_AllocSize;
-                        if(obp_AllocSize<obp+8192){
-                            obp_AllocSize+=8192;
-                            OpBuffer=(char *)HeapReAlloc(hHeap,0,OpBuffer,obp_AllocSize); //matea
-                        }
-                    }
-                }
-                else{
-                    Opcode_CallProc("",pVar[i3].u.pobj_c->ppobj_Method[i5]->psi,0,pVar[i3].name,DEF_OBJECT);
-                }
-            }
-        }
-    }
-
-    if(indexSystemGC!=-1){
-        //_System_GCオブジェクトのデストラクタの呼び出し処理
-        i3=pVar[indexSystemGC].u.pobj_c->DestructorMemberSubIndex;
-        if(i3!=-1){
-            Opcode_CallProc("",pVar[indexSystemGC].u.pobj_c->ppobj_Method[i3]->psi,0,pVar[indexSystemGC].name,DEF_OBJECT);
-        }
-    }
-}
-