Changeset 465 in dev for trunk/ab5.0/abdev/BasicCompiler_Common/Intermediate_Step1.cpp
- Timestamp:
- Mar 24, 2008, 8:05:20 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/abdev/BasicCompiler_Common/Intermediate_Step1.cpp
r461 r465 130 130 if(bracket[PareNum]!=0||PareNum<0){ 131 131 //"カッコ \'( )\'" 132 SetError(4,STRING_PARENTHESIS,i);132 compiler.errorMessenger.Output(4,STRING_PARENTHESIS,i); 133 133 return; 134 134 } … … 138 138 if(bracket[PareNum]!=1||PareNum<0){ 139 139 //"カッコ \'( )\'" 140 SetError(4,STRING_PARENTHESIS,i);140 compiler.errorMessenger.Output(4,STRING_PARENTHESIS,i); 141 141 return; 142 142 } … … 146 146 147 147 //"カッコ \'( )\'" 148 if(PareNum!=0) SetError(4,STRING_PARENTHESIS,i);149 150 if(IsStr!=0) SetError(5,NULL,i);148 if(PareNum!=0) compiler.errorMessenger.Output(4,STRING_PARENTHESIS,i); 149 150 if(IsStr!=0) compiler.errorMessenger.Output(5,NULL,i); 151 151 if(buffer[i]=='\0') break; 152 152 PareNum=0; … … 161 161 //全角スペース 162 162 if(buffer[i]==(char)0x81&&buffer[i+1]==(char)0x40) 163 SetError(20,NULL,i);163 compiler.errorMessenger.Output(20,NULL,i); 164 164 165 165 //その他の全角文字 166 else SetError(8,NULL,i);166 else compiler.errorMessenger.Output(8,NULL,i); 167 167 sw=1; 168 168 } … … 259 259 while(basbuf[i2]==' '||basbuf[i2]=='\t') i2++; 260 260 if(basbuf[i2]!='\"'){ 261 SetError(1,NULL,i2);261 compiler.errorMessenger.Output(1,NULL,i2); 262 262 return; 263 263 } … … 317 317 while(basbuf[i2]==' '||basbuf[i2]=='\t') i2++; 318 318 if(basbuf[i2]!='\"'){ 319 SetError(1,NULL,i2);319 compiler.errorMessenger.Output(1,NULL,i2); 320 320 return; 321 321 } … … 1021 1021 while(buffer[i]==' '||buffer[i]=='\t') i++; 1022 1022 if(buffer[i]!='('){ 1023 SetError(1,NULL,i);1023 compiler.errorMessenger.Output(1,NULL,i); 1024 1024 return; 1025 1025 } … … 1047 1047 while(buffer[i]==' '||buffer[i]=='\t') i++; 1048 1048 if(buffer[i]!='='){ 1049 SetError(1,NULL,i);1049 compiler.errorMessenger.Output(1,NULL,i); 1050 1050 break; 1051 1051 } … … 1243 1243 if(FuncNum!=0){ 1244 1244 if(FuncType==ESC_FUNCTION) 1245 SetError(54,"End Function",FuncPtr);1245 compiler.errorMessenger.Output(54,"End Function",FuncPtr); 1246 1246 else if(FuncType==ESC_SUB) 1247 SetError(54,"End Sub",FuncPtr);1247 compiler.errorMessenger.Output(54,"End Sub",FuncPtr); 1248 1248 else if(FuncType==ESC_MACRO) 1249 SetError(54,"End Macro",FuncPtr);1249 compiler.errorMessenger.Output(54,"End Macro",FuncPtr); 1250 1250 return; 1251 1251 } … … 1265 1265 if(FuncNum!=0||i3!=FuncType){ 1266 1266 if(basbuf[i2+1]==ESC_ENDFUNCTION) 1267 SetError(12,"End Function",i2);1267 compiler.errorMessenger.Output(12,"End Function",i2); 1268 1268 else if(basbuf[i2+1]==ESC_ENDSUB) 1269 SetError(12,"End Sub",i2);1269 compiler.errorMessenger.Output(12,"End Sub",i2); 1270 1270 else if(basbuf[i2+1]==ESC_ENDMACRO) 1271 SetError(12,"End Macro",i2);1271 compiler.errorMessenger.Output(12,"End Macro",i2); 1272 1272 return; 1273 1273 }
Note:
See TracChangeset
for help on using the changeset viewer.