paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 15:10:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add a test which ensures that a "const TVarData" parameter is passed as a reference.

Browse Source 
This is required for Delphi compatibility as implementers of IVarInvokable or
  inheritors of TInvokableVariantType need to modify the variant data by using
  a pointer to the TVarData because it's passed as const and thus not modifyable
  by itself.
  This behavior is documented in so far as the C++ builder documentation shows
  that the same parameter is implemented as "const&".

git-svn-id: trunk@48478 -
This commit is contained in:
svenbarth 2021-01-31 21:23:29 +00:00
parent fe5b29c111
commit d13838ac0b
2 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -13982,6 +13982,7 @@ tests/test/cg/tobjsize.pp svneol=native#text/plain
tests/test/cg/tpara1.pp svneol=native#text/plain
tests/test/cg/tpara2.pp svneol=native#text/plain
tests/test/cg/tpara3.pp svneol=native#text/plain
tests/test/cg/tpara4.pp svneol=native#text/pascal
tests/test/cg/tprintf.pp svneol=native#text/plain
tests/test/cg/tprintf2.pp svneol=native#text/plain
tests/test/cg/tprintf3.pp svneol=native#text/plain

22
tests/test/cg/tpara4.pp Normal file
View File

@ -0,0 +1,22 @@
{ This test ensures that a "const TVarData" parameter is passed as a reference.
This is required for Delphi compatibility as implementers of IVarInvokable or
inheritors of TInvokableVariantType need to modify the variant data by using
a pointer to the TVarData because it's passed as const and thus not modifyable
by itself.
This behavior is documented in so far as the C++ builder documentation shows
that the same parameter is implemented as "const&". }
program tpara4;
var
d: TVarData;
procedure Test(const v: TVarData);
begin
if @d <> @v then
Halt(1);
end;
begin
Test(d);
end.