Changeset 66 in dev for BasicCompiler64/CParameter.cpp

Timestamp:

Mar 9, 2007, 4:59:13 AM (18 years ago)

Author:

dai_9181

Message:

参照型の整数型パラメータに実数を代入すると「内部エラー」になってしまうバグを修正。
参照型の整数型にリテラル値を直接指定すると「内部エラー」になってしまうバグを修正。
バージョンをβ15にした。

File:

• BasicCompiler64/CParameter.cpp (modified) (3 diffs)

BasicCompiler64/CParameter.cpp

@@ -62 +62 @@
                 int type = NumOpe( &reg, Parms[i2], DummyTypeInfo.type, DummyTypeInfo.u.lpIndex, &lpVarIndex );
 
-                if( type == DEF_OBJECT ){
+                if( type != DEF_STRUCT ){
                     //一時参照を作成
                     pobj_sf->push( reg );
@@ -115 +115 @@
                 op_call(pSub_free);
             }
-            else if( types[i2].type == DEF_OBJECT ){
+            else{
                 pobj_sf->pop();
                 pobj_sf->pop();
-            }
-            else{
-                SetError(300,NULL,cp);
             }
         }
@@ -423 +420 @@
             }
             else{
-                //変数のアドレスを取得
-                int VarType;
-                LONG_PTR lpVarIndex;
-                if(GetVarOffset(
-                    false,
-                    false,
-                    Parms[i2],
-                    &VarType,
-                    &RelativeVar,
-                    &lpVarIndex)){
-
-                        if(DummyTypeInfo.type!=DEF_ANY){
-                            //型チェックを行う
-                            if(DummyTypeInfo.type==VarType){
-                                if(DummyTypeInfo.type==DEF_OBJECT){
-                                    if( !DummyTypeInfo.u.pobj_Class->IsEqualsOrSubClass( (CClass *)lpVarIndex ) ){
-                                        SetError(11,Parms[i2],cp);
+                if( useTempParameters[i2] ){
+                    //一時オブジェクトをコピー
+
+                    //mov reg, qword ptr[rsp+offset]
+                    pobj_sf->ref_offset_data( reg, StackOffsetOfTempObject[i2] );
+                }
+                else{
+                    //変数のアドレスを取得
+                    int VarType;
+                    LONG_PTR lpVarIndex;
+                    if(GetVarOffset(
+                        false,
+                        false,
+                        Parms[i2],
+                        &VarType,
+                        &RelativeVar,
+                        &lpVarIndex)){
+
+                            if(DummyTypeInfo.type!=DEF_ANY){
+                                //型チェックを行う
+                                if(DummyTypeInfo.type==VarType){
+                                    if(DummyTypeInfo.type==DEF_OBJECT){
+                                        if( !DummyTypeInfo.u.pobj_Class->IsEqualsOrSubClass( (CClass *)lpVarIndex ) ){
+                                            SetError(11,Parms[i2],cp);
+                                        }
+                                    }
+                                    else if(DummyTypeInfo.type==DEF_STRUCT){
+                                        if( !DummyTypeInfo.u.pobj_Class->IsEquals( (CClass *)lpVarIndex ) ){
+                                            SetError(11,Parms[i2],cp);
+                                        }
                                     }
                                 }
-                                else if(DummyTypeInfo.type==DEF_STRUCT){
-                                    if( !DummyTypeInfo.u.pobj_Class->IsEquals( (CClass *)lpVarIndex ) ){
-                                        SetError(11,Parms[i2],cp);
-                                    }
+                                else if((VarType&FLAG_PTR)&&((VarType^FLAG_PTR)==DummyTypeInfo.type)){
+                                    //仮引数がポインタ参照で、実引数が配列の先頭ポインタのとき
+                                }
+                                else{
+                                    SetError(11,Parms[i2],cp);
                                 }
                             }
-                            else if((VarType&FLAG_PTR)&&((VarType^FLAG_PTR)==DummyTypeInfo.type)){
-                                //仮引数がポインタ参照で、実引数が配列の先頭ポインタのとき
-                            }
-                            else{
-                                SetError(11,Parms[i2],cp);
-                            }
-                        }
-
-                        //変数アドレスをレジスタにセット
-                        SetVarPtrToReg(reg,&RelativeVar);
-
-                }
-                else{
-                    //一時オブジェクトをコピー
-
-                    //mov reg, qword ptr[rsp+offset]
-                    pobj_sf->ref_offset_data( reg, StackOffsetOfTempObject[i2] );
-
-                    //VarType = NumOpe( &reg, Parms[i2], DummyTypeInfo.type, DummyTypeInfo.u.lpIndex, &lpVarIndex );
+
+                            //変数アドレスをレジスタにセット
+                            SetVarPtrToReg(reg,&RelativeVar);
+
+                    }
                 }
             }