mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 17:28:16 +02: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 -
21 lines
216 B
ObjectPascal
21 lines
216 B
ObjectPascal
{ %norun }
|
|
{ %fail }
|
|
{$mode delphi}
|
|
unit tb0191;
|
|
|
|
interface
|
|
|
|
type
|
|
tii = interface(iunknown) end;
|
|
ti2 = interface(tii) end;
|
|
|
|
function a(b: longint): tii; stdcall;
|
|
|
|
implementation
|
|
|
|
function a:tii;
|
|
begin
|
|
end;
|
|
|
|
end.
|