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-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,4fa8e65e2ae56c1,start X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2003-07-10 16:22:54 PST Sender: jerry@localhost Newsgroups: comp.lang.ada Subject: about fsincos From: Jerry van Dijk Date: 11 Jul 2003 01:18:33 +0200 Message-ID: User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.93 MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii NNTP-Posting-Host: slip32-106-5-67.rot.nl.prserv.net X-Trace: 10 Jul 2003 23:21:15 GMT, slip32-106-5-67.rot.nl.prserv.net Organization: Global Network Services - Remote Access Mail & News Services X-Complaints-To: abuse@prserv.net Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!newsfeed.us.prserv.net!prserv.net!news3.prserv.net!slip32-106-5-67.rot.nl.prserv.net Xref: archiver1.google.com comp.lang.ada:40180 Date: 2003-07-11T01:18:33+02:00 List-Id: Sorry, the original article already scrolled off my system. Although there are very good reasons not to, if you are really need it, why not define your own, something like (could probably be improved, it's been a while...): procedure Sin_Cos (Angle : Float; Sin : out Float; Cos : out Float); pragma Inline (Sin_Cos); procedure Sin_Cos (Angle : Float; Sin : out Float; Cos : out Float) is use ASCII; begin Sin := 0.0; Cos := 0.0; Asm (("fsincos" & LF & HT & "fstp %0" & LF & HT & "fst %1"), Outputs => (Float'Asm_Output ("=m", Cos), (Float'Asm_Output ("=m", Sin))), Inputs => (Float'Asm_Input ("t", Angle))); end Sin_Cos; and write modified numerics functions to take advantage of it ? -- -- Jerry van Dijk | email: jvandyk@attglobal.net -- Leiden, Holland | web: users.ncrvnet.nl/gmvdijk