From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.140.227.9 with SMTP id x9mr17957239qhb.19.1464599371681;
        Mon, 30 May 2016 02:09:31 -0700 (PDT)
X-Received: by 10.157.40.228 with SMTP id s91mr322784ota.13.1464599371633;
 Mon, 30 May 2016 02:09:31 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!peer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!q32no1303009qgq.0!news-out.google.com!yi6ni2062igc.0!nntp.google.com!q6no2773865igz.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Mon, 30 May 2016 02:09:31 -0700 (PDT)
In-Reply-To: <e4696f0e-f352-48b1-ac53-d74a496ce66f@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=37.190.52.85;
 posting-account=YB4WOgoAAABLG9D7qoJiPBc6EJSzsPDF
NNTP-Posting-Host: 37.190.52.85
References: <e4696f0e-f352-48b1-ac53-d74a496ce66f@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <b4c15b64-e426-4fef-961f-49b9749ebab3@googlegroups.com>
Subject: Re: Ada,static link dll.(windows)
From: George J <ivanov_george@list.ru>
Injection-Date: Mon, 30 May 2016 09:09:31 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 2759
X-Received-Body-CRC: 197608323
Xref: news.eternal-september.org comp.lang.ada:30511
Date: 2016-05-30T02:09:31-07:00
List-Id: <comp.lang.ada>

=D0=BF=D0=BE=D0=BD=D0=B5=D0=B4=D0=B5=D0=BB=D1=8C=D0=BD=D0=B8=D0=BA, 30 =D0=
=BC=D0=B0=D1=8F 2016 =D0=B3., 12:08:09 UTC+3 =D0=BF=D0=BE=D0=BB=D1=8C=D0=B7=
=D0=BE=D0=B2=D0=B0=D1=82=D0=B5=D0=BB=D1=8C George J =D0=BD=D0=B0=D0=BF=D0=
=B8=D1=81=D0=B0=D0=BB:
> Hi ALL!So,today I've got a problem with dll:
> I have .dll (made with FASM) and I want to link it statically to my Ada p=
roject. I've always made this way (https://rosettacode.org/wiki/Call_a_func=
tion_in_a_shared_library#Windows) by dinamically linking. So I want to link=
 my dll statically. I've spent 6 hours and couldn't find any solution.
>=20
> p.s. my way was
> 1. pragma Import(Stdcall,myProc,"myProc",Link_Name =3D> "myDLL.dll");
> result: undefined reference to "myDLL.dll"
> 2. pragma Import(Stdcall,myProc,"myProc");
> result: undefined reference to myProc@8 (yes,it has to DWORD params)
> and other attempts.
> -------------------------------------------------------------------------=
-
>=20
> I have Thin package with=20
> ------------------------------------
> with Win32;
>=20
> package Thin is
>=20
>    procedure myProc
>      (Major : Win32.DWORD;
>       Minor : Win32.DWORD);
>    pragma Import(Stdcall,myProc,"myProc"); --,Link_Name =3D> "myDLL.dll")=
;
>    --pragma Linker_Options("-myDLL");
>=20
> end Thin;
> --------------------------------------
>=20
> and Main proc with
> --------------------------
> with Thin;
> procedure Main is
> begin
>       Thin.myProc(1,2);
> end Main;
> -------------------------

and BTW,I've put my DLL file in exec folder,project folder,build folder...