paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 10:48:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add test from Mantis #31305 for completeness sake

Browse Source 
git-svn-id: trunk@35377 -
This commit is contained in:
svenbarth 2017-01-31 18:24:00 +00:00
parent c1390b3442
commit 11493de99b
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -15361,6 +15361,7 @@ tests/webtbs/tw31120.pp svneol=native#text/pascal
tests/webtbs/tw3113.pp svneol=native#text/plain
tests/webtbs/tw31201.pp svneol=native#text/pascal
tests/webtbs/tw3124.pp svneol=native#text/plain
tests/webtbs/tw31305.pp svneol=native#text/pascal
tests/webtbs/tw3131.pp svneol=native#text/plain
tests/webtbs/tw3137.pp svneol=native#text/plain
tests/webtbs/tw3143.pp svneol=native#text/plain

21
tests/webtbs/tw31305.pp Normal file
View File

@ -0,0 +1,21 @@
program tw31305;
{$MODE DELPHI}
type
TInterfaceStubLog = object
TimeStamp64: Int64;
WasError: boolean;
Method: Pointer;
Params: UTF8String;
CustomResults: UTF8String;
end;
var
a,b: TInterfaceStubLog;
begin
a.Method := Pointer($1);
CopyArray(@b, @a, TypeInfo(TInterfaceStubLog), 1);
if not Assigned(b.Method) then
Halt(1);
end.