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
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal