Changeset 111 in dev for BasicCompiler64

Timestamp:

May 7, 2007, 2:41:36 AM (18 years ago)

Author:

dai_9181

Message:

ObjPtr(This)がエラーになるバグを修正。
オーバーロードのチェックレベルを一つ増やした（整数型のサイズ照合によるオーバーロードチェックを可能にした）。

Location:

BasicCompiler64

Files:

• Compile_Func.cpp (modified) (3 diffs)
• Opcode.h (modified) (1 diff)

BasicCompiler64/Compile_Func.cpp

@@ -2 +2 @@
 #include "Opcode.h"
 
-int GetFunctionType(int FuncNum){
-    switch(FuncNum){
-        case FUNC_LEN:
-            return DEF_LONG;
-        case FUNC_SIZEOF:
-            return DEF_LONG;
-        case FUNC_ADDRESSOF:
-        case FUNC_VARPTR:
-        case FUNC_OBJPTR:
-            return DEF_PTR_VOID;
-        case FUNC_GETDOUBLE:
-            return DEF_DOUBLE;
-        case FUNC_GETSINGLE:
-            return DEF_SINGLE;
-        case FUNC_GETQWORD:
-            return DEF_QWORD;
-        case FUNC_GETDWORD:
-            return DEF_DWORD;
-        case FUNC_GETWORD:
-            return DEF_WORD;
-        case FUNC_GETBYTE:
-            return DEF_BYTE;
-    }
-    return 0;
-}
 int GetFunctionFromName(char *FuncName){
     if(lstrcmpi(FuncName,"Len")==0)         return FUNC_LEN;
@@ -229 +204 @@
         //mov rax,qword ptr[rax]
         op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
+
+        SetError(-120,NULL,cp);
     }
 }
@@ -254 +231 @@
     SetVarPtrToReg(REG_RAX,&RelativeVar);
 
-    if( beforeType == DEF_OBJECT && lstrcmpi( Parameter, "This" ) != 0 ){
+    if( lstrcmpi( Parameter, "This" )==0 ){
+        // Thisの場合は特別にオブジェクトポインタが返ってくるので、何もせずに抜ける
+    }
+    else if( beforeType == DEF_OBJECT ){
         //参照をオブジェクトポインタに変更
 

BasicCompiler64/Opcode.h

@@ -389 +389 @@
 
 //Compile_Func.cpp
-int GetFunctionType(int FuncNum);
 int GetFunctionFromName(char *FuncName);
 bool Opcode_CallFunc( const char *Parameter, const int FuncNum, Type &ReturnTypeInfo, bool isCallOn = true );