Changeset 465 in dev for trunk/ab5.0/abdev/BasicCompiler_Common/src

Timestamp:

Mar 24, 2008, 8:05:20 PM (17 years ago)

Author:

dai_9181

Message:

Messenger/ErrorMessengerクラスを導入。SetError関数によるエラー生成を廃止した。

Location:

trunk/ab5.0/abdev/BasicCompiler_Common/src

Files:

• Class.cpp (modified) (23 diffs)
• Class_Collect.cpp (modified) (20 diffs)
• CommonCodeGenerator.cpp (modified) (13 diffs)
• Compiler.cpp (modified) (1 diff)
• Const.cpp (modified) (6 diffs)
• DataTable.cpp (modified) (7 diffs)
• Delegate.cpp (modified) (7 diffs)
• Enum.cpp (modified) (4 diffs)
• Exception.cpp (modified) (13 diffs)
• LexicalScope.cpp (modified) (2 diffs)
• Linker.cpp (modified) (2 diffs)
• Messenger.cpp (added)
• Method.cpp (modified) (4 diffs)
• NamespaceSupporter.cpp (modified) (2 diffs)
• NativeCode.cpp (modified) (1 diff)
• Parameter.cpp (modified) (4 diffs)
• Procedure.cpp (modified) (43 diffs)
• Source.cpp (modified) (2 diffs)
• Type.cpp (modified) (3 diffs)
• TypeDef.cpp (modified) (8 diffs)

trunk/ab5.0/abdev/BasicCompiler_Common/src/Class.cpp

@@ -199 +199 @@
         const CClass *pInheritsClass = compiler.GetObjectModule().meta.GetClasses().Find(className);
         if( !pInheritsClass ){
-            SetError(106,className,nowLine);
+            compiler.errorMessenger.Output(106,className,nowLine);
             return false;
         }
@@ -212 +212 @@
         }
         else{
-            SetError(135,pInheritsClass->GetFullName().c_str(),nowLine);
+            compiler.errorMessenger.Output(135,pInheritsClass->GetFullName().c_str(),nowLine);
             return false;
         }
@@ -236 +236 @@
     if( !compiler.GetObjectModule().meta.GetClasses().LoopRefCheck(inheritsClass) )
     {
-        SetError(123,inheritsClass.GetName(),nowLine);
+        compiler.errorMessenger.Output(123,inheritsClass.GetName(),nowLine);
         return false;
     }
@@ -296 +296 @@
     {
         // インターフェイスではないとき
-        SetError(138,interfaceClass.GetName().c_str(),nowLine );
+        compiler.errorMessenger.Output(138,interfaceClass.GetName().c_str(),nowLine );
         return false;
     }
@@ -379 +379 @@
         const CClass *pInterfaceClass = compiler.GetObjectModule().meta.GetClasses().Find( className );
         if( !pInterfaceClass ){
-            SetError(106,paramStr.c_str(),nowLine);
+            compiler.errorMessenger.Output(106,paramStr.c_str(),nowLine);
             continue;
         }
@@ -404 +404 @@
     //重複チェック
     if(this->DupliCheckAll(VarName)){
-        SetError(15,VarName,cp);
+        compiler.errorMessenger.Output(15,VarName,cp);
     }
 
@@ -466 +466 @@
         //デストラクタの場合はその名前が正しいかチェックを行う
         if(lstrcmp(temporary+1,pobj_c->GetName().c_str())!=0)
-            SetError(117,NULL,nowLine);
+            compiler.errorMessenger.Output(117,NULL,nowLine);
         else
             bDestructor=1;
@@ -489 +489 @@
 
     if(pobj_c->DupliCheckMember(temporary)){
-        SetError(15,temporary,nowLine);
+        compiler.errorMessenger.Output(15,temporary,nowLine);
         return;
     }
@@ -502 +502 @@
         {
             //関数名、パラメータ、戻り値が合致したとき
-            SetError(15,pUserProc->GetName().c_str(),nowLine);
+            compiler.errorMessenger.Output(15,pUserProc->GetName().c_str(),nowLine);
             return;
         }
@@ -549 +549 @@
     if( interfaceName[0] )
     {
-        SetError(139,interfaceName,nowLine);
+        compiler.errorMessenger.Output(139,interfaceName,nowLine);
     }
 
@@ -557 +557 @@
 
     if( isOverride ){
-        SetError(12,"Override",nowLine);
+        compiler.errorMessenger.Output(12,"Override",nowLine);
     }
 
@@ -757 +757 @@
                 if( !pMember->GetType().IsStruct() )
                 {
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                 }
 
@@ -863 +863 @@
                 if( !pMember->GetType().IsStruct() )
                 {
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                 }
 
@@ -985 +985 @@
     }
 
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
     return;
 }
@@ -1002 +1002 @@
     }
 
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
     return 0;
 }
