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

Add testing of use of variable of class

Browse Source 
git-svn-id: trunk@41417 -
This commit is contained in:
pierre 2019-02-23 15:37:39 +00:00
parent af36913469
commit 1a564de6e6
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/units/classes/tmakeobjinst.pp
View File

@ -5,6 +5,7 @@ uses
type type
tc1 = class tc1 = class
var a : longint;
procedure p(var msg : TMessage); procedure p(var msg : TMessage);
end; end;
@ -14,7 +15,7 @@ procedure tc1.p(var msg : TMessage);
begin begin
if (msg.msg<>1) or (msg.wparam<>2) or (msg.lparam<>3) then if (msg.msg<>1) or (msg.wparam<>2) or (msg.lparam<>3) then
halt(1); halt(1);
msg.result:=4; msg.result:=4+a;
end; end;
var var
@ -22,10 +23,15 @@ var
c : tc1; c : tc1;
begin begin
c:=tc1.create; c:=tc1.create;
c.a:=0;
f:=tf(MakeObjectInstance(@c.p)); f:=tf(MakeObjectInstance(@c.p));
if f(0,1,2,3)<>4 then if f(0,1,2,3)<>4 then
halt(1); halt(1);
c.a:=3;
if f(0,1,2,3)<>7 then
halt(2);
c.free; c.free;