mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
382bbc1201
where it used to be set to true (dereferencing a pointer always means
that regardless of what the pointer was, the resut is assignable)
(mantis #22979)
o also removed gotpointer, since it was only used in combination with
gotderef
git-svn-id: trunk@35308 -
27 lines
325 B
ObjectPascal
27 lines
325 B
ObjectPascal
{ %norun }
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TMyRecord = record
|
|
Data: pointer;
|
|
end;
|
|
|
|
TMyClass = class
|
|
private
|
|
FRef: TMyRecord;
|
|
public
|
|
property Ref: TMyRecord read FRef write FRef;
|
|
end;
|
|
|
|
var
|
|
MyClass1, MyClass2: TMyClass;
|
|
|
|
procedure test;
|
|
begin
|
|
Move(MyClass1.Ref.Data^, MyClass2.Ref.Data^, 1);
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|