Changeset 427 in dev for trunk/abdev/BasicCompiler64/Compile_Func.cpp

Timestamp:

Mar 10, 2008, 7:09:39 PM (17 years ago)

Author:

dai_9181

Message:

[426]を64bit版にマージ。

File:

• trunk/abdev/BasicCompiler64/Compile_Func.cpp (modified) (3 diffs)

trunk/abdev/BasicCompiler64/Compile_Func.cpp

@@ -20 +20 @@
     if( lstrcmpi( FuncName, "_System_GetBp" ) == 0 )    return FUNC_SYSTEM_GET_BP;
     if( lstrcmpi( FuncName, "_System_GetSp" ) == 0 )    return FUNC_SYSTEM_GET_SP;
+    if( lstrcmp( FuncName, "_System_New" ) == 0 )       return FUNC_SYSTEM_NEW;
     if( lstrcmpi( FuncName, "GetDouble" ) == 0 )        return FUNC_GETDOUBLE;
     if( lstrcmpi( FuncName, "GetSingle" ) == 0 )        return FUNC_GETSINGLE;
@@ -470 +471 @@
 }
 
+void Opcode_Func_System_New( const char *parameter, Type &resultType, bool isCallOn )
+{
+    if( !compiler.StringToType( parameter, resultType ) )
+    {
+        SetError();
+        return;
+    }
+    if( !resultType.IsObject() )
+    {
+        SetError();
+        return;
+    }
+
+    if( isCallOn )
+    {
+        Type tempResultType;
+        if( !Operator_New( parameter, resultType, tempResultType ) )
+        {
+            return;
+        }
+
+        if( !resultType.Equals( tempResultType ) )
+        {
+            SetError();
+        }
+    }
+}
+
 void Opcode_Func_GetPtrData( const char *Parameter, const int type ){
     int reg=REG_RAX;
@@ -537 +566 @@
             resultType.SetBasicType( DEF_INT64 );
             break;
+        case FUNC_SYSTEM_NEW:
+            Opcode_Func_System_New( Parameter, resultType, isCallOn );
+            break;
 
         case FUNC_GETDOUBLE: