From cd661989a5af02db33127a4c61a9e4988a394d3d Mon Sep 17 00:00:00 2001
From: Martin <mfr-git@mfriebe.de>
Date: Tue, 17 Jun 2025 12:25:52 +0200
Subject: [PATCH] Add missing CallerAddr

---
 packages/fcl-fpcunit/src/fpcunit.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-fpcunit/src/fpcunit.pp b/packages/fcl-fpcunit/src/fpcunit.pp
index c7d61c4502..e92a114595 100644
--- a/packages/fcl-fpcunit/src/fpcunit.pp
+++ b/packages/fcl-fpcunit/src/fpcunit.pp
@@ -909,7 +909,7 @@ end;
 
 class procedure TAssert.AssertNotSame(Expected, Actual: TObject);
 begin
-  AssertFalse(SExpectedNotSame, Expected = Actual);
+  AssertFalse(SExpectedNotSame, Expected = Actual,CallerAddr);
 end;
 
 
@@ -1063,7 +1063,7 @@ begin
   Msg:=Format(SErrUnexpectedException,[aClass,aExceptionMessage]);
   if aMessage<>'' then
     Msg:=aMessage+': '+Msg;
-  AssertTrue(Msg,aClass='');
+  AssertTrue(Msg,aClass='',CallerAddr);
 end;
 
 class procedure TAssert.AssertNoException(AMethod: TRunMethod);
@@ -1135,7 +1135,7 @@ begin
   Msg:=Format(SErrUnexpectedException,[aClass,aExceptionMessage]);
   if aMessage<>'' then
     Msg:=aMessage+': '+Msg;
-  AssertTrue(Msg,aClass='');
+  AssertTrue(Msg,aClass='',CallerAddr);
 end;
 
 class procedure TAssert.AssertNoException(AMethod: TRunLocalMethod);