Hello, FPC developers' list

Can someone explain how it is possible:
http://bugs.freepascal.org/view.php?id=14670 ?

Objects.pp has only one trivial line of code which executes on the start. Maybe because it uses "begin end." instead of "initialiaztion"? I guess that in any case it is a compiler bug rather than a lazarus bug.

Best regards,
Paul Ishenin.

The problem is most likely that the "objects" unit declares a TObject type, which is a TP-style object. As a result, the TForm1 methods do not expect a Delphi-style TObject parameter, but a TP-style TObject parameter (by value). I don't know how the ListView1EndDrag and MenuItem1Click methods in unit1 are called, but I assume that's done somehow indirectly with an objpas.TObject parameter, which would result in an unbalanced stack.

Jonas

Thanks. Probably you are right. TForm1.ListView1EndDrag is called from the next method:

procedure TControl.DoEndDrag(Target: TObject; X,Y: Integer);
begin
  if Assigned(FOnEndDrag) then FOnEndDrag(Self,Target,X,Y);
end;

I experimented more. I removed objects from the uses list and added my own TObject = object declaration to the Unit1. It crashes in this case also.

Best regards,
Paul Ishenin.

This is the explanation. If there is a bug, it is that the streaming does not check the type of the arguments, just the name of the method.

Delphi has the same 'problem', in fact I make regular use of it :-)

Michael.