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

[Michael Van Canneyt]

Fixed. Thanks for spotting this !

Michael.

On Sun, 5 Apr 2015, silvioprog wrote:

> 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
> 
>