Changeset 465 in dev for trunk/ab5.0/abdev/BasicCompiler32

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

trunk/ab5.0/abdev/BasicCompiler32

Files:

• BasicCompiler.vcproj (modified) (2 diffs)
• CParameter.cpp (modified) (4 diffs)
• Compile_Calc.cpp (modified) (11 diffs)
• Compile_Calc_PushVar.cpp (modified) (2 diffs)
• Compile_CallProc.cpp (modified) (7 diffs)
• Compile_Func.cpp (modified) (11 diffs)
• Compile_Object.cpp (modified) (5 diffs)
• Compile_ProcOp.cpp (modified) (8 diffs)
• Compile_Set_Var.cpp (modified) (4 diffs)
• Compile_Statement.cpp (modified) (19 diffs)
• Compile_Var.cpp (modified) (37 diffs)
• MakePeHdr.cpp (modified) (10 diffs)
• NumOpe.cpp (modified) (27 diffs)
• NumOpe_Arithmetic.cpp (modified) (1 diff)
• NumOpe_Logical.cpp (modified) (4 diffs)
• NumOpe_Relation.cpp (modified) (1 diff)
• OperatorProc.cpp (modified) (3 diffs)
• stdafx.h (modified) (1 diff)
• x86CodeGenerator.cpp (modified) (8 diffs)

trunk/ab5.0/abdev/BasicCompiler32/BasicCompiler.vcproj

@@ -1266 +1266 @@
                     >
                 </File>
+                <File
+                    RelativePath="..\BasicCompiler_Common\src\Messenger.cpp"
+                    >
+                </File>
                 <Filter
                     Name="Langauge Classes"
@@ -1471 +1475 @@
                     >
                 </File>
+                <File
+                    RelativePath="..\BasicCompiler_Common\include\Messenger.h"
+                    >
+                </File>
                 <Filter
                     Name="Language Classes"

trunk/ab5.0/abdev/BasicCompiler32/CParameter.cpp

@@ -239 +239 @@
                 char temp2[255];
                 sprintf(temp2,"%s関数の第%dパラメータ",procName.c_str(),i2+1);
-                SetError(19,temp2,cp);
+                compiler.errorMessenger.Output(19,temp2,cp);
                 continue;
             }
@@ -306 +306 @@
             }
             else{
-                SetError(300,NULL,cp);
+                compiler.errorMessenger.Output(300,NULL,cp);
             }
         }
@@ -368 +368 @@
                                     if( dummyType.IsObject() ){
                                         if( !dummyType.GetClass().IsEqualsOrSubClass( &varType.GetClass() ) ){
-                                            SetError(11,Parms[i2],cp);
+                                            compiler.errorMessenger.Output(11,Parms[i2],cp);
                                         }
                                     }
                                     else if( dummyType.IsStruct() ){
                                         if( !dummyType.GetClass().IsEquals( &varType.GetClass() ) ){
-                                            SetError(11,Parms[i2],cp);
+                                            compiler.errorMessenger.Output(11,Parms[i2],cp);
                                         }
                                     }
@@ -382 +382 @@
                                 }
                                 else{
-                                    SetError(11,Parms[i2],cp);
+                                    compiler.errorMessenger.Output(11,Parms[i2],cp);
                                 }
                             }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Calc.cpp

@@ -130 +130 @@
         compiler.codeGenerator.op_fstp_basereg( DEF_DOUBLE, REG_ESP );
     }
-    else SetError(9,NULL,cp);
+    else compiler.errorMessenger.Output(9,NULL,cp);
 }
 void ChangeTypeToSingle(int OldType){
@@ -198 +198 @@
         compiler.codeGenerator.op_fstp_basereg( DEF_SINGLE, REG_ESP );
     }
-    else SetError(9,NULL,cp);
+    else compiler.errorMessenger.Output(9,NULL,cp);
 }
 
@@ -254 +254 @@
         }
     }
-    else SetError(9,NULL,cp);
+    else compiler.errorMessenger.Output(9,NULL,cp);
 }
 void ChangeTypeToLong(int OldType){
@@ -393 +393 @@
     }
     else{
-        SetError(300,NULL,cp);
+        compiler.errorMessenger.Output(300,NULL,cp);
     }
 }
@@ -411 +411 @@
             //ダブルクォートは不正なのでエラー扱い
             variable[i]=0;
-            SetError(3,variable,cp);
+            compiler.errorMessenger.Output(3,variable,cp);
             return;
         }
@@ -458 +458 @@
             if(GetVarType(variable,Type(),0)){
                 //変数リストに該当したとき
-                SetError(1,NULL,cp);
+                compiler.errorMessenger.Output(1,NULL,cp);
             }
             else{
@@ -465 +465 @@
                 {
                     //定数リストに該当したとき
-                    SetError(1,NULL,cp);
+                    compiler.errorMessenger.Output(1,NULL,cp);
                 }
                 else{
                     //変数リスト、定数リストに該当しないとき
-                    SetError(3,variable,cp);
+                    compiler.errorMessenger.Output(3,variable,cp);
                 }
             }
@@ -491 +491 @@
 
     if(Command[i+1]=='\0'){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -531 +531 @@
 
     if( lstrcmpi( variable, "This" ) == 0 ){
-        SetError(133,NULL,cp);
+        compiler.errorMessenger.Output(133,NULL,cp);
         return;
     }
@@ -593 +593 @@
     if( !TermOpeOnlyVariable( variable, varType, VarRelativeVar, true ) )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         return;
     }
 
     if(varType.GetBasicType()&FLAG_PTR){
-        SetError(14,variable,cp);
+        compiler.errorMessenger.Output(14,variable,cp);
         return;
     }
@@ -614 +614 @@
         compiler.GetObjectModule().meta.GetBlittableTypes().GetClass( calcType ).GetStaticMethods().Enum( "_Create", userProcs );
         if( userProcs.size() != 1 ){
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
             return;
         }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Calc_PushVar.cpp

@@ -21 +21 @@
     }
     else if(pRelativeVar->dwKind==VAR_REFGLOBAL){
-        SetError(300,NULL,cp);
+        compiler.errorMessenger.Output(300,NULL,cp);
     }
     else if(pRelativeVar->dwKind==VAR_LOCAL){
@@ -68 +68 @@
         //64ビットの場合はedx:eaxにロード
         if(reg!=REG_EAX){
-            SetError(300,NULL,cp);
+            compiler.errorMessenger.Output(300,NULL,cp);
             return;
         }

trunk/ab5.0/abdev/BasicCompiler32/Compile_CallProc.cpp

@@ -135 +135 @@
                     }
                     else{
-                        SetError(300,NULL,cp);
+                        compiler.errorMessenger.Output(300,NULL,cp);
                     }
                 }
@@ -163 +163 @@
             pMethod = pobj_c->GetStaticMethods().GetMethodPtr( pUserProc );
             if( !pMethod ){
-                SetError(300,NULL,cp);
+                compiler.errorMessenger.Output(300,NULL,cp);
                 return false;
             }
@@ -181 +181 @@
                 //同一クラスオブジェクトの場合はプライベートアクセスを容認する
                 if( pMethod->IsNoneAccess() ){
-                    SetError(109,pUserProc->GetName(),cp);
+                    compiler.errorMessenger.Output(109,pUserProc->GetName(),cp);
                     return false;
                 }
@@ -188 +188 @@
                 if( pMethod->IsPrivate()
                     || pMethod->IsNoneAccess() ){
-                    SetError(109,pUserProc->GetName(),cp);
+                    compiler.errorMessenger.Output(109,pUserProc->GetName(),cp);
                     return false;
                 }
                 if( !pMethod->GetUserProc().GetParentClass().IsEqualsOrSubClass( pobj_c ) && pMethod->IsProtected() ){
-                    SetError(110,pUserProc->GetName(),cp);
+                    compiler.errorMessenger.Output(110,pUserProc->GetName(),cp);
                     return false;
                 }
@@ -200 +200 @@
             //クラス内部からの呼び出し（継承によるACCESS_NONのみをエラーとする）
             if( pMethod->IsNoneAccess() ){
-                SetError(109,pUserProc->GetName(),cp);
+                compiler.errorMessenger.Output(109,pUserProc->GetName(),cp);
                 return false;
             }
@@ -296 +296 @@
                 if( !resultType.IsObject() )
                 {
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                 }
 
@@ -344 +344 @@
             if( vtblMasterListIndex != 0 )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
         }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Func.cpp

@@ -263 +263 @@
                     || type.IsObjectPtr() && referenceKind == RefPointer ) )
                 {
-                    SetError(104,ObjectName,cp);
+                    compiler.errorMessenger.Output(104,ObjectName,cp);
                 }
 
@@ -305 +305 @@
             if( vtblMasterListIndex != 0 )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
         }
@@ -400 +400 @@
         {
             extern int cp;
-            SetError(1,NULL,cp);
+            compiler.errorMessenger.Output(1,NULL,cp);
             return;
         }
@@ -460 +460 @@
         GetOverloadSubHash( name, subs );
         if( subs.size() == 0 ){
-            SetError(27,name,cp);
+            compiler.errorMessenger.Output(27,name,cp);
             return;
         }
@@ -480 +480 @@
                     ) )
                 {
-                    SetError(67, name, cp );
+                    compiler.errorMessenger.Output(67, name, cp );
                 }
             }
@@ -491 +491 @@
                     ) )
                 {
-                    SetError(66, name, cp );
+                    compiler.errorMessenger.Output(66, name, cp );
                 }
             }
@@ -497 +497 @@
 
         if(!pUserProc){
-            SetError(27,name,cp);
+            compiler.errorMessenger.Output(27,name,cp);
             return;
         }
@@ -504 +504 @@
         pUserProc=GetSubHash(name);
         if(!pUserProc){
-            SetError(27,name,cp);
+            compiler.errorMessenger.Output(27,name,cp);
             return;
         }
@@ -531 +531 @@
     Type tempType;
     if( !compiler.StringToType( typeName, tempType ) ){
-        SetError(3,typeName,cp);
+        compiler.errorMessenger.Output(3,typeName,cp);
         return;
     }
@@ -597 +597 @@
     }
     else{
-        SetError(134,NULL,cp );
+        compiler.errorMessenger.Output(134,NULL,cp );
     }
 }
@@ -680 +680 @@
     }
     if(!tempType.IsWhole()){
-        SetError(11,Parameter,cp);
+        compiler.errorMessenger.Output(11,Parameter,cp);
         return;
     }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Object.cpp

@@ -22 +22 @@
 
     if(bSomeObjects){
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
 
         //push ebx
@@ -64 +64 @@
         }
         else{
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
 
@@ -110 +110 @@
     if(pClass->IsAbstract()){
         //抽象クラスだったとき
-        SetError(125,pClass->GetName(),cp);
+        compiler.errorMessenger.Output(125,pClass->GetName(),cp);
     }
 
@@ -119 +119 @@
         Type tempType;
         NumOpe(objectSizeStr,Type(),tempType);
-        if( !tempType.IsWhole() ) SetError(49,NULL,cp);
+        if( !tempType.IsWhole() ) compiler.errorMessenger.Output(49,NULL,cp);
         ChangeTypeToLong(tempType.GetBasicType());
 
@@ -269 +269 @@
         return;
     }
-    if(!( tempType.IsObjectPtr() || tempType.IsVoidPtr() )) SetError(122,NULL,cp);
+    if(!( tempType.IsObjectPtr() || tempType.IsVoidPtr() )) compiler.errorMessenger.Output(122,NULL,cp);
 
     //pop eax

trunk/ab5.0/abdev/BasicCompiler32/Compile_ProcOp.cpp

@@ -197 +197 @@
     }
     else{
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -242 +242 @@
         {
             if(pGotoLabelSchedule->GetName().size()>0){
-                SetError(6,pGotoLabelSchedule->GetName(),pGotoLabelSchedule->GetSourceCodePos());
+                compiler.errorMessenger.Output(6,pGotoLabelSchedule->GetName(),pGotoLabelSchedule->GetSourceCodePos());
             }
             else{
                 char temporary[255];
                 sprintf(temporary,"%d",pGotoLabelSchedule->GetLineNum());
-                SetError(6,temporary,pGotoLabelSchedule->GetSourceCodePos());
+                compiler.errorMessenger.Output(6,temporary,pGotoLabelSchedule->GetSourceCodePos());
             }
         }
@@ -273 +273 @@
     }
     else{
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -285 +285 @@
 
     if( pUserProc->GetLocalVars().size() ){
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         return;
     }
@@ -311 +311 @@
     {
         // 既にコード生成が行われている場合はエラー
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -531 +531 @@
                     }
                     if(!(temporary[0]=='('&&temporary[lstrlen(temporary)-1]==')')){
-                        SetError(1,NULL,cp);
+                        compiler.errorMessenger.Output(1,NULL,cp);
                     }
                     RemoveStringPare(temporary);
@@ -618 +618 @@
     //With情報のメモリを解放
     for(i3=0;i3<WithInfo.num;i3++){
-        SetError(22,"With",WithInfo.pWithCp[i3]);
+        compiler.errorMessenger.Output(22,"With",WithInfo.pWithCp[i3]);
         HeapDefaultFree(WithInfo.ppName[i3]);
     }
@@ -710 +710 @@
         else
         {
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
     }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Set_Var.cpp

@@ -50 +50 @@
     }
 
-    SetError(1,NULL,cp);
+    compiler.errorMessenger.Output(1,NULL,cp);
 }
 
