mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
82a0749970
(mantis #10002) and also to orddef-to-real conversions (delphi-compatible). More tests and fixes will follow later. git-svn-id: trunk@9015 -
32 lines
479 B
ObjectPascal
32 lines
479 B
ObjectPascal
program OverloadMistaken;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
type _ulong = Cardinal;
|
|
|
|
TCCC = class
|
|
public
|
|
constructor Create(Size: _ulong=0); overload;
|
|
constructor Create(Buffer: Pointer); overload;
|
|
end;
|
|
|
|
constructor TCCC.Create(Size: _ulong);
|
|
begin
|
|
inherited Create;
|
|
WriteLn('TCCC.Create(Size: _ulong) called.');
|
|
end;
|
|
|
|
constructor TCCC.Create(Buffer: Pointer);
|
|
begin
|
|
halt(1);
|
|
end;
|
|
|
|
var c: TCCC;
|
|
l: longint;
|
|
begin
|
|
c := TCCC.Create(20);
|
|
c := TCCC.Create(l);
|
|
end.
|