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=ham autolearn_force=no version=3.4.4 X-Google-Thread: 103376,ef2e6181b4b6365e X-Google-Attributes: gid103376,public X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news1.google.com!proxad.net!freenix!news.wanadoo.fr!news.wanadoo.fr!not-for-mail Sender: obry@PASCAL Newsgroups: comp.lang.ada Subject: Re: Passing float values to C References: <1108227523.424858.160530@z14g2000cwz.googlegroups.com> <676dnaxFQuzk2JPfRVn-1Q@comcast.com> From: Pascal Obry Date: 12 Feb 2005 19:08:28 +0100 Message-ID: Organization: Home - http://www.obry.net User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii NNTP-Posting-Host: 82.120.23.192 X-Trace: 1108231709 news.wanadoo.fr 6600 82.120.23.192:2239 X-Complaints-To: abuse@wanadoo.fr Xref: g2news1.google.com comp.lang.ada:8290 Date: 2005-02-12T19:08:28+01:00 List-Id: tmoran@acm.org writes: > > procedure cprintfs(Variable : Interfaces.C.Strings.chars_ptr; val > > : Interfaces.C.short ); > > pragma Import(C, cprintfs, "cprintfs"); > That says you are passing a short float, val. No, Interfaces.C.short is a short *int*. Pascal. -- --|------------------------------------------------------ --| Pascal Obry Team-Ada Member --| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE --|------------------------------------------------------ --| http://www.obry.org --| "The best way to travel is by means of imagination" --| --| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595