Changeset 109 in dev for BasicCompiler64/Compile_Func.cpp

Timestamp:

May 6, 2007, 7:09:04 PM (18 years ago)

Author:

dai_9181

Message:

ObjPtr関数を実装。

File:

• BasicCompiler64/Compile_Func.cpp (modified) (5 diffs)

BasicCompiler64/Compile_Func.cpp

@@ -10 +10 @@
         case FUNC_ADDRESSOF:
         case FUNC_VARPTR:
+        case FUNC_OBJPTR:
             return DEF_PTR_VOID;
         case FUNC_GETDOUBLE:
@@ -31 +32 @@
     if(lstrcmpi(FuncName,"SizeOf")==0)      return FUNC_SIZEOF;
     if(lstrcmpi(FuncName,"VarPtr")==0)      return FUNC_VARPTR;
+    if(lstrcmpi(FuncName,"ObjPtr")==0)      return FUNC_OBJPTR;
     if(lstrcmpi(FuncName,"GetDouble")==0)   return FUNC_GETDOUBLE;
     if(lstrcmpi(FuncName,"GetSingle")==0)   return FUNC_GETSINGLE;
@@ -221 +223 @@
     SetVarPtrToReg(REG_RAX,&RelativeVar);
 
+    // TODO: 取り除く（この動きはObjPtrに託す）
     if( beforeType == DEF_OBJECT && lstrcmpi( Parameter, "This" ) != 0 ){
         //参照をオブジェクトポインタに変更
@@ -226 +229 @@
         //mov rax,qword ptr[rax]
         op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
+    }
+}
+void Opcode_Func_ObjPtr( const char *Parameter, Type &resultType, bool isCallOn ){
+    if( isCallOn == false ){
+        // 戻り値の型を取得するだけ
+
+        //変数のアドレスを取得
+        if(!GetVarType( Parameter, resultType, true )) return;
+
+        resultType.PtrLevelUp();
+
+        return;
+    }
+
+    RELATIVE_VAR RelativeVar;
+
+    //変数のアドレスを取得
+    if(!GetVarOffsetReadOnly( Parameter, &RelativeVar, resultType )) return;
+
+    int beforeType = resultType.GetBasicType();
+
+    resultType.PtrLevelUp();
+
+    SetVarPtrToReg(REG_RAX,&RelativeVar);
+
+    if( beforeType == DEF_OBJECT && lstrcmpi( Parameter, "This" ) != 0 ){
+        //参照をオブジェクトポインタに変更
+
+        //mov rax,qword ptr[rax]
+        op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
+    }
+    else{
+        SetError(134,NULL,cp );
     }
 }
@@ -270 +306 @@
             Opcode_Func_VarPtr( Parameter, resultType, isCallOn );
             break;
+        case FUNC_OBJPTR:
+            Opcode_Func_ObjPtr( Parameter, resultType, isCallOn );
+            break;
 
         case FUNC_GETDOUBLE: