mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-03 03:08:10 +01:00
e5a1d628eb
calling convention that has different hidden parameters than the
interface declaration no longer compiled in Delphi mode (e.g.
webtbs/tw7329.pp on i386)
* fixed remaining declaration parsing incompatibilities in TP/Delphi
modes (other modes already gave errors for the things below):
* give an error for "function a: byte;" in interface followed by
"procedure a;" in implementation ("function a;" in implementation
still allowed as in TP/Delphi)
* give an error for "function a(b: byte):byte" in interface
followed by "function a: byte;" in implementation (if one parameter
or return type is specified in implementation, everything must
be repeated -- "function a;" still allowed)
* copied webtbs/tw0890.pp to webtbf/tw0890a.pp since it now correctly
fails, and modified webtbs/tw0890.pp so it doesn't fail with the
new code
git-svn-id: trunk@5688 -
20 lines
207 B
ObjectPascal
20 lines
207 B
ObjectPascal
{ %norun }
|
|
{$mode delphi}
|
|
unit tb0517;
|
|
|
|
interface
|
|
|
|
type
|
|
tii = interface(iunknown) end;
|
|
ti2 = interface(iunknown) end;
|
|
|
|
function a(b: longint): tii; stdcall;
|
|
|
|
implementation
|
|
|
|
function a;
|
|
begin
|
|
end;
|
|
|
|
end.
|