blob: d07202c1fad53f11057af8553abb305e7dc50daa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ %OPT=-Un }
{ %RECOMPILE }
{ Old file: tbs0180.pp }
{ problem for units with names different from file name should be accepted with -Un !! Solved, but you still need to use the file name from other units OK 0.99.9 (PM) }
{ this name should be accepted with -Un option !! }
UNIT tb154_wrong;
INTERFACE
uses
ub0150;
procedure dummy;
IMPLEMENTATION
procedure dummy;
begin
{ Unit_with_strange_name.dummy; should this work ?? }
ub0150.dummy;
end;
END.
|
