mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
26 lines
289 B
ObjectPascal
26 lines
289 B
ObjectPascal
unit uw3340;
|
|
interface
|
|
{$MODE DELPHI}
|
|
{$INLINE ON}
|
|
|
|
type
|
|
TTT = class
|
|
public
|
|
zz: Integer;
|
|
public
|
|
function Yes: Integer; inline;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure LocK; inline;
|
|
begin WriteLn('asdfasdf'); end;
|
|
|
|
function TTT.Yes: Integer;
|
|
begin
|
|
Lock;
|
|
Result:= zz;
|
|
end;
|
|
|
|
end.
|