@@ -1014 +1014 @@
     if( vtblMasterListOffset == -1 )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -1042 +1042 @@
     if( vtblMasterList.size() )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -1062 +1062 @@
             if( this->comVtblOffset )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
             this->comVtblOffset = tempVtblOffset;
@@ -1167 +1167 @@
     if( !Put( pClass ) )
     {
-        SetError(15,pClass->GetName(), nowLine);
+        compiler.errorMessenger.Output(15,pClass->GetName(), nowLine);
         return false;
     }
@@ -1465 +1465 @@
             pCompilingMethod = pParentClass->GetStaticMethods().GetMethodPtr( pUserProc );
             if( !pCompilingMethod ){
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
         }
@@ -1482 +1482 @@
         if( !pStringClass )
         {
-            SetError(400, "System.String", cp);
+            compiler.errorMessenger.Output(400, "System.String", cp);
             static CClass dummy;
             return &dummy;
@@ -1498 +1498 @@
         if( !pObjectClass )
         {
-            SetError(400, "System.Object", cp);
+            compiler.errorMessenger.Output(400, "System.Object", cp);
             static CClass dummy;
             return &dummy;
@@ -1514 +1514 @@
         if( !pInterfaceInfo )
         {
-            SetError(400, "ActiveBasic.Core.InterfaceInfo", cp);
+            compiler.errorMessenger.Output(400, "ActiveBasic.Core.InterfaceInfo", cp);
             static CClass dummy;
             return &dummy;

trunk/ab5.0/abdev/BasicCompiler_Common/src/Class_Collect.cpp

@@ -102 +102 @@
         else if( source[i] == 1 && source[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{
@@ -121 +121 @@
             if( !compiler.GetNamespaceSupporter().ImportsNamespace( temporary ) )
             {
-                SetError(64,temporary,i );
+                compiler.errorMessenger.Output(64,temporary,i );
             }
 
@@ -228 +228 @@
             if(pobj_LoopRefCheck->check(pMember->GetType().GetClass())){
                 extern int cp;
-                SetError(124,pMember->GetType().GetClass().GetName(),cp);
+                compiler.errorMessenger.Output(124,pMember->GetType().GetClass().GetName(),cp);
                 return false;
             }
@@ -283 +283 @@
         else if( basbuf[i] == 1 && basbuf[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{
@@ -303 +303 @@
             if( !compiler.GetNamespaceSupporter().ImportsNamespace( temporary ) )
             {
-                SetError(64,temporary,i );
+                compiler.errorMessenger.Output(64,temporary,i );
             }
 
@@ -358 +358 @@
                     if( !compiler.StringToType( typeParameterBaseClassNames[i2], baseType ) )
                     {
-                        SetError(106,typeParameterBaseClassNames[i2],i);
+                        compiler.errorMessenger.Output(106,typeParameterBaseClassNames[i2],i);
                     }
                     else if( !baseType.IsObject() )
                     {
-                        SetError(106,typeParameterBaseClassNames[i2],i);
+                        compiler.errorMessenger.Output(106,typeParameterBaseClassNames[i2],i);
                     }
                 }
@@ -394 +394 @@
 
                 if(lstrcmpi(temporary,pobj_c->GetName().c_str())==0){
-                    SetError(105,temporary,i);
+                    compiler.errorMessenger.Output(105,temporary,i);
                     goto Interface_InheritsError;
                 }
@@ -402 +402 @@
                 const CClass *pInheritsClass = classes.Find(temporary);
                 if( !pInheritsClass ){
-                    SetError(106,temporary,i);
+                    compiler.errorMessenger.Output(106,temporary,i);
                     goto Interface_InheritsError;
                 }
@@ -427 +427 @@
                 //エラー
                 if(basbuf[i]==1&&(basbuf[i+1]==ESC_CLASS||basbuf[i+1]==ESC_TYPE||basbuf[i+1]==ESC_INTERFACE)){
-                    SetError(22,"Interface",i);
+                    compiler.errorMessenger.Output(22,"Interface",i);
                     i--;
                     break;
@@ -433 +433 @@
 
                 if(basbuf[i]==1&&basbuf[i+1]==ESC_INHERITS){
-                    SetError(111,NULL,i);
+                    compiler.errorMessenger.Output(111,NULL,i);
                     break;
                 }
                 else if( basbuf[i] == 1 && basbuf[i+1] == ESC_IMPLEMENTS )
                 {
-                    SetError(137, NULL, i );
+                    compiler.errorMessenger.Output(137, NULL, i );
                     break;
                 }
@@ -454 +454 @@
                     if(basbuf[i]=='\0'){
                         i--;
-                        SetError(22,"Interface",top_pos);
+                        compiler.errorMessenger.Output(22,"Interface",top_pos);
                         break;
                     }
@@ -466 +466 @@
                     temporary[1]==ESC_SUB||temporary[1]==ESC_FUNCTION
                     ))){
-                    SetError(1,NULL,i);
+                    compiler.errorMessenger.Output(1,NULL,i);
                     break;
                 }
@@ -505 +505 @@
                 if( dwClassType != ESC_TYPE )
                 {
-                    SetError(140,NULL,i);
+                    compiler.errorMessenger.Output(140,NULL,i);
                 }
 
                 if(!(iAlign==1||iAlign==2||iAlign==4||iAlign==8||iAlign==16))
-                    SetError(51,NULL,i);
+                    compiler.errorMessenger.Output(51,NULL,i);
             }
             else if( memicmp( basbuf + i, "Blittable(", 10 ) == 0 ){
@@ -518 +518 @@
                 if( dwClassType != ESC_CLASS )
                 {
-                    SetError(141,NULL,i);
+                    compiler.errorMessenger.Output(141,NULL,i);
                 }
             }
@@ -568 +568 @@
                     if( !compiler.StringToType( typeParameterBaseClassNames[i2], baseType ) )
                     {
-                        SetError(106,typeParameterBaseClassNames[i2],i);
+                        compiler.errorMessenger.Output(106,typeParameterBaseClassNames[i2],i);
                     }
                     else if( !baseType.IsObject() )
                     {
-                        SetError(106,typeParameterBaseClassNames[i2],i);
+                        compiler.errorMessenger.Output(106,typeParameterBaseClassNames[i2],i);
                     }
                 }
@@ -616 +616 @@
 
                     if(lstrcmpi(temporary,pobj_c->GetName().c_str())==0){
-                        SetError(105,temporary,i);
+                        compiler.errorMessenger.Output(105,temporary,i);
                         goto InheritsError;
                     }
@@ -644 +644 @@
                 //エラー
                 if(basbuf[i]==1&&(basbuf[i+1]==ESC_CLASS||basbuf[i+1]==ESC_TYPE)){
-                    SetError(22,"Class",i);
+                    compiler.errorMessenger.Output(22,"Class",i);
                     i--;
                     break;
@@ -650 +650 @@
 
                 if(basbuf[i]==1&&basbuf[i+1]==ESC_INHERITS){
-                    SetError(111,NULL,i);
+                    compiler.errorMessenger.Output(111,NULL,i);
                     break;
                 }
                 else if( basbuf[i] == 1 && basbuf[i+1] == ESC_IMPLEMENTS )
                 {
-                    SetError(137, NULL, i );
+                    compiler.errorMessenger.Output(137, NULL, i );
                     break;
                 }
@@ -718 +718 @@
 
                         if(dwClassType==ESC_CLASS)
-                            SetError(22,"Class",top_pos);
+                            compiler.errorMessenger.Output(22,"Class",top_pos);
                         else
-                            SetError(22,"Type",top_pos);
+                            compiler.errorMessenger.Output(22,"Type",top_pos);
 
                         i--;
@@ -810 +810 @@
                             basbuf[i+1]==ESC_ENUM)){
                             GetDefaultNameFromES(i3,temporary);
-                            SetError(22,temporary,i);
+                            compiler.errorMessenger.Output(22,temporary,i);
                         }
                         if(basbuf[i]==1&&basbuf[i+1]==GetEndXXXCommand((char)i3)){

trunk/ab5.0/abdev/BasicCompiler_Common/src/CommonCodeGenerator.cpp

@@ -22 +22 @@
     if( pertialSchedules.size() > 0 )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -40 +40 @@
                 {
                     // 範囲外
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                 }
 
@@ -55 +55 @@
             else
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -72 +72 @@
     if( isSuccessful == false )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -94 +94 @@
             else
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -111 +111 @@
     if( isSuccessful == false )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -133 +133 @@
                 {
                     // 範囲外
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                 }
 
@@ -144 +144 @@
             else
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -160 +160 @@
     if( isSuccessful == false )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -180 +180 @@
         else
         {
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
     }
@@ -196 +196 @@
         else
         {
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
     }
@@ -223 +223 @@
     else
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -276 +276 @@
     if( GetContinueCodePos() == -1 )
     {
-        SetError(12,"Continue",cp);
+        compiler.errorMessenger.Output(12,"Continue",cp);
         return;
     }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Compiler.cpp

@@ -206 +206 @@
     }
 
-    SetError(1, NULL, cp);
+    compiler.errorMessenger.Output(1, NULL, cp);
 
     return (string)"(null)";

trunk/ab5.0/abdev/BasicCompiler_Common/src/Const.cpp

@@ -17 +17 @@
     for(i=0;;i++){
         if(buffer[i]=='\0'){
-            SetError(10,"Const",cp);
+            compiler.errorMessenger.Output(10,"Const",cp);
             return;
         }
@@ -31 +31 @@
         || compiler.GetObjectModule().meta.GetGlobalConsts().IsExist( name ) )
     {
-        SetError(15,name,cp);
+        compiler.errorMessenger.Output(15,name,cp);
         return;
     }
@@ -144 +144 @@
         extern int cp;
         for(i2=0;i2<num;i2++) HeapDefaultFree(pParms[i2]);
-        SetError(10,GetName().c_str(),cp);
+        compiler.errorMessenger.Output(10,GetName().c_str(),cp);
         lstrcpy(dest,"0");
         return 1;
@@ -206 +206 @@
     if(parameterStr[i]!='(')
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         return;
     }
@@ -214 +214 @@
     for(i++,i2=0;;i++,i2++){
         if(parameterStr[i]=='\0'){
-            SetError(1,NULL,cp);
+            compiler.errorMessenger.Output(1,NULL,cp);
             return;
         }
@@ -226 +226 @@
                 if(parameterStr[i]!='='){
                     extern int cp;
-                    SetError(1,NULL,cp);
+                    compiler.errorMessenger.Output(1,NULL,cp);
                     return;
                 }

trunk/ab5.0/abdev/BasicCompiler_Common/src/DataTable.cpp

@@ -121 +121 @@
             {
                 // エラー
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
                 return false;
             }
@@ -196 +196 @@
             i+=i2;
             if(expression[i]!='\0'){
-                SetError(42,NULL,cp);
+                compiler.errorMessenger.Output(42,NULL,cp);
                 return false;
             }
@@ -213 +213 @@
 
     if( !compiler.StringToType( typeName, resultType ) ){
-        SetError(3,typeName,cp);
+        compiler.errorMessenger.Output(3,typeName,cp);
         return false;
     }
@@ -222 +222 @@
         ////////////////////////
 
-        SetError(121,NULL,cp);
+        compiler.errorMessenger.Output(121,NULL,cp);
         return false;
     }
@@ -268 +268 @@
 {
     if( !baseType.IsPointer() ){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return false;
     }
@@ -301 +301 @@
             if( !RemoveStringQuotes( tempParamStr ) )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -335 +335 @@
             if( !resultType.IsWhole() ){
                 // TODO: 実数に未対応
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
                 isSuccessful = false;
                 break;

trunk/ab5.0/abdev/BasicCompiler_Common/src/Delegate.cpp

@@ -20 +20 @@
         if( !compiler.StringToType( returnTypeName, returnType ) )
         {
-            SetError(3,returnTypeName,sourceIndex);
+            compiler.errorMessenger.Output(3,returnTypeName,sourceIndex);
         }
     }
@@ -72 +72 @@
         else if( source[i] == 1 && source[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{
@@ -91 +91 @@
             if( !compiler.GetNamespaceSupporter().ImportsNamespace( temporary ) )
             {
-                SetError(64,temporary,i );
+                compiler.errorMessenger.Output(64,temporary,i );
             }
 
@@ -108 +108 @@
             if( !( source[i] == 1 && ( source[i+1] == ESC_SUB || source[i+1] == ESC_FUNCTION ) ) )
             {
-                SetError(1,NULL,i);
+                compiler.errorMessenger.Output(1,NULL,i);
                 continue;
             }
@@ -125 +125 @@
             if( source[i] != '(' )
             {
-                SetError(1,NULL,nowLine);
+                compiler.errorMessenger.Output(1,NULL,nowLine);
                 continue;
             }
@@ -142 +142 @@
                 if( procKind != Procedure::Function )
                 {
-                    SetError(38,name,nowLine);
+                    compiler.errorMessenger.Output(38,name,nowLine);
                 }
             }
@@ -149 +149 @@
                 if( procKind == Procedure::Function )
                 {
-                    SetError(-104,name,nowLine);
+                    compiler.errorMessenger.Output(-104,name,nowLine);
                     lstrcpy( returnTypeName, "Double" );
                 }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Enum.cpp

@@ -18 +18 @@
         }
         if(!IsVariableChar(buffer[i])){
-            SetError(1,NULL,i);
+            compiler.errorMessenger.Output(1,NULL,i);
             break;
         }
@@ -25 +25 @@
 
     if(buffer[i]=='\0'){
-        SetError(22,"Enum",nowLine);
+        compiler.errorMessenger.Output(22,"Enum",nowLine);
         return;
     }
@@ -52 +52 @@
         if(temporary[0]=='\0'){
             if(buffer[i]=='\0'){
-                SetError(22,"Enum",nowLine);
+                compiler.errorMessenger.Output(22,"Enum",nowLine);
                 break;
             }
@@ -131 +131 @@
         else if( source[i] == 1 && source[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{

trunk/ab5.0/abdev/BasicCompiler_Common/src/Exception.cpp

@@ -120 +120 @@
         if( isDefinedFinally )
         {
-            SetError(71,NULL,cp);
+            compiler.errorMessenger.Output(71,NULL,cp);
             return;
         }
@@ -146 +146 @@
         if( isDefinedFinally )
         {
-            SetError(70,NULL,cp);
+            compiler.errorMessenger.Output(70,NULL,cp);
             return;
         }
@@ -173 +173 @@
         if( !isDefinedFinally )
         {
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
 
@@ -259 +259 @@
     if( tryScopes.size() == 0 )
     {
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -271 +271 @@
         if( !typeName[0] )
         {
-            SetError(72,NULL,cp);
+            compiler.errorMessenger.Output(72,NULL,cp);
         }
         else
@@ -277 +277 @@
             if( !compiler.StringToType( typeName, paramType ) )
             {
-                SetError(74,typeName,cp);
+                compiler.errorMessenger.Output(74,typeName,cp);
             }
             else
@@ -283 +283 @@
                 if( !paramType.IsObject() )
                 {
-                    SetError(73,typeName,cp);
+                    compiler.errorMessenger.Output(73,typeName,cp);
                 }
             }
@@ -296 +296 @@
     if( paramType.IsObject() )
     {
-        sprintf( temporary, "Dim %s = Thread.CurrentThread().__GetThrowintParamObject() As %s", varName, paramType.GetClass().GetFullName().c_str() );
+        sprintf( temporary, "Dim %s = System.Threading.Thread.CurrentThread().__GetThrowintParamObject() As %s", varName, paramType.GetClass().GetFullName().c_str() );
         MakeMiddleCode( temporary );
         ChangeOpcode( temporary );
     }
-    lstrcpy( temporary, "Thread.CurrentThread().__Catched()" );
+    lstrcpy( temporary, "System.Threading.Thread.CurrentThread().__Catched()" );
     MakeMiddleCode( temporary );
     ChangeOpcode( temporary );
@@ -326 +326 @@
     if( tryScopes.size() == 0 )
     {
-        SetError(12,"End Try",cp);
+        compiler.errorMessenger.Output(12,"End Try",cp);
         return;
     }
@@ -333 +333 @@
     {
         // CatchもFinallyも存在しないとき
-        SetError(-108,NULL,tryScopes.back().GetSourceCodePos() );
+        compiler.errorMessenger.Output(-108,NULL,tryScopes.back().GetSourceCodePos() );
     }
 
@@ -364 +364 @@
     while( tryScopes.size() > 0 )
     {
-        SetError(22, "Try", tryScopes.back().GetSourceCodePos() );
+        compiler.errorMessenger.Output(22, "Try", tryScopes.back().GetSourceCodePos() );
 
         EndTryCommand( true );
@@ -393 +393 @@
     if( tryScopes.size() == 0 )
     {
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -424 +424 @@
     if( tryScopes.size() == 0 )
     {
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }

trunk/ab5.0/abdev/BasicCompiler_Common/src/LexicalScope.cpp

@@ -64 +64 @@
 void LexicalScopes::End(){
     if( level <= 0 ){
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         return;
     }
@@ -154 +154 @@
             if( UserProc::IsGlobalAreaCompiling() ){
                 //ここには来ないハズ
-                SetError(300,NULL,cp);
+                compiler.errorMessenger.Output(300,NULL,cp);
             }
         }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Linker.cpp

@@ -113 +113 @@
                 && schedule.GetUserProc().GetEndOpAddress() == 0 )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -252 +252 @@
     if( nativeCode.GetSize() > 0 )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 

trunk/ab5.0/abdev/BasicCompiler_Common/src/Method.cpp

@@ -11 +11 @@
     {
         // Override修飾子が無い状況で基底クラスの実体メソッドをオーバーライドしようとした
-        SetError(127,NULL,cp);
+        compiler.errorMessenger.Output(127,NULL,cp);
     }
 
@@ -21 +21 @@
     {
         // オーバーライドミス
-        SetError(136, pUserProc->GetName(), cp);
+        compiler.errorMessenger.Output(136, pUserProc->GetName(), cp);
     }
     if(this->GetAccessibility() != accessibility )
     {
-        SetError(128,NULL,cp);
+        compiler.errorMessenger.Output(128,NULL,cp);
     }
 
@@ -35 +35 @@
 {
     // 静的メソッドがコピーコンストラトされることは想定しない
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
 }
 
@@ -160 +160 @@
 
             if(pMethod->IsAbstract()){
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
 
                 ppsi[i2]=0;

trunk/ab5.0/abdev/BasicCompiler_Common/src/NamespaceSupporter.cpp

@@ -46 +46 @@
         else if( source[i] == 1 && source[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError( 12, "End Namespace", i );
+                compiler.errorMessenger.Output( 12, "End Namespace", i );
                 isSuccessful = false;
             }
@@ -59 +59 @@
 
     if( namespaceScopes.size() > 0 ){
-        SetError( 63, NULL, cp );
+        compiler.errorMessenger.Output( 63, NULL, cp );
         isSuccessful = false;
     }

trunk/ab5.0/abdev/BasicCompiler_Common/src/NativeCode.cpp

@@ -4 +4 @@
 
 #define BREAK_EIP(checkEip)  (obp+0x00401000>=checkEip)
+
+const ::DllProc &Schedule::GetDllProc() const
+{
+    if( type != Schedule::DllProc )
+    {
+        compiler.errorMessenger.OutputFatalError();
+    }
+    return *pDllProc;
+}
+const ::UserProc &Schedule::GetUserProc() const
+{
+    if( !( type == Schedule::UserProc || type == Schedule::AddressOf || type == Schedule::CatchAddress ) )
+    {
+        compiler.errorMessenger.OutputFatalError();
+    }
+    return *pUserProc;
+}
+const ::CClass &Schedule::GetClass() const
+{
+    if( !( type == Schedule::ComVtbl || type == Schedule::Vtbl || type == Schedule::TypeInfo ) )
+    {
+        compiler.errorMessenger.OutputFatalError();
+    }
+    return *pClass;
+}
+
+void Schedule::SpecifyAddressOf()
+{
+    if( type != Schedule::UserProc )
+    {
+        compiler.errorMessenger.OutputFatalError();
+    }
+    type = Schedule::AddressOf;
+}
+void Schedule::SpecifyCatchAddress()
+{
+    if( type != Schedule::UserProc )
+    {
+        compiler.errorMessenger.OutputFatalError();
+    }
+    type = Schedule::CatchAddress;
+}
 
 void NativeCode::PutEx( const NativeCode &nativeCode )

trunk/ab5.0/abdev/BasicCompiler_Common/src/Parameter.cpp

@@ -145 +145 @@
             if( isRef == false )
             {
-                SetError(29,NULL,nowLine);
+                compiler.errorMessenger.Output(29,NULL,nowLine);
             }
             isArray = true;
@@ -206 +206 @@
 
             if( type.IsNull() ){
-                SetError(3,temporary,nowLine);
+                compiler.errorMessenger.Output(3,temporary,nowLine);
                 type.SetBasicType( DEF_PTR_VOID );
             }
@@ -219 +219 @@
         else{
             type.SetBasicType( Type::GetBasicTypeFromSimpleName(temporary) );
-            SetError(-103,temporary,nowLine);
+            compiler.errorMessenger.Output(-103,temporary,nowLine);
         }
 
@@ -240 +240 @@
         }
         else{
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             break;
         }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Procedure.cpp

@@ -105 +105 @@
     //パラメータ
     if(sourceOfParams[i]!='('){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return false;
     }
@@ -111 +111 @@
         //クラスのメンバ関数の場合のみ、デストラクタにパラメータがある場合にエラーをだす
         if(this->GetName()[0]=='~'){
-            SetError(114,NULL,nowLine);
+            compiler.errorMessenger.Output(114,NULL,nowLine);
             return false;
         }
@@ -133 +133 @@
             if( !this->IsFunction() ){
                 // Sub/Macroの場合
-                SetError(38,this->GetName(),nowLine);
+                compiler.errorMessenger.Output(38,this->GetName(),nowLine);
             }
 
@@ -140 +140 @@
         else
         {
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             return false;
         }
@@ -199 +199 @@
             if( isRef == false )
             {
-                SetError(29,NULL,nowLine);
+                compiler.errorMessenger.Output(29,NULL,nowLine);
             }
             isArray = true;
@@ -248 +248 @@
 
             if( type.IsNull() ){
-                SetError(3,temporary,nowLine);
+                compiler.errorMessenger.Output(3,temporary,nowLine);
                 type.SetBasicType( DEF_PTR_VOID );
             }
@@ -261 +261 @@
         else{
             type.SetBasicType( Type::GetBasicTypeFromSimpleName(name) );
-            SetError(-103,name,nowLine);
+            compiler.errorMessenger.Output(-103,name,nowLine);
         }
 
@@ -325 +325 @@
         if(sw){
             //配列パラメータ
-            if( isRef == false ) SetError(29,NULL,nowLine);
+            if( isRef == false ) compiler.errorMessenger.Output(29,NULL,nowLine);
             isArray = true;
 
@@ -389 +389 @@
 
             if( type.IsNull() ){
-                SetError(3,temporary,nowLine);
+                compiler.errorMessenger.Output(3,temporary,nowLine);
                 type.SetBasicType( DEF_PTR_VOID );
             }
@@ -402 +402 @@
         else{
             type.SetBasicType( Type::GetBasicTypeFromSimpleName(temporary) );
-            SetError(-103,temporary,nowLine);
+            compiler.errorMessenger.Output(-103,temporary,nowLine);
         }
 
@@ -421 +421 @@
         if( !this->IsFunction() ){
             // Sub/Macroの場合
-            SetError(38,this->GetName(),nowLine);
+            compiler.errorMessenger.Output(38,this->GetName(),nowLine);
         }
 
@@ -428 +428 @@
                 this->GetName()[0]=='~'){
                 //クラスのコンストラクタ、デストラクタがFunction定義の場合はエラーをだす
-                SetError(115,NULL,nowLine);
+                compiler.errorMessenger.Output(115,NULL,nowLine);
             }
         }
@@ -435 +435 @@
         if( this->returnType.IsNull() )
         {
-            SetError(3,returnTypeStr,nowLine);
+            compiler.errorMessenger.Output(3,returnTypeStr,nowLine);
         }
     }
@@ -442 +442 @@
         {
             // Function定義なのに、戻り値の型がセットされていない
-            SetError(-104,this->GetName().c_str(),nowLine);
+            compiler.errorMessenger.Output(-104,this->GetName().c_str(),nowLine);
 
             this->returnType.SetBasicType( DEF_DOUBLE );
@@ -495 +495 @@
     {
         // 重複しているため、失敗
-        SetError(15,pUserProc->GetName().c_str(),nowLine);
+        compiler.errorMessenger.Output(15,pUserProc->GetName().c_str(),nowLine);
         return false;
     }
@@ -536 +536 @@
     if(buffer[i]==1&&buffer[i+1]==ESC_OPERATOR){
         if(!pobj_c){
-            SetError(126,NULL,nowLine);
+            compiler.errorMessenger.Output(126,NULL,nowLine);
             return 0;
         }
@@ -570 +570 @@
         }
         if(!iCalcId){
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             return 0;
         }
@@ -608 +608 @@
                 else
                 {
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                     return NULL;
                 }
@@ -615 +615 @@
                 if( SplitMemberName( memberName, parentName, dummyMemberName, refKind ) )
                 {
-                    SetError(69,temporary,nowLine);
+                    compiler.errorMessenger.Output(69,temporary,nowLine);
                     return NULL;
                 }
@@ -621 +621 @@
             else
             {
-                SetError(68,temporary,nowLine);
+                compiler.errorMessenger.Output(68,temporary,nowLine);
                 return NULL;
             }
@@ -642 +642 @@
 
         if(GetDeclareHash(temporary)){
-            SetError(15,temporary,nowLine);
+            compiler.errorMessenger.Output(15,temporary,nowLine);
             return 0;
         }
@@ -715 +715 @@
     //パラメータ
     if(sourceOfParams[i]!='('){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return 0;
     }
@@ -765 +765 @@
         if(sw){
             //配列パラメータ
-            if( isRef == false ) SetError(29,NULL,nowLine);
+            if( isRef == false ) compiler.errorMessenger.Output(29,NULL,nowLine);
             isArray = true;
 
@@ -811 +811 @@
 
             if( type.IsNull() ){
-                SetError(3,temporary,nowLine);
+                compiler.errorMessenger.Output(3,temporary,nowLine);
                 type.SetBasicType( DEF_PTR_VOID );
             }
@@ -817 +817 @@
         else{
             type.SetBasicType( Type::GetBasicTypeFromSimpleName(temporary) );
-            SetError(-103,temporary,nowLine);
+            compiler.errorMessenger.Output(-103,temporary,nowLine);
         }
 
@@ -834 +834 @@
         else if(sourceOfParams[i]==')') continue;
         else{
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             break;
         }
@@ -863 +863 @@
                 }
                 compiler.StringToType( temporary, this->returnType );
-                if( this->returnType.IsNull() ) SetError(3,temporary,nowLine);
+                if( this->returnType.IsNull() ) compiler.errorMessenger.Output(3,temporary,nowLine);
 
                 sw_as=1;
@@ -891 +891 @@
     }
     else{
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return;
     }
@@ -912 +912 @@
         }
         if(buffer[i]=='\0'){
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             return;
         }
@@ -921 +921 @@
     //ユーザー定義関数との重複チェック
     if(GetSubHash(procName)){
-        SetError(15,procName,nowLine);
+        compiler.errorMessenger.Output(15,procName,nowLine);
         return;
     }
@@ -935 +935 @@
     }
     if( resultType.GetBasicType() != typeOfPtrChar ){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return;
     }
@@ -943 +943 @@
         lstrcat(dllFileName,".DLL");
         if(lstrlen(dllFileName)>=16){
-            SetError(7,NULL,nowLine);
+            compiler.errorMessenger.Output(7,NULL,nowLine);
             return;
         }
@@ -956 +956 @@
         }
         if( resultType.GetBasicType() != typeOfPtrChar ){
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             return;
         }
@@ -977 +977 @@
     BOOST_FOREACH( const Parameter *pParam, pDllProc->Params() ){
         if( pParam->IsObject() ){
-            SetError(25,pParam->GetVarName(),nowLine);
+            compiler.errorMessenger.Output(25,pParam->GetVarName(),nowLine);
         }
         if( !pParam->IsRef() ){
             if( pParam->IsStruct() ){
-                SetError(28,pParam->GetVarName(),nowLine);
+                compiler.errorMessenger.Output(28,pParam->GetVarName(),nowLine);
             }
         }
@@ -992 +992 @@
         if( pDllProc->ReturnType().IsObject() ){
             // DLL関数ではオブジェクトを戻り値にできない
-            SetError(40,pDllProc->GetName(),nowLine);
+            compiler.errorMessenger.Output(40,pDllProc->GetName(),nowLine);
         }
     }
@@ -1010 +1010 @@
     //パラメータ
     if(sourceOfParams[i]!='('){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return 0;
     }
@@ -1059 +1059 @@
         if(sw){
             //配列パラメータ
-            if( isRef == false ) SetError(29,NULL,nowLine);
+            if( isRef == false ) compiler.errorMessenger.Output(29,NULL,nowLine);
             isArray = true;
 
@@ -1104 +1104 @@
 
             if( type.IsNull() ){
-                SetError(3,temporary,nowLine);
+                compiler.errorMessenger.Output(3,temporary,nowLine);
                 type.SetBasicType( DEF_PTR_VOID );
             }
@@ -1110 +1110 @@
         else{
             type.SetBasicType( Type::GetBasicTypeFromSimpleName(temporary) );
-            SetError(-103,temporary,nowLine);
+            compiler.errorMessenger.Output(-103,temporary,nowLine);
         }
 
@@ -1127 +1127 @@
         else if(sourceOfParams[i]==')') continue;
         else{
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             break;
         }
@@ -1156 +1156 @@
                 }
                 compiler.StringToType( temporary, this->returnType );
-                if( this->returnType.IsNull() ) SetError(3,temporary,nowLine);
+                if( this->returnType.IsNull() ) compiler.errorMessenger.Output(3,temporary,nowLine);
 
                 sw_as=1;
@@ -1174 +1174 @@
         if( this->ReturnType().IsNull() ){
             // 戻り値がない
-            SetError(26,this->GetName(),nowLine);
+            compiler.errorMessenger.Output(26,this->GetName(),nowLine);
         }
     }
@@ -1180 +1180 @@
         if( !this->ReturnType().IsNull() ){
             // Sub定義なのに、戻り値がある
-            SetError(38,this->GetName(),nowLine);
+            compiler.errorMessenger.Output(38,this->GetName(),nowLine);
         }
     }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Source.cpp

@@ -678 +678 @@
                 if( !source.ReadFile_InIncludeDirective( temporary ) ){
                     sprintf(temp2,"インクルードファイル \"%s\" をオープンできません",temporary);
-                    SetError(-1,temp2,i);
+                    compiler.errorMessenger.Output(-1,temp2,i);
                     break;
                 }
@@ -920 +920 @@
     for( int i=0; genBuffer[i] ; i++ ){
         if( genBuffer[i] == '\n' ){
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
             break;
         }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Type.cpp

@@ -116 +116 @@
     }
 
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
 
     return 0;
@@ -219 +219 @@
     {
         if( !pClass ){
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
             return 0;
         }
@@ -232 +232 @@
     }
 
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
     return 0;
 }

trunk/ab5.0/abdev/BasicCompiler_Common/src/TypeDef.cpp

@@ -10 +10 @@
 {
     if( !compiler.StringToType( baseName, baseType ) ){
-        SetError(3, baseName, nowLine );
+        compiler.errorMessenger.Output(3, baseName, nowLine );
         return;
     }
@@ -87 +87 @@
 
     if(expression[i]!='='){
-        SetError(10,"TypeDef",nowLine);
+        compiler.errorMessenger.Output(10,"TypeDef",nowLine);
         return;
     }
@@ -98 +98 @@
         if(temporary[i]=='\0') break;
         if( !( IsVariableChar( temporary[i], true) ) ){
-            SetError(10,"TypeDef",nowLine);
+            compiler.errorMessenger.Output(10,"TypeDef",nowLine);
             return;
         }
@@ -107 +107 @@
         //関数ポインタ
         if(pTemp[3]!='('){
-            SetError(10,"TypeDef",nowLine);
+            compiler.errorMessenger.Output(10,"TypeDef",nowLine);
             return;
         }
@@ -118 +118 @@
             if( !( IsVariableChar( pTemp[i], true) ) )
             {
-                SetError(10,"TypeDef",nowLine);
+                compiler.errorMessenger.Output(10,"TypeDef",nowLine);
                 return;
             }
@@ -126 +126 @@
     //識別子が重複している場合はエラーにする
     if(lstrcmp(temporary,pTemp)==0){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return;
     }
@@ -170 +170 @@
         else if( basbuf[i] == 1 && basbuf[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{
@@ -189 +189 @@
             if( !compiler.GetNamespaceSupporter().ImportsNamespace( temporary ) )
             {
-                SetError(64,temporary,i );
+                compiler.errorMessenger.Output(64,temporary,i );
             }