mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
7b313a2c15
encountering a method with the correct name that does not have the
"overload" directive (same logic as when looking for a call candidate,
to avoid errors when using a Pascal-level wrapper to call interface
methods, and Delphi-compatible since it always required "overload" for
overloaded methods)
o also catches calling convention mismatches like in webtbs/tw27349
git-svn-id: trunk@40683 -
44 lines
716 B
ObjectPascal
44 lines
716 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw27349;
|
|
|
|
{$mode delphi}
|
|
{.$mode objfpc}
|
|
{.$modeswitch advancedrecords}
|
|
|
|
type
|
|
|
|
C = class
|
|
|
|
type
|
|
|
|
tmyintf = class(TInterfacedObject, iinterface)
|
|
function _AddRef : longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
|
|
end;
|
|
|
|
end;
|
|
|
|
R = record
|
|
|
|
type
|
|
|
|
tmyintf = class(TInterfacedObject, iinterface)
|
|
function _AddRef : longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
|
|
end;
|
|
|
|
end;
|
|
|
|
function C.tmyintf._AddRef: longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
|
|
begin
|
|
result := inherited _AddRef; // OK
|
|
end;
|
|
|
|
function R.tmyintf._AddRef: longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
|
|
begin
|
|
result := inherited _AddRef; // FAIL
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|