blob: 3e8cf6c18491c1c9a73202f36ae5d58cd3373bac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{ Old file: tbs0058.pp }
{ causes an internal error 10 (problem with getregisterOK 0.99.1 (FK) }
{$r+}
var
a1 : array[0..1,0..1] of word;
a2 : array[0..1,0..1] of longint;
i,j,l,n : longint;
begin
a1[i,j]:=a2[l,n];
end.
|
