* fix Sysutils.AssertErrorHandler as proposed by Martin Friebe in #19130, resolves #19310

git-svn-id: trunk@17470 -

rtl/objpas/sysutils/sysutils.inc

@@ -379,7 +379,7 @@ begin
     S:=SAssertionFailed
   else
     S:=Msg;
-  Raise EAssertionFailed.Createfmt(SAssertError,[S,Fn,LineNo]) at Pointer(theAddr);
+  Raise EAssertionFailed.Createfmt(SAssertError,[S,Fn,LineNo]) at get_caller_addr(theAddr), get_caller_frame(theAddr);
 end;
 
 {$ifdef STACKCHECK_WAS_ON}