From: Jerry van Dijk <jvandyk@attglobal.net>
Subject: Re: about fsincos
Date: 11 Jul 2003 01:22:10 +0200
Date: 2003-07-11T01:22:10+02:00 [thread overview]
Message-ID: <m2ptki3r31.fsf@attglobal.net> (raw)
In-Reply-To: m2y8z63r92.fsf@attglobal.net
Jerry van Dijk <jvandyk@attglobal.net> writes:
Oops, that shoud of course be:
procedure Sin_Cos (Angle : Float; Sin : out Float; Cos : out Float) is
use ASCII;
begin
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;
--
-- Jerry van Dijk | email: jvandyk@attglobal.net
-- Leiden, Holland | web: users.ncrvnet.nl/gmvdijk
prev parent reply other threads:[~2003-07-10 23:22 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-07-10 23:18 about fsincos Jerry van Dijk
2003-07-10 23:22 ` Jerry van Dijk [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox