paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 17:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* crash fix

Browse Source
This commit is contained in:
peter 1999-06-01 00:19:47 +00:00
parent be67d33ae6
commit 41a7522c69
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/ts010000.pp
View File

@ -29,6 +29,7 @@ var
i : longint; i : longint;
begin begin
object1:=tobject1.create;
i:=object1.l; i:=object1.l;
i:=object1.l2; i:=object1.l2;
object1.l:=123; object1.l:=123;

1
tests/ts010004.pp
View File

@ -18,5 +18,6 @@ type
end; end;
begin begin
c:=tclass1.create;
c.i:=12; c.i:=12;
end. end.