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

* Fixed typo (bug 27789)

Browse Source 
git-svn-id: trunk@30460 -
This commit is contained in:
michael 2015-04-06 07:07:35 +00:00
parent 877a769ac3
commit b9aa2928df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -881,7 +881,7 @@ end;
class procedure TAssert.AssertException(AExceptionClass: ExceptClass;
AMethod: TRunMethod;AExceptionMessage : String = ''; AExceptionContext : Integer = 0);
begin
AssertException('', AExceptionClass, AMethod,'',0,CallerAddr);
AssertException('', AExceptionClass, AMethod, AExceptionMessage, 0, CallerAddr);
end;