[fpc-pascal] Typo in the implementation 'TAssert.AssertException(AExceptionClass, AMethod, AExceptionMessage, AExceptionContext)'

[silvioprog]

Hello,

Aprogrammer could use:

  AssertException(EMyException, @MyException, 'My exception');

But the current implementation in this method is:

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

To fix this problem, it could be:

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

Issue: http://bugs.freepascal.org/view.php?id=27789

Thank you!

-- 
Silvio Clécio
My public projects - github.com/silvioprog
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20150405/61fb9c82/attachment.html>