Changeset 465 in dev for trunk/ab5.0/abdev/BasicCompiler32/Compile_Statement.cpp
- Timestamp:
- Mar 24, 2008, 8:05:20 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/abdev/BasicCompiler32/Compile_Statement.cpp
r435 r465 16 16 //ダブルクォートは不正なのでエラー扱い 17 17 leftTerm[i]=0; 18 SetError(3,leftTerm,cp);18 compiler.errorMessenger.Output(3,leftTerm,cp); 19 19 return; 20 20 } … … 48 48 (leftTerm[0]==1&&leftTerm[1]==ESC_PSMEM) 49 49 )){ 50 SetError(1,NULL,cp);50 compiler.errorMessenger.Output(1,NULL,cp); 51 51 return; 52 52 } … … 76 76 if(pUserProc){ 77 77 if( !pUserProc->IsMacro() ){ 78 SetError(10,Command,cp);78 compiler.errorMessenger.Output(10,Command,cp); 79 79 } 80 80 … … 117 117 118 118 // どこにも当てはまらなかったため、失敗 119 SetError(1,NULL,cp);119 compiler.errorMessenger.Output(1,NULL,cp); 120 120 } 121 121 … … 126 126 for(i=0;;i++){ 127 127 if(Parameter[i]=='\0'){ 128 SetError(21,NULL,cp);128 compiler.errorMessenger.Output(21,NULL,cp); 129 129 return; 130 130 } … … 355 355 compiler.codeGenerator.ContinueAreaBegin(); 356 356 357 if(!Parameter[0]) SetError(10,"While",cp);357 if(!Parameter[0]) compiler.errorMessenger.Output(10,"While",cp); 358 358 359 359 const PertialSchedule *pWhilePertialSchedule = NULL; … … 483 483 i=GetOneParameter(Parameter,0,temporary); 484 484 if(!Parameter[i]){ 485 SetError(12,"For",cp);485 compiler.errorMessenger.Output(12,"For",cp); 486 486 goto ErrorStep; 487 487 } … … 496 496 } 497 497 if(temporary[i2]=='\0'){ 498 SetError(12,"For",cp);498 compiler.errorMessenger.Output(12,"For",cp); 499 499 goto ErrorStep; 500 500 } … … 514 514 if(Parameter[i]){ 515 515 i=GetOneParameter(Parameter,i,StepNum); 516 if(Parameter[i]) SetError(12,"For",cp);516 if(Parameter[i]) compiler.errorMessenger.Output(12,"For",cp); 517 517 } 518 518 else lstrcpy(StepNum,"1"); … … 578 578 if(szNextVariable[0]){ 579 579 if(lstrcmp(szNextVariable,variable)!=0){ 580 SetError(55,szNextVariable,cp);580 compiler.errorMessenger.Output(55,szNextVariable,cp); 581 581 } 582 582 } … … 608 608 GetCustomToken( variable, Parameter, i, ESC_IN, true ); 609 609 if(!Parameter[i]){ 610 SetError(12,"Foreach",cp);610 compiler.errorMessenger.Output(12,"Foreach",cp); 611 611 isError = true; 612 612 goto ErrorStep; … … 667 667 if(szNextVariable[0]){ 668 668 if(lstrcmp(szNextVariable,variable)!=0){ 669 SetError(55,szNextVariable,cp);669 compiler.errorMessenger.Output(55,szNextVariable,cp); 670 670 } 671 671 } … … 691 691 int i,i2,i3; 692 692 693 if(Parameter[0]) SetError(10,"Do",cp);693 if(Parameter[0]) compiler.errorMessenger.Output(10,"Do",cp); 694 694 695 695 //Continueアドレスのバックアップとセット … … 894 894 void OpcodeExitSub(void){ 895 895 if( UserProc::IsGlobalAreaCompiling() ){ 896 SetError(12,"Exit Sub/Function",cp);896 compiler.errorMessenger.Output(12,"Exit Sub/Function",cp); 897 897 return; 898 898 } … … 942 942 if(basbuf[i]=='\0'){ 943 943 selectSchedules.pop_back(); 944 SetError(22,"Select",cp);944 compiler.errorMessenger.Output(22,"Select",cp); 945 945 return; 946 946 } … … 1163 1163 1164 1164 if(selectSchedules.back().typeSize==-1){ 1165 SetError(30,"Case",cp);1165 compiler.errorMessenger.Output(30,"Case",cp); 1166 1166 return; 1167 1167 } … … 1282 1282 i=GetOneParameter(Parameter,0,temporary); 1283 1283 if(!Parameter[i]){ 1284 SetError(1,NULL,cp);1284 compiler.errorMessenger.Output(1,NULL,cp); 1285 1285 return; 1286 1286 } … … 1291 1291 } 1292 1292 if(!resultType.IsWhole()){ 1293 SetError(11,Parameter,cp);1293 compiler.errorMessenger.Output(11,Parameter,cp); 1294 1294 return; 1295 1295 } … … 1300 1300 i=GetOneParameter(Parameter,i,temporary); 1301 1301 if(Parameter[i]){ 1302 SetError(1,NULL,cp);1302 compiler.errorMessenger.Output(1,NULL,cp); 1303 1303 return; 1304 1304 }
Note:
See TracChangeset
for help on using the changeset viewer.