blob: be8f99f33618c4fbfdf9ee7b7c6593a1a34545a5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ %target=win32,win64 }
{ %needlibrary }
unit
ulib2a;
interface
{ Checks that the two functions with the same exported name 'p'
are each loaded correctly. }
procedure p(var a : dword);external 'tlib1a' name 'p';
procedure p2(var a : dword);external 'tlib1a2' name 'p';
procedure p3(var a : dword);external 'tlib1a' name 'p';
implementation
end.
|
