mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 17:48:53 +02:00
28 lines
558 B
ObjectPascal
28 lines
558 B
ObjectPascal
{ %target=win32 }
|
|
|
|
{$mode delphi}
|
|
unit tb0371;
|
|
|
|
interface
|
|
|
|
const
|
|
dllname = 'lalala';
|
|
|
|
type
|
|
pinteger = ^integer;
|
|
|
|
procedure p1(var i : integer);overload;
|
|
procedure p1(i : pinteger);overload;
|
|
procedure p2(var i : integer);overload;
|
|
procedure p2(i : pinteger);overload;
|
|
|
|
implementation
|
|
|
|
procedure p1(var i : integer);overload;external dllname;
|
|
procedure p1(i : pinteger);overload;external dllname;
|
|
procedure p2(var i : integer);external dllname name 'lalala';
|
|
procedure p2(i : pinteger);external dllname name 'lalala';
|
|
|
|
begin
|
|
end.
|