* delphi mode only

This commit is contained in:
peter 2003-01-01 21:09:49 +00:00
parent 2b6f661cbc
commit 0692123640

View File

@ -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.