Changeset 109 in dev for BasicCompiler32/Compile_Func.cpp

Timestamp:

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

Author:

dai_9181

Message:

ObjPtr関数を実装。

File:

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

BasicCompiler32/Compile_Func.cpp

@@ -12 +12 @@
         case FUNC_SIZEOF:
         case FUNC_VARPTR:
+        case FUNC_OBJPTR:
             return DEF_DWORD;
         case FUNC_GETDOUBLE:
@@ -35 +36 @@
     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;
@@ -376 +378 @@
     SetVarPtrToEax(&RelativeVar);
 
+    // TODO: 取り除く（この動きはObjPtrに託す）
     if( beforeType == DEF_OBJECT && lstrcmpi( Parameter, "This" ) != 0 ){
         //参照をオブジェクトポインタに変更
@@ -381 +384 @@
         //mov eax,dword ptr[eax]
         op_mov_RM( sizeof(long), REG_EAX, REG_EAX, 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();
+
+    SetVarPtrToEax(&RelativeVar);
+
+    if( beforeType == DEF_OBJECT && lstrcmpi( Parameter, "This" ) != 0 ){
+        //参照をオブジェクトポインタに変更
+
+        //mov eax,dword ptr[eax]
+        op_mov_RM( sizeof(long), REG_EAX, REG_EAX, 0, MOD_BASE );
+    }
+    else{
+        SetError(134,NULL,cp );
     }
 }
@@ -472 +508 @@
             Opcode_Func_VarPtr( Parameter, resultType, isCallOn );
             break;
+        case FUNC_OBJPTR:
+            Opcode_Func_ObjPtr( Parameter, resultType, isCallOn );
+            break;
 
         case FUNC_GETDOUBLE: