<div dir="ltr"><div>Hello,</div><div><br></div><div>Aprogrammer could use:</div><div><br></div><div>  AssertException(EMyException, @MyException, 'My exception');</div><div><br></div><div>But the current implementation in this method is:</div><div><br></div><div>class procedure TAssert.AssertException(AExceptionClass: ExceptClass;</div><div>  AMethod: TRunMethod;AExceptionMessage : String = ''; AExceptionContext : Integer = 0);</div><div>begin</div><div>  AssertException('', AExceptionClass, AMethod,'',0,CallerAddr);</div><div>end;</div><div><br></div><div>To fix this problem, it could be:</div><div><br></div><div>class procedure TAssert.AssertException(AExceptionClass: ExceptClass;</div><div>  AMethod: TRunMethod;AExceptionMessage : String = ''; AExceptionContext : Integer = 0);</div><div>begin</div><div>  AssertException('', AExceptionClass, AMethod, AExceptionMessage, 0, CallerAddr);</div><div>end;</div><div><div><br></div><div>Issue: <a href="http://bugs.freepascal.org/view.php?id=27789">http://bugs.freepascal.org/view.php?id=27789</a></div><div><br></div><div>Thank you!</div><div><br></div>-- <br><div class="gmail_signature">Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a></div>
</div></div>