paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed TCodeTreeNode.ConsistencyCheck

Browse Source 
git-svn-id: trunk@16859 -
This commit is contained in:
mattias 2008-10-03 09:34:52 +00:00
parent 942fc72cd3
commit 992d5f74ab
3 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codetoolmanager.pas
View File

@ -1593,14 +1593,14 @@ end;
procedure TCodeToolManager.WriteError;
begin
if FWriteExceptions then begin
{$IFDEF CTDEBUG}
WriteDebugReport(true,false,false,false,false);
{$ENDIF}
DbgOut('### TCodeToolManager.HandleException: "'+ErrorMessage+'"');
if ErrorLine>0 then DbgOut(' at Line=',DbgS(ErrorLine));
if ErrorColumn>0 then DbgOut(' Col=',DbgS(ErrorColumn));
if ErrorCode<>nil then DbgOut(' in "',ErrorCode.Filename,'"');
DebugLn('');
{$IFDEF CTDEBUG}
WriteDebugReport(true,false,false,false,false);
{$ENDIF}
end;
end;

4
components/codetools/codetree.pas
View File

@ -650,9 +650,9 @@ begin
if (NextBrother=nil) and (Parent.LastChild<>Self) then
raise Exception.Create('');
end;
if (NextBrother<>nil) and (NextBrother.Parent<>Parent) then;
if (NextBrother<>nil) and (NextBrother.Parent<>Parent) then
raise Exception.Create('');
if (PriorBrother<>nil) and (PriorBrother.Parent<>Parent) then;
if (PriorBrother<>nil) and (PriorBrother.Parent<>Parent) then
raise Exception.Create('');
if (FirstChild<>nil) and (FirstChild.Parent<>Self) then
raise Exception.Create('');

1
components/codetools/stdcodetools.pas
View File

@ -3804,7 +3804,6 @@ function TStandardCodeTool.GetPasDocComments(const StartPos: TCodeXYPosition;
var
CleanCursorPos: integer;
ANode: TCodeTreeNode;
p: LongInt;
NextNode: TCodeTreeNode;
EndPos: LongInt;
TypeNode: TCodeTreeNode;