mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 19:13:52 +02:00
30ee3416e8
(the latter via a type cast) variables from which only fields are
read
git-svn-id: trunk@4181 -
23 lines
219 B
ObjectPascal
23 lines
219 B
ObjectPascal
{ %OPT=-Sen }
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
tc = class
|
|
procedure t;
|
|
private
|
|
fleft: tc;
|
|
end;
|
|
|
|
procedure tc.t;
|
|
var
|
|
oldroot: tc;
|
|
begin
|
|
fleft := nil;
|
|
oldroot := nil;
|
|
oldroot.fleft := nil;
|
|
end;
|
|
|
|
begin
|
|
end.
|