paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add missing CallerAddr

Browse Source
This commit is contained in:
Martin 2025-06-17 12:25:52 +02:00
parent 88d57454a0
commit cd661989a5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-fpcunit/src/fpcunit.pp
View File

@ -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);