mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 06:29:32 +02:00
30 lines
533 B
ObjectPascal
30 lines
533 B
ObjectPascal
{
|
|
staticbug.pas
|
|
|
|
With FPC 2.2.2:
|
|
|
|
staticbug.lpr(24,31) Error: function header doesn't match the previous declaration "class TMyController.doClose(Pointer, Pointer, Pointer);CDecl"
|
|
}
|
|
program staticbug;
|
|
|
|
{$mode delphi}
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
|
|
{ TMyController }
|
|
|
|
TMyController = class
|
|
public
|
|
class procedure doClose(_self: Pointer; _cmd: Pointer; sender: Pointer); cdecl; static;
|
|
end;
|
|
|
|
class procedure TMyController.doClose(_self: Pointer; _cmd: Pointer; sender: Pointer); cdecl; static;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|