Hello!

In Delphi it is valid to assign a static class procedure to a procedure variable:

program project1;
type
   TMyObject = class
   public
     class procedure Proc; static;
   end;
   TProc = procedure();
class procedure TMyObject.Proc;
begin
end;
var
   xProc: TProc;
begin
*  xProc := @TMyObject.Proc;**
*end.

(In Delphi just without the @ operator, obviously.)

In FPC 3.1.1 (trunk) I get the following error:

project1.lpr(22,12) Error: Incompatible types: got "<class method type of procedure of object;Register>" expected "<procedure variable type of procedure;Register>"

Why? Can it be achieved somehow (compiler settings)?

Ondrej

Just use Delphi mode. :)
17.10.2015 09:01 "Ondrej Pokorny" napisał(a):

Maciej Izak wrote

Just use Delphi mode. :)

Ok, that is possible. No chance to get it working in objfpc mode?

Ondrej

Ondrej Pokorny wrote

Ok, that is possible. No chance to get it working in objfpc mode?

It's a known bug since quite a long time, but nobody got around to fixing it yet. There's a report for it on the bug tracker.

Jonas

I fixed it: http://bugs.freepascal.org/view.php?id=27414

Ondrej

Thanks for committing the patch. There is room for a small optimization
- you don't have to check "po_staticmethod" afterwards. The check is already done in "{ b) }". See attached patch. (I cannot attach files to resolved issue reports, therefore I send it here.)

Ondrej