@@ -155 +155 @@
     if(type==DEF_DOUBLE){
         // TODO: 実装
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     else if(type==DEF_SINGLE){
         // TODO: 実装
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     else if(type==DEF_INT64||type==DEF_QWORD){
@@ -180 +180 @@
         if(!IsWholeNumberType(type)){
             //不正な型の場合
-            SetError(9,NULL,cp);
+            compiler.errorMessenger.Output(9,NULL,cp);
             return;
         }
@@ -327 +327 @@
     else if(pRelative->dwKind==VAR_REFGLOBAL){
         // 今は使われていない
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
 
         if(pRelative->bOffsetOffset){

trunk/ab5.0/abdev/BasicCompiler32/Compile_Statement.cpp

@@ -16 +16 @@
             //ダブルクォートは不正なのでエラー扱い
             leftTerm[i]=0;
-            SetError(3,leftTerm,cp);
+            compiler.errorMessenger.Output(3,leftTerm,cp);
             return;
         }
@@ -48 +48 @@
         (leftTerm[0]==1&&leftTerm[1]==ESC_PSMEM)
         )){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -76 +76 @@
         if(pUserProc){
             if( !pUserProc->IsMacro() ){
-                SetError(10,Command,cp);
+                compiler.errorMessenger.Output(10,Command,cp);
             }
 
@@ -117 +117 @@
 
     // どこにも当てはまらなかったため、失敗
-    SetError(1,NULL,cp);
+    compiler.errorMessenger.Output(1,NULL,cp);
 }
 
@@ -126 +126 @@
     for(i=0;;i++){
         if(Parameter[i]=='\0'){
-            SetError(21,NULL,cp);
+            compiler.errorMessenger.Output(21,NULL,cp);
             return;
         }
@@ -355 +355 @@
     compiler.codeGenerator.ContinueAreaBegin();
 
-    if(!Parameter[0]) SetError(10,"While",cp);
+    if(!Parameter[0]) compiler.errorMessenger.Output(10,"While",cp);
 
     const PertialSchedule *pWhilePertialSchedule = NULL;
@@ -483 +483 @@
     i=GetOneParameter(Parameter,0,temporary);
     if(!Parameter[i]){
-        SetError(12,"For",cp);
+        compiler.errorMessenger.Output(12,"For",cp);
         goto ErrorStep;
     }
@@ -496 +496 @@
         }
         if(temporary[i2]=='\0'){
-            SetError(12,"For",cp);
+            compiler.errorMessenger.Output(12,"For",cp);
             goto ErrorStep;
         }
@@ -514 +514 @@
     if(Parameter[i]){
         i=GetOneParameter(Parameter,i,StepNum);
-        if(Parameter[i]) SetError(12,"For",cp);
+        if(Parameter[i]) compiler.errorMessenger.Output(12,"For",cp);
     }
     else lstrcpy(StepNum,"1");
@@ -578 +578 @@
     if(szNextVariable[0]){
         if(lstrcmp(szNextVariable,variable)!=0){
-            SetError(55,szNextVariable,cp);
+            compiler.errorMessenger.Output(55,szNextVariable,cp);
         }
     }
@@ -608 +608 @@
     GetCustomToken( variable, Parameter, i, ESC_IN, true );
     if(!Parameter[i]){
-        SetError(12,"Foreach",cp);
+        compiler.errorMessenger.Output(12,"Foreach",cp);
         isError = true;
         goto ErrorStep;
@@ -667 +667 @@
     if(szNextVariable[0]){
         if(lstrcmp(szNextVariable,variable)!=0){
-            SetError(55,szNextVariable,cp);
+            compiler.errorMessenger.Output(55,szNextVariable,cp);
         }
     }
@@ -691 +691 @@
     int i,i2,i3;
 
-    if(Parameter[0]) SetError(10,"Do",cp);
+    if(Parameter[0]) compiler.errorMessenger.Output(10,"Do",cp);
 
     //Continueアドレスのバックアップとセット
@@ -894 +894 @@
 void OpcodeExitSub(void){
     if( UserProc::IsGlobalAreaCompiling() ){
-        SetError(12,"Exit Sub/Function",cp);
+        compiler.errorMessenger.Output(12,"Exit Sub/Function",cp);
         return;
     }
@@ -942 +942 @@
             if(basbuf[i]=='\0'){
                 selectSchedules.pop_back();
-                SetError(22,"Select",cp);
+                compiler.errorMessenger.Output(22,"Select",cp);
                 return;
             }
@@ -1163 +1163 @@
 
     if(selectSchedules.back().typeSize==-1){
-        SetError(30,"Case",cp);
+        compiler.errorMessenger.Output(30,"Case",cp);
         return;
     }
@@ -1282 +1282 @@
     i=GetOneParameter(Parameter,0,temporary);
     if(!Parameter[i]){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -1291 +1291 @@
     }
     if(!resultType.IsWhole()){
-        SetError(11,Parameter,cp);
+        compiler.errorMessenger.Output(11,Parameter,cp);
         return;
     }
@@ -1300 +1300 @@
     i=GetOneParameter(Parameter,i,temporary);
     if(Parameter[i]){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Var.cpp

@@ -35 +35 @@
     else{
         //エラー
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -185 +185 @@
     if( !pMember )
     {
-        if(isErrorEnabled) SetError(103,VarName,cp);
+        if(isErrorEnabled) compiler.errorMessenger.Output(103,VarName,cp);
         return false;
     }
@@ -196 +196 @@
         //同一クラスオブジェクトの場合はプライベートアクセスを容認する
         if(pMember->IsNoneAccess()){
-            if(isErrorEnabled) SetError(107,VarName,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(107,VarName,cp);
             return false;
         }
@@ -203 +203 @@
         if((bPrivateAccess==0&&pMember->IsPrivate())||
             pMember->IsNoneAccess()){
-            if(isErrorEnabled) SetError(107,VarName,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(107,VarName,cp);
             return false;
         }
         else if(bPrivateAccess==0&&pMember->IsProtected()){
-            if(isErrorEnabled) SetError(108,VarName,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(108,VarName,cp);
             return false;
         }
@@ -219 +219 @@
         ){
             //Const定義の変数に書き込みアクセスをしようとした場合
-            SetError(61,VarName,cp);
+            compiler.errorMessenger.Output(61,VarName,cp);
     }
 
@@ -237 +237 @@
     else{
         if(lpPtrOffset[0]){
-            if(isErrorEnabled) SetError(16,member,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(16,member,cp);
             return false;
         }
@@ -250 +250 @@
         //配列オフセット
         if(!GetArrayOffset(pMember->GetSubscripts(),array,pMember->GetType())){
-            if(isErrorEnabled) SetError(14,member,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(14,member,cp);
             return false;
         }
@@ -263 +263 @@
         if( resultType.IsObject() || resultType.IsStruct() ){
             if( refType != RefDot ){
-                if(isErrorEnabled) SetError(104,member,cp);
+                if(isErrorEnabled) compiler.errorMessenger.Output(104,member,cp);
                 return false;
             }
@@ -279 +279 @@
                 if( ( resultType.IsObjectPtr() || resultType.IsStructPtr() )
                     && refType != RefDot ){
-                        if(isErrorEnabled) SetError(104,member,cp);
+                        if(isErrorEnabled) compiler.errorMessenger.Output(104,member,cp);
                         return false;
                 }
@@ -293 +293 @@
                 if( ( resultType.IsObjectPtr() || resultType.IsStructPtr() )
                     && refType != RefPointer ){
-                        if(isErrorEnabled) SetError(104,member,cp);
+                        if(isErrorEnabled) compiler.errorMessenger.Output(104,member,cp);
                         return false;
                 }
@@ -307 +307 @@
                 //ppObj[n]->member
                 if( refType != RefPointer ){
-                    if(isErrorEnabled) SetError(104,member,cp);
+                    if(isErrorEnabled) compiler.errorMessenger.Output(104,member,cp);
                     return false;
                 }
@@ -321 +321 @@
             }
             else{
-                if(isErrorEnabled) SetError(104,member,cp);
+                if(isErrorEnabled) compiler.errorMessenger.Output(104,member,cp);
                 return false;
             }
@@ -403 +403 @@
             else{
                 if(lpPtrOffset[0]){
-                    SetError(16,variable,cp);
+                    compiler.errorMessenger.Output(16,variable,cp);
                     pRelativeVar->dwKind=NON_VAR;
                     return false;
@@ -485 +485 @@
             compiler.pCompilingClass->IsCompilingDestructor() == false
             ){
-                SetError(131, NULL, cp );
+                compiler.errorMessenger.Output(131, NULL, cp );
         }
 
@@ -577 +577 @@
         }
 
-        if(isErrorEnabled) SetError(3,variable,cp);
+        if(isErrorEnabled) compiler.errorMessenger.Output(3,variable,cp);
         pRelativeVar->dwKind=NON_VAR;
         return false;
@@ -593 +593 @@
         else{
             if(lpPtrOffset[0]){
-                SetError(16,variable,cp);
+                compiler.errorMessenger.Output(16,variable,cp);
                 pRelativeVar->dwKind=NON_VAR;
                 return false;
@@ -619 +619 @@
         if( resultType.IsObject() ){
             //オブジェクト定数
-            SetError(130, VarName, cp );
+            compiler.errorMessenger.Output(130, VarName, cp );
         }
         else{
             //一般のConst変数
-            SetError(61,VarName,cp);
+            compiler.errorMessenger.Output(61,VarName,cp);
         }
     }
@@ -647 +647 @@
     if(array[0]){
         if(!GetArrayOffset(*pSubscripts,array,resultType)){
-            SetError(14,variable,cp);
+            compiler.errorMessenger.Output(14,variable,cp);
             pRelativeVar->dwKind=NON_VAR;
             return false;
@@ -656 +656 @@
             //実態オブジェクトのメンバを参照（obj.member）
             if( refType != RefDot ){
-                SetError(104,VarName,cp);
+                compiler.errorMessenger.Output(104,VarName,cp);
                 pRelativeVar->dwKind=NON_VAR;
                 return false;
@@ -671 +671 @@
                 //pObj[n].member
                 if( refType != RefDot ){
-                    SetError(104,VarName,cp);
+                    compiler.errorMessenger.Output(104,VarName,cp);
                     pRelativeVar->dwKind=NON_VAR;
                     return false;
@@ -681 +681 @@
                 //pObj->member
                 if( refType != RefPointer ){
-                    SetError(104,VarName,cp);
+                    compiler.errorMessenger.Output(104,VarName,cp);
                     pRelativeVar->dwKind=NON_VAR;
                     return false;
@@ -698 +698 @@
                 //ppObj[n]->member
                 if( refType != RefPointer ){
-                    SetError(104,VarName,cp);
+                    compiler.errorMessenger.Output(104,VarName,cp);
                     pRelativeVar->dwKind=NON_VAR;
                     return false;
@@ -713 +713 @@
             }
             else{
-                SetError(104,VarName,cp);
+                compiler.errorMessenger.Output(104,VarName,cp);
                 pRelativeVar->dwKind=NON_VAR;
                 return false;
@@ -719 +719 @@
         }
         else{
-            SetError(102,VarName,cp);
+            compiler.errorMessenger.Output(102,VarName,cp);
             pRelativeVar->dwKind=NON_VAR;
             return false;
@@ -768 +768 @@
                 while(1){
                     if( subscripts[0] < i2 ){
-                        SetError(41,0,cp);
+                        compiler.errorMessenger.Output(41,0,cp);
                         return 0;
                     }
@@ -790 +790 @@
             BOOST_FOREACH( CMember *pMember, objClass.GetDynamicMembers() ){
                 if(InitBuf[i]=='\0'){
-                    SetError(41,0,cp);
+                    compiler.errorMessenger.Output(41,0,cp);
                     return false;
                 }
@@ -806 +806 @@
         }
 
-        SetError(41,0,cp);
+        compiler.errorMessenger.Output(41,0,cp);
         return false;
     }
@@ -816 +816 @@
 
     if( subscripts.size() > 0 ){
-        SetError(41,0,cp);
+        compiler.errorMessenger.Output(41,0,cp);
         return false;
     }
@@ -931 +931 @@
                 while(1){
                     if( subscripts[0] < i2 ){
-                        SetError(41,0,cp);
+                        compiler.errorMessenger.Output(41,0,cp);
                         return 0;
                     }
@@ -953 +953 @@
             BOOST_FOREACH( CMember *pMember, objClass.GetDynamicMembers() ){
                 if(InitBuf[i]=='\0'){
-                    SetError(41,0,cp);
+                    compiler.errorMessenger.Output(41,0,cp);
                     return false;
                 }
@@ -971 +971 @@
         }
 
-        SetError(41,0,cp);
+        compiler.errorMessenger.Output(41,0,cp);
         return false;
     }
@@ -981 +981 @@
 
     if( subscripts.size() > 0 ){
-        SetError(41,0,cp);
+        compiler.errorMessenger.Output(41,0,cp);
         return false;
     }
@@ -1105 +1105 @@
         if( UserProc::CompilingUserProc().GetLocalVars().DuplicateCheck( Symbol( VarName ) ) ){
             //２重定義のエラー
-            SetError(15,VarName,cp);
+            compiler.errorMessenger.Output(15,VarName,cp);
             return;
         }
@@ -1218 +1218 @@
         else{
             if( subscripts.size() > 1 ){
-                SetError(300,NULL,cp);
+                compiler.errorMessenger.Output(300,NULL,cp);
             }
             sprintf( objectSize, "%d", subscripts[0] );
@@ -1230 +1230 @@
         GetVarOffset( true, false, VarName, &RelativeVar, Type() );
         if( RelativeVar.dwKind == VAR_DIRECTMEM ){
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
         SetVariableFromEax( Type( DEF_OBJECT, *compiler.GetObjectModule().meta.GetClasses().GetObjectClassPtr() ), DEF_OBJECT, &RelativeVar );
@@ -1306 +1306 @@
 void SetVarPtrToReg(int reg,RELATIVE_VAR *pRelativeVar){
     if( reg != REG_EAX ){
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         //TODO: 未完成
     }
@@ -1315 +1315 @@
     const UserProc *pUserProc_AddGlobalRootPtr = GetClassMethod( "_System_CGarbageCollection", "AddGlobalRootPtr" );
     if( !pUserProc_AddGlobalRootPtr ){
-        SetError(3, "_System_CGarbageCollection.AddGlobalRootPtr", -1 );
+        compiler.errorMessenger.Output(3, "_System_CGarbageCollection.AddGlobalRootPtr", -1 );
         return false;
     }

trunk/ab5.0/abdev/BasicCompiler32/MakePeHdr.cpp

@@ -365 +365 @@
         // 名前空間が初期化されているかをチェック
         if( compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().size() ){
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
 
@@ -443 +443 @@
         //With情報のメモリを解放
         for(i=0;i<WithInfo.num;i++){
-            SetError(22,"With",WithInfo.pWithCp[i]);
+            compiler.errorMessenger.Output(22,"With",WithInfo.pWithCp[i]);
             HeapDefaultFree(WithInfo.ppName[i]);
         }
@@ -451 +451 @@
         // 名前空間が正しく閉じられているかをチェック
         if( compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().size() ){
-            SetError(63,NULL,-1);
+            compiler.errorMessenger.Output(63,NULL,-1);
         }
 
@@ -504 +504 @@
     }
 
-    extern BOOL bError;
-    if( !bError )
+    if( !compiler.errorMessenger.HasError() )
     {
-        CompileMessage( "リンク中..." );
+        compiler.messenger.Output( "リンク中..." );
     }
 
@@ -558 +557 @@
 
             if(!hLib){
-                SetError(-106,pDllProc->GetDllFileName().c_str(),pDllProc->GetCodePos());
+                compiler.errorMessenger.Output(-106,pDllProc->GetDllFileName().c_str(),pDllProc->GetCodePos());
             }
         }
@@ -565 +564 @@
             if(!GetProcAddress(hLib,pDllProc->GetAlias().c_str())){
                 FreeLibrary(hLib);
-                SetError(-107,pDllProc->GetAlias(),pDllProc->GetCodePos());
+                compiler.errorMessenger.Output(-107,pDllProc->GetAlias(),pDllProc->GetCodePos());
             }
             FreeLibrary(hLib);
@@ -712 +711 @@
 
         if( pDllProc->GetDllFileName().size() > 16 ){
-            SetError(7,NULL,cp);
+            compiler.errorMessenger.Output(7,NULL,cp);
             break;
         }
@@ -831 +830 @@
     CDebugSection *pobj_DebugSection;
     pobj_DebugSection=new CDebugSection();
-    extern BOOL bError;
-    if( compiler.IsDebug() && bError == 0 )
+    if( compiler.IsDebug() && !compiler.errorMessenger.HasError() )
     {
-        CompileMessage( "デバッグ情報を生成しています。" );
+        compiler.messenger.Output( "デバッグ情報を生成しています。" );
 
         pobj_DebugSection->make();
 
-        CompileMessage( "デバッグ情報の生成が完了しました。" );
+        compiler.messenger.Output( "デバッグ情報の生成が完了しました。" );
     }
 
@@ -1122 +1120 @@
 
 
-    extern BOOL bError;
-    if(bError) goto EndWriteOpcode;
+    if( compiler.errorMessenger.HasError() )
+    {
+        goto EndWriteOpcode;
+    }
 
 
@@ -1414 +1414 @@
     hFile=CreateFile(OutputFileName,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);
     if(hFile==INVALID_HANDLE_VALUE){
-        SetError(53,OutputFileName,-1);
+        compiler.errorMessenger.Output(53,OutputFileName,-1);
         goto EndWriteOpcode;
     }

trunk/ab5.0/abdev/BasicCompiler32/NumOpe.cpp

@@ -59 +59 @@
     }
     else{
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -79 +79 @@
 void ExtendRegToBigType( int reg, int bigBasicType, int baseBasicType ){
     if( reg != REG_EAX ){
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     switch( Type::GetBasicSize( bigBasicType ) ){
@@ -190 +190 @@
                 // オブジェクトメンバのポインタをeaxにコピー
                 if( !VarToReg( tempRelativeVar, baseType, resultType ) ){
-                    SetError(11,termFull,cp);
+                    compiler.errorMessenger.Output(11,termFull,cp);
                 }
 
@@ -224 +224 @@
             if( !leftType.IsStruct() )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -332 +332 @@
     {
         // 関数ポインタ
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
 
         ///////////////////////////////////////////////////////////////////
@@ -342 +342 @@
     }
 
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
 
     return false;
@@ -400 +400 @@
             if( isProcedureCallOnly )
             {
-                SetError(1,NULL,cp);
+                compiler.errorMessenger.Output(1,NULL,cp);
             }
             return false;
@@ -432 +432 @@
         if( compiler.pCompilingClass == NULL )
         {
-            SetError(142,NULL,cp);
+            compiler.errorMessenger.Output(142,NULL,cp);
             return false;
         }
@@ -465 +465 @@
             {
                 //閉じカッコ")"に続く文字がNULLでないとき
-                SetError(42,NULL,cp);
+                compiler.errorMessenger.Output(42,NULL,cp);
             }
 
@@ -525 +525 @@
 
                 //閉じカッコ")"に続く文字がNULLでないときはエラーにする
-                if(termFull[i2+1+i4+1]!='\0') SetError(42,NULL,cp);
+                if(termFull[i2+1+i4+1]!='\0') compiler.errorMessenger.Output(42,NULL,cp);
 
                 //マクロ関数の場合
@@ -629 +629 @@
     if( isProcedureCallOnly )
     {
-        SetError(3, termLeft, cp );
+        compiler.errorMessenger.Output(3, termLeft, cp );
     }
 
@@ -645 +645 @@
         // 変数の場合はeaxに変数ポインタを格納する
         if( !VarToReg( relativeVar, baseType, resultType ) ){
-            SetError(11,term,cp);
+            compiler.errorMessenger.Output(11,term,cp);
         }
     }
@@ -658 +658 @@
     if( !isVariable )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -678 +678 @@
     if( reg != REG_EAX ){
         // TODO: 未実装
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -708 +708 @@
 
     if(expression[0]=='\0'){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return false;
     }
@@ -863 +863 @@
                         else GetCalcName(idCalc,temp2);
                         sprintf(temporary,"Operator %s",temp2);
-                        SetError(27,temporary,cp);
+                        compiler.errorMessenger.Output(27,temporary,cp);
                         goto error;
                     }
@@ -892 +892 @@
                     }
                     else{
-                        SetError(3, term, cp );
+                        compiler.errorMessenger.Output(3, term, cp );
                         goto error;
                     }
@@ -918 +918 @@
                         // 拡張版リテラル文字列（エスケープシーケンス可能）
                         if(!RemoveStringQuotes(term+2)){
-                            SetError(43,NULL,cp);
+                            compiler.errorMessenger.Output(43,NULL,cp);
                             goto error;
                         }
@@ -928 +928 @@
                         // 通常文字列
                         if(!RemoveStringQuotes(term)){
-                            SetError(43,NULL,cp);
+                            compiler.errorMessenger.Output(43,NULL,cp);
                             goto error;
                         }
@@ -976 +976 @@
                                 }
                             }
-                            SetError(38,term,cp);
+                            compiler.errorMessenger.Output(38,term,cp);
 
                             goto error;
@@ -990 +990 @@
                         if( resultType.GetBasicType() & FLAG_CAST ){
                             // 型名のみ
-                            SetError();
+                            compiler.errorMessenger.OutputFatalError();
                         }
                         else{
@@ -1087 +1087 @@
                         }
                         else{
-                            SetError(300,NULL,cp);
+                            compiler.errorMessenger.Output(300,NULL,cp);
                             goto error;
                         }
@@ -1095 +1095 @@
                     //該当する識別子が見当たらないときはエラー扱いにする
                     bError=1;
-                    SetError(3,term,cp);
+                    compiler.errorMessenger.Output(3,term,cp);
                     type_stack[sp]=DEF_DOUBLE;
                 }
@@ -1243 +1243 @@
                 if( PTR_LEVEL( type_stack[sp-1] ) <= 0 ){
                     //ポインタ型ではないとき
-                    SetError( 3, NULL, cp );
+                    compiler.errorMessenger.Output( 3, NULL, cp );
                     goto error;
                 }
@@ -1252 +1252 @@
 
             default:
-                SetError(300,NULL,cp);
+                compiler.errorMessenger.Output(300,NULL,cp);
                 goto error;
         }
@@ -1260 +1260 @@
 
     if(sp!=1){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         goto error;
     }
@@ -1266 +1266 @@
     if(bLiteralCalculation){
         //右辺値が数値の定数式の場合
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     else{

trunk/ab5.0/abdev/BasicCompiler32/NumOpe_Arithmetic.cpp

@@ -999 +999 @@
     int castBasicType = type[sp-1];
     if((castBasicType&FLAG_CAST)==0){
-        SetError(47,NULL,cp);
+        compiler.errorMessenger.Output(47,NULL,cp);
         return 0;
     }

trunk/ab5.0/abdev/BasicCompiler32/NumOpe_Logical.cpp

@@ -15 +15 @@
     if(IsRealNumberType(type[sp-2])||IsRealNumberType(type[sp-1])){
         //いずれかの項が実数のとき
-        SetError(45,"xor",cp);
+        compiler.errorMessenger.Output(45,"xor",cp);
         return 0;
     }
@@ -158 +158 @@
     if(IsRealNumberType(type[sp-2])||IsRealNumberType(type[sp-1])){
         //いずれかの項が実数のとき
-        SetError(45,"or",cp);
+        compiler.errorMessenger.Output(45,"or",cp);
         return 0;
     }
@@ -301 +301 @@
     if(IsRealNumberType(type[sp-2])||IsRealNumberType(type[sp-1])){
         //いずれかの項が実数のとき
-        SetError(45,"and",cp);
+        compiler.errorMessenger.Output(45,"and",cp);
         return 0;
     }
@@ -441 +441 @@
     if(IsRealNumberType(type[sp-1])){
         //実数のとき
-        SetError(45,"Not",cp);
+        compiler.errorMessenger.Output(45,"Not",cp);
         return 0;
     }

trunk/ab5.0/abdev/BasicCompiler32/NumOpe_Relation.cpp

@@ -24 +24 @@
         }
         else{
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
     }*/

trunk/ab5.0/abdev/BasicCompiler32/OperatorProc.cpp

@@ -7 +7 @@
 
 void FreeTempObject(int reg,const CClass *pobj_c){
-    if(!IsSafeReg(reg)) SetError(300,NULL,cp);
+    if(!IsSafeReg(reg)) compiler.errorMessenger.Output(300,NULL,cp);
 
     const CMethod *method = pobj_c->GetDestructorMethod();
@@ -231 +231 @@
     if(bCalcUseHeap){
         //未解放のインスタンスが存在する旨を示す警告
-        SetError(-105,NULL,cp);
+        compiler.errorMessenger.Output(-105,NULL,cp);
     }
 
@@ -255 +255 @@
 
     //エラーを発行
-    SetError(-1,"キャスト演算子がオーバーロードされていません。",cp);
+    compiler.errorMessenger.Output(-1,"キャスト演算子がオーバーロードされていません。",cp);
 }
 void CallIndexerGetterProc( const Type &classType, const char *ObjectName, char *Parameter,Type &resultType, DWORD dwProcFlags ){

trunk/ab5.0/abdev/BasicCompiler32/stdafx.h

@@ -22 +22 @@
 #include <jenga/include/common/File.h>
 #include <jenga/include/common/CmdLine.h>
+#include <jenga/include/common/Path.h>
 
 #include "../BasicCompiler_Common/common.h"

trunk/ab5.0/abdev/BasicCompiler32/x86CodeGenerator.cpp

@@ -30 +30 @@
         || mod == MOD_REG ) )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     if( isPertialSchedule && !( mod == MOD_DISP32 || mod == MOD_BASE_DISP32 ) )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -972 +972 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     if(base_reg==REG_ESP){
@@ -993 +993 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     //オペコード、レジスタ
@@ -1027 +1027 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     int reg=0;
@@ -1069 +1069 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     if(base_reg==REG_ESP){
@@ -1090 +1090 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     //オペコード、レジスタ
@@ -1124 +1124 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     int reg=0;
@@ -1182 +1182 @@
     }
     else{
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }