Changeset 64 in dev for BasicCompiler64/NumOpe.cpp

Timestamp:

Mar 8, 2007, 2:49:34 AM (18 years ago)

Author:

dai_9181

Message:

すべてのオブジェクトを参照型に切り替えた。

File:

• BasicCompiler64/NumOpe.cpp (modified) (9 diffs)

BasicCompiler64/NumOpe.cpp

@@ -14 +14 @@
     //////////////////////////////////////////////////////
 
+        char *parameter = (char *)malloc( lstrlen( lpszText ) + 3 );
+        lstrcpy( parameter, lpszText );
+        SetStringQuotes( parameter );
+
         extern CClass *pobj_StringClass;
-        int object_size = pobj_StringClass->GetSize();
-
-        //mov rcx,object_size
-        op_mov_RV(sizeof(_int64),REG_RCX,object_size);
-
-        //call calloc
-        extern SUBINFO *pSub_calloc;
-        op_call(pSub_calloc);
-
-        //mov r11,rax
-        op_mov_RR(REG_R11,REG_RAX);
-
-        //mov qword ptr[rsp+offset],r11     ※スタックフレームを利用
-        pobj_sf->push(REG_R11);
-
-        //mov rcx,rax
-        op_mov_RR(REG_RCX,REG_RAX);
-
-        //call constructor
-        op_call(pobj_StringClass->GetConstructorMethod()->psi);
-
-        // TODO: Ex表記による文字列長に対応する
-        int i2 = dataTable.AddString( lpszText );
-
-        //mov rax,i2
-        op_mov_RV(sizeof(_int64),REG_RAX,i2);
-        obp-=sizeof(long);
-        pobj_DataTableSchedule->add();
-        obp+=sizeof(long);
-
-
-        //mov r11,qword ptr[rsp+offset]     ※スタックフレームを利用
-        pobj_sf->ref(REG_R11);
-
-
-        RELATIVE_VAR RelativeVar;
-        RelativeVar.bOffsetOffset=0;
-        RelativeVar.offset=0;
-        RelativeVar.dwKind=VAR_DIRECTMEM;
-
-        SetObjectVariableFromRax((LONG_PTR)pobj_StringClass,DEF_PTR_BYTE,-1,&RelativeVar,0);
-
-        //mov r11,qword ptr[rsp+offset]     ※スタックフレームを利用
-        pobj_sf->pop(REG_R11);
-
+        TYPEINFO baseTypeInfo = { DEF_OBJECT, (LONG_PTR)pobj_StringClass };
+        Operator_New( *pobj_StringClass, "", parameter, baseTypeInfo );
+
+        free( parameter );
+
+        //mov reg,rax
+        op_mov_RR( reg, REG_RAX );
 
     /////////////////////////////////////////////
@@ -65 +31 @@
         RESTORE_REGISTER_RESOURCE
     }////////////////////////////////////////////
-
-    //mov reg,r11
-    op_mov_RR(reg,REG_R11);
 }
 
@@ -102 +65 @@
         else{
             //mov reg,rax
-            op_mov64_ToReg_FromReg(UseReg,REG_RAX);
+            op_mov_RR(UseReg,REG_RAX);
         }
     }
@@ -117 +80 @@
     }
 
-    if(Command[0]==1&&Command[1]==ESC_NEW){
+    if(Command[0]==1&& Command[1]==ESC_NEW ){
         //New演算子（オブジェクト生成）
-        return Operator_New(Command+2,plpIndex);
+        TYPEINFO baseTypeInfo = { BaseType, lpBaseIndex };
+        int resultType = Operator_New(Command+2,plpIndex, baseTypeInfo );
+
+        //mov reg,rax
+        op_mov_RR( *pReg, REG_RAX );
+
+        return resultType;
     }
 
@@ -245 +214 @@
                         TYPEINFO BaseTypeInfo = {BaseType,lpBaseIndex};
                         if(IsStringSubsituation(pobj_Class)
-                            || IsStringObjectType(&BaseTypeInfo)){
+                            || IsStringObjectType(BaseTypeInfo)){
                             //要求タイプがオブジェクトであり、Stringの受け入れが可能な場合
 
@@ -265 +234 @@
                     }
 
-                    type[sp]=DEF_PTR_BYTE;
+                    type[sp]=DEF_PTR_CHAR;
                     bLiteralCalculation=0;
 
@@ -375 +344 @@
                             else pobj_reg->LockReg();
 
-                            if(i2==DEF_OBJECT){
-                                //Object型が戻ったときはヒープ領域にインスタンスが格納されている
+                            if(i2==DEF_STRUCT){
+                                //構造体が戻ったときはヒープ領域にインスタンスが格納されている
                                 //※後にfreeする必要あり
                                 bUseHeap[sp]=1;
@@ -469 +438 @@
                                 SetXmmReg_SingleVariable(&RelativeVar,XmmReg);
                         }
-                        else if(IsWholeNumberType(i2)){
+                        else if(IsWholeNumberType(i2) || i2==DEF_OBJECT){
                             //整数型
                             SetReg_WholeVariable(i2,&RelativeVar,UseReg);
                         }
-                        else if(i2==DEF_OBJECT){
-                            //オブジェクト ポインタをUseRegへ格納
+                        else if(i2==DEF_STRUCT){
+                            //構造体ポインタをUseRegへ格納（構造体は値型）
                             SetVarPtrToReg(UseReg,&RelativeVar);
                         }
@@ -585 +554 @@
                         }////////////////////////////////////////////
 
-                        if(type[sp]==DEF_OBJECT){
-                            //Object型が戻ったときはヒープ領域にインスタンスが格納されている
+                        if(type[sp]==DEF_STRUCT){
+                            //構造体が戻ったときはヒープ領域にインスタンスが格納されている
                             //※後にfreeする必要あり
                             bUseHeap[sp]=1;