blob: e3581cc6eeec9ca06a05f355d58f3eccd3b05f3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{ Old file: tbs0067b.pp }
{ (Work together) OK 0.99.1 }
unit tb0060;
interface
type
tlong=record
a : longint;
end;
procedure p(var l:tlong);
implementation
uses ub0060;
{ the tlong parameter is taken from unit bug0067,
and not from the interface part of this unit.
setting the uses clause in the interface part
removes the problem }
procedure p(var l:tlong);
begin
ub0060.p(ub0060.tlong(l));
end;
end.
|
