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

Reply via email to