[fpc-pascal] Typo in the implementation 'TAssert.AssertException(AExceptionClass, AMethod, AExceptionMessage, AExceptionContext)'
Michael Van Canneyt
michael at freepascal.org
Mon Apr 6 09:08:24 CEST 2015
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
>
>
More information about the fpc-pascal
mailing list