Changeset 426 in dev for trunk/abdev/BasicCompiler32/Compile_Func.cpp

Timestamp:

Mar 10, 2008, 7:04:08 PM (17 years ago)

Author:

dai_9181

Message:

組み込み関数_System_Newを実装。

File:

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

trunk/abdev/BasicCompiler32/Compile_Func.cpp

@@ -22 +22 @@
     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;
@@ -606 +607 @@
 }
 
+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();
+        }
+
+        //pop eax
+        compiler.codeGenerator.op_pop( REG_EAX );
+    }
+}
+
 void Opcode_Func_GetPtrData(const char *Parameter,const int type){
     Type tempType;
@@ -716 +748 @@
             resultType.SetBasicType( DEF_LONG );
             break;
+        case FUNC_SYSTEM_NEW:
+            Opcode_Func_System_New( Parameter, resultType, isCallOn );
+            break;
 
         case FUNC_GETDOUBLE: