On 25/09/12 20:43, Bernd wrote:
2012/9/25 patspiper <patspi...@gmail.com>:
procedure test;
begin
   Move(MyClass1.Ref.Data^, MyClass2.Ref.Data^, 1);
end;
and if you cast it to some other pointer type before dereferencing the
error goes away:

procedure test;
begin
   Move(MyClass1.Ref.Data^, PByte(MyClass2.Ref.Data)^, 1);
end;

But this should not be necessary.
Thanks for the feedback. Submitted as:
http://bugs.freepascal.org/view.php?id=22979

Stephano
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to