blob: e64ef1d7f1ab217561a7e7064cad639d047049f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ %FAIL }
{$ifdef FPC}
{$MODE TP}
{$endif FPC}
unit tbug890;
INTERFACE
procedure GetScreenLine(const x: Integer);
IMPLEMENTATION
procedure GetScreenLine(x: Integer);
begin
end;
begin
end.
|