blob: c02ee5568c64f0f9be81cd3007b1a08b234bd5c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
unit tw5023;
{$ifdef fpc}{$mode delphi}{$H+}{$endif}
interface
type
TScanLine = array of Integer;
implementation
procedure TestSwap(var A, B: Integer);
begin
// do something
end;
procedure Main(const ALine: TScanLine);
begin
TestSwap(ALine[0], ALine[1]); // <-- error here
end;
end.
|
