Changeset 131 in dev for BasicCompiler32/Compile_ProcOp.cpp

Timestamp:

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

Author:

dai_9181

Message:

Prototypeクラスを用意した。

File:

• BasicCompiler32/Compile_ProcOp.cpp (modified) (4 diffs)

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;