From 7de8972e5c9a5a5010129c2f985eb8c624efa343 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 15 May 2011 15:13:22 +0000
Subject: [PATCH] * fix Sysutils.AssertErrorHandler as proposed by Martin
 Friebe  in #19130, resolves #19310

git-svn-id: trunk@17470 -
---
 rtl/objpas/sysutils/sysutils.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/sysutils.inc b/rtl/objpas/sysutils/sysutils.inc
index 785d6ba811..b89c66a7c9 100644
--- a/rtl/objpas/sysutils/sysutils.inc
+++ b/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}