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

fpcunit: fixed compilation fpc 3.x

Browse Source 
git-svn-id: trunk@48817 -
This commit is contained in:
mattias 2015-04-22 15:13:31 +00:00
parent a4706fccd1
commit e1a9dcda81
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpcunit/guitestrunner.pas
View File

@ -784,7 +784,7 @@ begin
Format(rsException, [AFailure.ExceptionClassName])) as TMessageTreeNode;
node.ImageIndex := imgWarningSign;
node.SelectedIndex := imgWarningSign;
{$IFDEF VER2_6}
{$IF FPC_FULLVERSION <= 30001}
node := TestTree.Items.AddChild(FailureNode,
Format('at line %d in <%s>', [AFailure.LineNumber, AFailure.UnitName])) as TMessageTreeNode;
{$ELSE}
@ -839,7 +839,7 @@ begin
node.ImageIndex := imgWarningSign;
node.SelectedIndex := imgWarningSign;
// line info details
{$IFDEF VER2_6}
{$IF FPC_FULLVERSION <= 30001}
node := TestTree.Items.AddChild(ErrorNode,
Format('at line %d in <%s>', [AError.LineNumber, AError.UnitName])) as TMessageTreeNode;