Changeset 64 in dev for BasicCompiler32/Compile_Func.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

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

BasicCompiler32/Compile_Func.cpp

@@ -208 +208 @@
 
     TYPEINFO TypeInfo={type,lpIndex};
-    if(IsStringObjectType(&TypeInfo)){
+    if(IsStringObjectType(TypeInfo)){
         //Stringオブジェクトの場合
         char temporary[VN_SIZE];
@@ -346 +346 @@
 }
 void Opcode_Func_SizeOf(const char *Parameter){
-    int type,size;
     LONG_PTR lpIndex;
-
-    type=GetTypeFixed(Parameter,&lpIndex);
-    if(type==-1){
-        extern int cp;
-        SetError(3,Parameter,cp);
-        return;
-    }
-    size=GetTypeSize(type,lpIndex);
+    int type = GetTypeFixed(Parameter,&lpIndex);
+
+    int size;
+    if( type == DEF_OBJECT ){
+        CClass *pClass = (CClass *)lpIndex;
+        size = pClass->GetSize();
+    }
+    else{
+        size=GetTypeSize(type,lpIndex);
+    }
 
     //mov eax,size
-    OpBuffer[obp++]=(char)0xB8;
-    *((long *)(OpBuffer+obp))=size;
-    obp+=sizeof(long);
+    op_mov_RV( REG_EAX, size );
 }
 void Opcode_Func_VarPtr( const char *Parameter, TYPEINFO &ReturnTypeInfo ){
@@ -368 +367 @@
     if(!GetVarOffsetReadOnly( Parameter, &ReturnTypeInfo.type, &RelativeVar, &ReturnTypeInfo.u.lpIndex )) return;
 
+    int beforeType = ReturnTypeInfo.type;
+
     PTR_LEVEL_UP( ReturnTypeInfo.type );
 
     SetVarPtrToEax(&RelativeVar);
+
+    if( beforeType == DEF_OBJECT && lstrcmpi( Parameter, "This" ) != 0 ){
+        //参照をオブジェクトポインタに変更
+
+        //mov eax,dword ptr[eax]
+        op_mov_RM( sizeof(long), REG_EAX, REG_EAX, 0, MOD_BASE );
+    }
 }
 void Opcode_Func_GetPtrData(const char *Parameter,const int type){