Changeset 131 in dev for BasicCompiler32

Timestamp:

Jun 4, 2007, 7:49:17 AM (17 years ago)

Author:

dai_9181

Message:

Prototypeクラスを用意した。

Location:

BasicCompiler32

Files:

• BasicCompiler.vcproj (modified) (1 diff)
• Compile_Object.cpp (modified) (3 diffs)
• Compile_ProcOp.cpp (modified) (4 diffs)
• Compile_Var.cpp (modified) (1 diff)

BasicCompiler32/BasicCompiler.vcproj

@@ -1949 +1949 @@
                     <File
                         RelativePath="..\BasicCompiler_Common\Procedure.h"
+                        >
+                    </File>
+                    <File
+                        RelativePath="..\BasicCompiler_Common\include\Prototype.h"
                         >
                     </File>

BasicCompiler32/Compile_Object.cpp

@@ -36 +36 @@
 
     std::vector<UserProc *> subs;
-    pobj_c->EnumMethod( pobj_c->name, subs );
+    pobj_c->EnumMethod( pobj_c->GetName().c_str(), subs );
 
     UserProc *pUserProc;
     if( subs.size() > 0 ){
         //オーバーロードを解決
-        pUserProc=OverloadSolutionWithStrParam(pobj_c->name,
+        pUserProc=OverloadSolutionWithStrParam(pobj_c->GetName().c_str(),
             subs,CreateParameter,"");
 
@@ -59 +59 @@
         if( subs.size() == 1 ){
             char temporary[VN_SIZE];
-            sprintf( temporary, "_System_TypeBase.Search(\"\",\"%s\"))", pobj_c->name );
+            sprintf( temporary, "_System_TypeBase.Search(\"\",\"%s\"))", pobj_c->GetName().c_str() );
 
             Opcode_CallProc(temporary,
@@ -101 +101 @@
     if(classObj.IsAbstract()){
         //抽象クラスだったとき
-        SetError(125,classObj.name,cp);
+        SetError(125,classObj.GetName(),cp);
     }
 

BasicCompiler32/Compile_ProcOp.cpp

@@ -215 +215 @@
     if( userProc.GetName() == "InitializeUserTypes"
         && userProc.HasParentClass()
-        && (string)userProc.GetParentClass().name == "_System_TypeBase" ){
+        && userProc.GetParentClass().GetName() == "_System_TypeBase" ){
 
             pobj_DBClass->Compile_System_InitializeUserTypes();
@@ -221 +221 @@
     else if( userProc.GetName() == "RegisterGlobalRoots"
         && userProc.HasParentClass()
-        && (string)userProc.GetParentClass().name == "_System_CGarbageCollection" ){
+        && userProc.GetParentClass().GetName() == "_System_CGarbageCollection" ){
 
             Compile_AddGlobalRootsForGc();
@@ -451 +451 @@
 
     if(pobj_CompilingClass){
-        if( pUserProc->GetName() == pobj_CompilingClass->name ){
+        if( pUserProc->GetName() == pobj_CompilingClass->GetName() ){
             ////////////////////////////////////
             // コンストラクタをコンパイルするとき
@@ -482 +482 @@
                     temporary[i4]=basbuf[i3];
                 }
-                if(lstrcmp(temporary,
-                    pobj_CompilingClass->pobj_InheritsClass->name)==0){
+                if( pobj_CompilingClass->pobj_InheritsClass->GetName() == temporary ){
                     //基底クラスのコンストラクタを呼び出す
                     cp=i3;

BasicCompiler32/Compile_Var.cpp

@@ -534 +534 @@
             //自身のクラスから静的メンバを参照する場合
             char temp2[VN_SIZE];
-            sprintf(temp2,"%s.%s",pobj_CompilingClass->name,VarName);
+            sprintf(temp2,"%s.%s",pobj_CompilingClass->GetName().c_str(),VarName);
             pVar = globalVars.Find( temp2 );
             if( pVar ){