paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 06:56:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source 
git-svn-id: trunk@41884 -
This commit is contained in:
mattias 2013-06-25 09:27:24 +00:00
parent 65c8f9b6ed
commit f7a0b09e98
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/customcodetool.pas
View File

@ -788,7 +788,7 @@ procedure TCustomCodeTool.AtomIsIdentifierSaveE;
procedure SaveRaiseIdentExpectedButEOFFound;
begin
SaveRaiseExceptionFmt(ctsIdentExpectedButEOFFound,[GetAtom],true);
SaveRaiseExceptionFmt(ctsIdentExpectedButEOFFound,[GetAtom]);
end;
begin
@ -806,14 +806,14 @@ function TCustomCodeTool.AtomIsCustomOperator(AllowIdentifier,
begin
if CurPos.StartPos>SrcLen then begin
if SaveE then
SaveRaiseException(ctsOperatorExpectedButEOFFound,true)
SaveRaiseException(ctsOperatorExpectedButEOFFound)
else
RaiseException(ctsOperatorExpectedButEOFFound,true)
RaiseException(ctsOperatorExpectedButEOFFound)
end else begin
if SaveE then
SaveRaiseExceptionFmt(ctsOperatorExpectedButAtomFound,[GetAtom],true)
SaveRaiseExceptionFmt(ctsOperatorExpectedButAtomFound,[GetAtom])
else
RaiseExceptionFmt(ctsOperatorExpectedButAtomFound,[GetAtom],true)
RaiseExceptionFmt(ctsOperatorExpectedButAtomFound,[GetAtom])
end;
end;
@ -1935,9 +1935,9 @@ var OpenBracket, AntiOpenBracket: TCommonAtomFlag;
procedure RaiseBracketNotFound;
begin
if OpenBracket=cafRoundBracketOpen then
SaveRaiseExceptionFmt(ctsBracketNotFound,['('],true)
SaveRaiseExceptionFmt(ctsBracketNotFound,['('])
else
SaveRaiseExceptionFmt(ctsBracketNotFound,['['],true);
SaveRaiseExceptionFmt(ctsBracketNotFound,['[']);
end;
begin
@ -3090,20 +3090,20 @@ end;
procedure TCustomCodeTool.SaveRaiseIdentExpectedButAtomFound;
begin
SaveRaiseExceptionFmt(ctsIdentExpectedButAtomFound,[GetAtom],true);
SaveRaiseExceptionFmt(ctsIdentExpectedButAtomFound,[GetAtom]);
end;
procedure TCustomCodeTool.SaveRaiseBracketOpenExpectedButAtomFound;
begin
SaveRaiseExceptionFmt(ctsBracketOpenExpectedButAtomFound,[GetAtom],true);
SaveRaiseExceptionFmt(ctsBracketOpenExpectedButAtomFound,[GetAtom]);
end;
procedure TCustomCodeTool.SaveRaiseBracketCloseExpectedButAtomFound;
begin
if CurPos.StartPos<SrcLen then
SaveRaiseExceptionFmt(ctsBracketCloseExpectedButAtomFound,[GetAtom],true)
SaveRaiseExceptionFmt(ctsBracketCloseExpectedButAtomFound,[GetAtom])
else
SaveRaiseExceptionFmt(ctsBracketNotFound,[],true)
SaveRaiseExceptionFmt(ctsBracketNotFound,[])
end;
procedure TCustomCodeTool.ActivateGlobalWriteLock;

6
components/codetools/pascalparsertool.pas
View File

@ -503,7 +503,7 @@ end;
function TPascalParserTool.UnexpectedKeyWord: boolean;
begin
Result:=false;
SaveRaiseExceptionFmt(ctsUnexpectedKeyword,[GetAtom],true);
SaveRaiseExceptionFmt(ctsUnexpectedKeyword,[GetAtom]);
end;
function TPascalParserTool.EndOfSourceExpected: boolean;
@ -634,7 +634,7 @@ begin
HasSourceType:=false;
CurPos.EndPos:=CurPos.StartPos;
end else
SaveRaiseExceptionFmt(ctsNoPascalCodeFound,[GetAtom],true);
SaveRaiseExceptionFmt(ctsNoPascalCodeFound,[GetAtom]);
end;
if CurNode=nil then
CreateChildNode;
@ -891,7 +891,7 @@ procedure TPascalParserTool.BuildSubTreeForBeginBlock(BeginNode: TCodeTreeNode);
begin
SaveRaiseException(
'TPascalParserTool.BuildSubTreeForBeginBlock: begin expected, but '
+GetAtom+' found',true);
+GetAtom+' found');
end;
var