paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove redundant if

Browse Source 
git-svn-id: trunk@25378 -
This commit is contained in:
michael 2013-08-27 10:02:03 +00:00
parent c42890ed75
commit 901f5742b8
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-fpcunit/src/fpcunit.pp
View File

@ -588,7 +588,6 @@ class procedure TAssert.AssertEquals(const AMessage: string; Expected, Actual: T
end;
begin
If (Expected<>Nil) then
AssertTrue(AMessage + ComparisonMsg(GetN(Expected), GetN(Actual)), Expected = Actual);
end;