mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 07:46:00 +02:00
* delphi mode only
This commit is contained in:
parent
2b6f661cbc
commit
0692123640
@ -2,24 +2,24 @@
|
|||||||
{ This program should fail compilation, since
|
{ This program should fail compilation, since
|
||||||
the declaration is not the same as the actual
|
the declaration is not the same as the actual
|
||||||
implementation, checked against Delphi 3 -
|
implementation, checked against Delphi 3 -
|
||||||
the class keyword is missing in front
|
the class keyword is missing in front
|
||||||
of procedure tmyclass.myproc
|
of procedure tmyclass.myproc
|
||||||
}
|
}
|
||||||
{$ifdef fpc}
|
{$ifdef fpc}
|
||||||
{$mode objfpc}
|
{$mode delphi}
|
||||||
{$endif}
|
{$endif}
|
||||||
type
|
type
|
||||||
tmyclass = class
|
tmyclass = class
|
||||||
class procedure myproc;virtual;
|
class procedure myproc;virtual;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ missing class keyword in front of procedure }
|
{ missing class keyword in front of procedure }
|
||||||
procedure tmyclass.myproc;
|
procedure tmyclass.myproc;
|
||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
Begin
|
Begin
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user