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.1 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,8141f2ef049fcd7e
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-10-11 11:21:17 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!news.maxwell.syr.edu!feed1.uncensored-news.com!propagator-la!news-in-la.newsfeeds.com!news-in.superfeed.net!news.cesnet.cz!crax.cesnet.cz!news.felk.cvut.cz!not-for-mail
From: "Sergey Koshcheyev" <serko84@hotmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Help with GNAT, WinNT, StdCall, dll, exported names
Date: Thu, 11 Oct 2001 19:59:09 +0200
Organization: Czech Technical University
Message-ID: <9q4mp3$idk$1@ns.felk.cvut.cz>
References: <%lfx7.6$_o6.503@newsc.telia.net>
NNTP-Posting-Host: l236.dkm.cz
X-Trace: ns.felk.cvut.cz 1002823268 18868 62.24.77.236 (11 Oct 2001 18:01:08
 GMT)
X-Complaints-To: usenet@ns.felk.cvut.cz
NNTP-Posting-Date: Thu, 11 Oct 2001 18:01:08 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Xref: archiver1.google.com comp.lang.ada:14307
Date: 2001-10-11T19:59:09+02:00
List-Id: <comp.lang.ada>


"Peter Hend�n" <phenden@tdab.com> wrote in message
news:%lfx7.6$_o6.503@newsc.telia.net...
> <snip>
> When I try to declare it StdCall instead of C, I am
> not able to link it. Whatever I put in the .DEF file
> it comes out wrong. I get from the last gnatlink step
> in gnatdll:
>
> mydll.exp(.edata+0x34):fake: undefined reference to `Foobar'

Have you tried specifying the link name in the pragma? Something like this:
  pragma Export (Stdcall, Foobar, "Foobar", Link_Name => "Foobar");
may work (not tested).

> <snip>
> --
> Peter Hend�n           http://www.algonet.se/~phenden
> ICQ: 14672398
> Teknisk Dokumentation AB          http://www.tdab.com

Sergey Koshcheyev.