Changeset 75 in dev for BasicCompiler32/Compile_Func.cpp

Timestamp:

Mar 20, 2007, 4:36:16 AM (18 years ago)

Author:

dai_9181

Message:

TYPEINFO→Typeへのリファクタリングを実施。64bitはほぼ完了。32bitが全般的に未完成。

File:

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

BasicCompiler32/Compile_Func.cpp

@@ -207 +207 @@
     }
 
-    TYPEINFO TypeInfo={type,lpIndex};
+    Type TypeInfo={type,lpIndex};
     if(IsStringObjectType(TypeInfo)){
         //Stringオブジェクトの場合
@@ -243 +243 @@
 void Opcode_Func_AddressOf(const char *name){
     extern int cp;
-    SubInfo *psi;
+    UserProc *pUserProc;
 
     extern LONG_PTR ProcPtr_BaseIndex;
@@ -249 +249 @@
         //左辺の型にのっとり、オーバーロードを解決
 
-        std::vector<SubInfo *> subs;
+        std::vector<UserProc *> subs;
         GetOverloadSubHash( name, subs );
         if( subs.size() == 0 ){
@@ -257 +257 @@
 
         //オーバーロードを解決
-        extern PROCPTRINFO *pProcPtrInfo;
-        psi=OverloadSolution(name,subs,pProcPtrInfo[ProcPtr_BaseIndex].pParmInfo,pProcPtrInfo[ProcPtr_BaseIndex].ParmNum,NULL);
-
-        if(!psi){
+        extern ProcPointer **ppProcPtrInfo;
+        pUserProc=OverloadSolution(name,subs,ppProcPtrInfo[ProcPtr_BaseIndex]->Params(), Type() );
+
+        if(!pUserProc){
             SetError(27,name,cp);
             return;
@@ -266 +266 @@
     }
     else{
-        psi=GetSubHash(name);
-        if(!psi){
+        pUserProc=GetSubHash(name);
+        if(!pUserProc){
             SetError(27,name,cp);
             return;
@@ -273 +273 @@
     }
 
-
-    if(psi->bVirtual){
+    if( pUserProc->IsVirtual() ){
         ///////////////////////////////
         // 仮想関数の場合
@@ -324 +323 @@
         OpBuffer[obp++]=(char)0x11;
 
-        int i2 = pobj_c->GetFuncNumInVtbl( psi );
+        int i2 = pobj_c->GetFuncNumInVtbl( pUserProc );
 
         //mov eax,dword ptr[edx+func_index]
@@ -339 +338 @@
         //mov eax,ProcAddr
         OpBuffer[obp++]=(char)0xB8;
-        pobj_SubAddrSchedule->add(psi,0);
+        pobj_SubAddrSchedule->add(pUserProc,0);
         obp+=sizeof(long);
     }
 
-    psi->bUse=1;
+    pUserProc->Using();
 }
 void Opcode_Func_SizeOf(const char *Parameter){
@@ -361 +360 @@
     op_mov_RV( REG_EAX, size );
 }
-void Opcode_Func_VarPtr( const char *Parameter, TYPEINFO &ReturnTypeInfo ){
+void Opcode_Func_VarPtr( const char *Parameter, Type &ReturnTypeInfo ){
     RELATIVE_VAR RelativeVar;
 
@@ -439 +438 @@
 }
 
-void Opcode_CallFunc( const char *Parameter, const int FuncNum, TYPEINFO &ReturnTypeInfo ){
+void Opcode_CallFunc( const char *Parameter, const int FuncNum, Type &ReturnTypeInfo ){
     switch(FuncNum){
         case FUNC_FIX: