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,FREEMAIL_FROM autolearn=ham autolearn_force=no version=3.4.4 X-Google-Thread: 103376,1fb2c23b98beed60 X-Google-Attributes: gid103376,public,usenet X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news4.google.com!out03a.usenetserver.com!news.usenetserver.com!in01.usenetserver.com!news.usenetserver.com!news.tele.dk!news.tele.dk!small.news.tele.dk!lnewsinpeer00.lnd.ops.eu.uu.net!emea.uu.net!peer-uk.news.demon.net!kibo.news.demon.net!mutlu.news.demon.net!news.demon.co.uk!demon!not-for-mail From: Simon Wright Newsgroups: comp.lang.ada Subject: Re: Access to data indirection (newbie) Date: Tue, 27 Nov 2007 22:20:12 +0000 Organization: Pushface Message-ID: References: <1a812241-65fc-403a-927f-b2651b4107e3@s8g2000prg.googlegroups.com> <474bd14a$1@news.post.ch> NNTP-Posting-Host: pogner.demon.co.uk Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: news.demon.co.uk 1196202019 22592 62.49.19.209 (27 Nov 2007 22:20:19 GMT) X-Complaints-To: abuse@demon.net NNTP-Posting-Date: Tue, 27 Nov 2007 22:20:19 +0000 (UTC) Cancel-Lock: sha1:8gKo5uYUCrwwJ4XFyTus3muI1Kw= User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1 (darwin) Xref: g2news1.google.com comp.lang.ada:18652 Date: 2007-11-27T22:20:12+00:00 List-Id: Martin Krischik writes: > function HandlePointer ( > Left : in Var) > return Win32.LONG is > begin > > end HandlePointer; > > pragma Export (C, HandlePointer); > > > The later might surprise you bout since the functions is declared > "export c" "in Var" is passed as a pointer. Not sure that's necessarily true! LRM95 B.3(68.1/1 & 69/1) mention C_Pass_By_Copy-compatible -- probably safer to use (68) & declare it as 'access Var' (which seems less surprising to me, the reader will just think "oh, I see" and pass on, whereas the use of 'in Var' would mean dashing off to the manual every time ...)