Changeset 64 in dev for BasicCompiler32/NumOpe.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• BasicCompiler32/NumOpe.cpp (modified) (11 diffs)

BasicCompiler32/NumOpe.cpp

@@ -6 +6 @@
     //※この処理内では、esi、ediは使用不可
 
-    if(type==DEF_OBJECT){
+    if(type==DEF_OBJECT || type==DEF_STRUCT){
         //push eax
         op_push(REG_EAX);
@@ -62 +62 @@
         op_push(REG_EAX);
     }
-    else if(type==DEF_PTR_BYTE){
-        //push eax
-        op_push(REG_EAX);
+    else{
+        SetError();
     }
 }
@@ -71 +70 @@
     ///////////////////////////////////////////////////////
     // lpszTextを元にStringオブジェクトを生成し、
-    // オブジェクトポインタをスタックに格納する
+    // オブジェクトポインタをregに格納する
     ///////////////////////////////////////////////////////
 
+    char *parameter = (char *)malloc( lstrlen( lpszText ) + 3 );
+    lstrcpy( parameter, lpszText );
+    SetStringQuotes( parameter );
+
     extern CClass *pobj_StringClass;
-    int object_size = pobj_StringClass->GetSize();
-
-    //push object_size
-    op_push_value(object_size);
-
-    //call calloc
-    extern SUBINFO *pSub_calloc;
-    op_call(pSub_calloc);
-
-    //push eax
-    op_push(REG_EAX);
-
-    //push eax
-    op_push(REG_EAX);
-
-    {
-        //push eax
-        op_push(REG_EAX);
-
-        //call constructor
-        op_call(pobj_StringClass->GetConstructorMethod()->psi);
-    }
-
-    // TODO: Ex表記による文字列長に対応する
-    int i2 = dataTable.AddString( lpszText );
-
-    //push lpszPtr
-    OpBuffer[obp++]=(char)0x68;
-    *((long *)(OpBuffer+obp))=i2;
-    pobj_DataTableSchedule->add();
-    obp+=sizeof(long);
-
-
-    SetObjectVariable((LONG_PTR)pobj_StringClass,DEF_PTR_BYTE,-1,0);
+    TYPEINFO baseTypeInfo = { DEF_OBJECT, (LONG_PTR)pobj_StringClass };
+    Operator_New( *pobj_StringClass, "", parameter, baseTypeInfo );
+
+    free( parameter );
 }
 
@@ -122 +95 @@
     }
 
-    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 );
+
+        return resultType;
     }
 
@@ -221 +197 @@
                         TYPEINFO BaseTypeInfo = {BaseType,lpBaseIndex};
                         if(IsStringSubsituation(pobj_Class)
-                            || IsStringObjectType(&BaseTypeInfo)){
+                            || IsStringObjectType(BaseTypeInfo)){
                             //要求タイプがオブジェクトであり、Stringの受け入れが可能な場合
 
@@ -239 +215 @@
 
 
-                    type[sp]=DEF_PTR_BYTE;
+                    type[sp]=DEF_PTR_CHAR;
                     index_stack[sp]=LITERAL_STRING;
                     bLiteralCalculation=0;
@@ -329 +305 @@
                             }
 
-                            if(i2==DEF_OBJECT){
-                                //Object型が戻ったときはヒープ領域にインスタンスが格納されている
+                            if(i2==DEF_STRUCT){
+                                //構造体が戻ったときはヒープ領域にインスタンスが格納されている
                                 //※後にfreeする必要あり
                                 bUseHeap[sp]=1;
@@ -413 +389 @@
                         }
                         else if(i2==DEF_LONG||i2==DEF_DWORD||i2==DEF_SINGLE||
-                            IsPtrType(i2)){
+                            IsPtrType(i2) || i2==DEF_OBJECT){
                             //32ビット型
                             PushLongVariable(&RelativeVar);
@@ -429 +405 @@
                             PushByteVariable(&RelativeVar);
                         }
-                        else if(i2==DEF_OBJECT){
-                            //オブジェクト ポインタをeaxへ格納
+                        else if(i2==DEF_STRUCT){
+                            //構造体ポインタをeaxへ格納（構造体は値型）
                             SetVarPtrToEax(&RelativeVar);
 
@@ -436 +412 @@
                             op_push(REG_EAX);
                         }
+                        else SetError(11,term,cp);
 
                         if(Is64Type(type[sp])&&IsWholeNumberType(i2)&&GetTypeSize(i2,-1)<=sizeof(long)){
@@ -517 +494 @@
                         PushReturnValue(RetTypeInfo.type);
 
-                        if(type[sp]==DEF_OBJECT){
-                            //Object型が戻ったときはヒープ領域にインスタンスが格納されている
+                        if(type[sp]==DEF_STRUCT){
+                            //構造体が戻ったときはヒープ領域にインスタンスが格納されている
                             //※後にfreeする必要あり
                             bUseHeap[sp]=1;