mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 09:49:27 +02:00
17 lines
352 B
ObjectPascal
17 lines
352 B
ObjectPascal
{ %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 'tlib1b' name 'p';
|
|
procedure p3(var a : dword);external 'tlib1a' name 'p';
|
|
|
|
implementation
|
|
|
|
end.
|