Changeset 64 in dev for BasicCompiler64/Compile_ProcOp.cpp

Timestamp:

Mar 8, 2007, 2:49:34 AM (18 years ago)

Author:

dai_9181

Message:

すべてのオブジェクトを参照型に切り替えた。

File:

• BasicCompiler64/Compile_ProcOp.cpp (modified) (15 diffs)

BasicCompiler64/Compile_ProcOp.cpp

@@ -51 +51 @@
 
         //add rsp,スタックフレームサイズ
-        op_add64_value(REG_RSP,pobj_sf->GetFrameSize());
+        op_add_RV(REG_RSP,pobj_sf->GetFrameSize());
 
         //スタックフレームスケジュール（subコマンドに渡す値）
@@ -94 +94 @@
 
         //add rsp,スタックフレームサイズ
-        op_add64_value(REG_RSP,pobj_sf->GetFrameSize());
+        op_add_RV(REG_RSP,pobj_sf->GetFrameSize());
 
         //スタックフレームスケジュール（subコマンドに渡す値）
@@ -118 +118 @@
 
         //add rsp,8
-        op_add64_value(REG_RSP,0x8);
+        op_add_RV(REG_RSP,0x8);
 
         //ret
@@ -128 +128 @@
 
         //add rax,PTR_SIZE
-        op_add64_value(REG_RAX,PTR_SIZE);
+        op_add_RV(REG_RAX,PTR_SIZE);
 
         //ret
@@ -337 +337 @@
 
         LocalVar[MaxLocalVarNum].type=psi->pRealParmInfo[i3].type;
-        if(LocalVar[MaxLocalVarNum].type==DEF_OBJECT){
-            if(psi->bExport)
-                SetError(24,NULL,cp);
+        if(LocalVar[MaxLocalVarNum].type==DEF_OBJECT
+            ||LocalVar[MaxLocalVarNum].type==DEF_STRUCT){
+                if(psi->bExport)
+                    SetError(24,NULL,cp);
         }
 
         LocalVar[MaxLocalVarNum].u.index=psi->pRealParmInfo[i3].u.index;
 
-        if(psi->pRealParmInfo[i3].bByVal&&psi->pRealParmInfo[i3].type==DEF_OBJECT){
-            //実態オブジェクトのByValパラメータ
+        if(psi->pRealParmInfo[i3].bByVal&&psi->pRealParmInfo[i3].type==DEF_STRUCT){
+            //構造体のByValパラメータ
             LocalVar[MaxLocalVarNum].fRef=REF_PARAMETER | OBJECT_PARAMETER;
             VarSize=PTR_SIZE;
@@ -457 +458 @@
     BaseLocalVar=AllLocalVarSize;
 
-    if(psi->ReturnType!=-1){
+    if(psi->ReturnType!=DEF_NON){
         //戻り値が存在するとき
 
@@ -464 +465 @@
         else temp=psi->name;
 
-        if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false){
-            //戻り値用オブジェクトのコンストラクタを呼び出す
-            if( psi->u.Return_pobj_c->GetConstructorMethod() ){
-                sprintf(temporary,"%s.%s()",temp,psi->u.Return_pobj_c->name);
-                OpcodeOthers(temporary);
-            }
+        if(psi->ReturnType==DEF_STRUCT && psi->isReturnRef == false){
+            //戻り値用の構造体（値型）はパラメータで引き渡される
         }
         else{
@@ -493 +490 @@
 
         //mov rcx,rsp
-        op_mov64_ToReg_FromReg(REG_RCX,REG_RSP);
+        op_mov_RR(REG_RCX,REG_RSP);
 
         //add rcx,スタックフレームサイズ+sizeof(_int64) ※ret用のサイズを考慮
-        op_add64_value(REG_RCX,0);
+        op_add_RV(REG_RCX,0);
         RspOffsetSchedule2=obp-sizeof(long);
 
@@ -571 +568 @@
             for(i3=0;i3<pobj_CompilingClass->iMemberNum;i3++){
                 CMember *pMember = pobj_CompilingClass->ppobj_Member[i3];
-                int MemberTypeSize=
-                    GetTypeSize(pMember->TypeInfo.type,
-                        pMember->TypeInfo.u.lpIndex);
-
-                int MemberObjectNum=
-                    JumpSubScripts(pMember->SubScripts);
-
-                int offset = pobj_CompilingClass->GetMemberOffset( pMember->name, NULL );
-
-                if(pMember->TypeInfo.type==DEF_OBJECT && pMember->IsRef() == false){
-                    CMethod *method = pMember->TypeInfo.u.pobj_Class->GetConstructorMethod();
-                    if( method ){
-                        if( method->psi->RealParmNum == 1 ){    //Thisポインタを第一引数に持ち合わせるため、引数なしの場合はこの値が1になる
-                            for(i4=0;i4<MemberObjectNum;i4++){
-                                //Thisポインタをrcxにコピー
-                                SetThisPtrToReg(REG_RCX);
-
-                                //add rcx,offset
-                                op_add64_value(REG_RCX,offset+i4*MemberTypeSize);
-
-                                //call constructor
-                                op_call( method->psi );
-                            }
-                        }
-                    }
+                if(pMember->TypeInfo.type==DEF_OBJECT){
+                    // オブジェクトメンバを発見したとき
+
+                    sprintf(temporary, "This.%s=%c%c%s()",
+                        pMember->name,
+                        1, ESC_NEW,
+                        pMember->TypeInfo.u.pobj_Class->name );
+                    OpcodeCalc( temporary );
                 }
             }
@@ -665 +645 @@
             }
 
-            //実体クラスを持つメンバのデストラクタを呼び出す
+            //実体クラスを持つメンバのデストラクタ呼び出しはGCに任せる
+            /*
             //※コンストラクタと逆順序で呼び出す
             for(i3=pobj_CompilingClass->iMemberNum-1;i3>=0;i3--){
@@ -678 +659 @@
                 int offset = pobj_CompilingClass->GetMemberOffset( pMember->name, NULL );
 
-                if(pMember->TypeInfo.type==DEF_OBJECT && pMember->IsRef() == false){
+                if(pMember->TypeInfo.type==DEF_OBJECT){
                     CMethod *method = pMember->TypeInfo.u.pobj_Class->GetDestructorMethod();
                     if( method ){
@@ -686 +667 @@
 
                             //add rcx,offset
-                            op_add64_value(REG_RCX,offset+i4*MemberTypeSize);
+                            op_add_RV(REG_RCX,offset+i4*MemberTypeSize);
 
                             //call destructor
@@ -693 +674 @@
                     }
                 }
-            }
+            }*/
         }
     }
@@ -743 +724 @@
     }
 
-    if(psi->ReturnType!=-1){
+    if(psi->ReturnType!=DEF_NON){
         //////////////////////////////////
         // 戻り値をraxまたはxmm0に設定
@@ -759 +740 @@
         i3=psi->ReturnType;
 
-        if(i3==DEF_OBJECT){
+        if(i3==DEF_OBJECT || i3==DEF_STRUCT){
             SetVarPtrToReg(REG_RAX,&RelativeVar);
+            if( i3==DEF_OBJECT ){
+                //mov rax,qword ptr[rax]
+                op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
+            }
         }
         else if(i3==DEF_DOUBLE){