about fsincos

[Jerry van Dijk <jvandyk@attglobal.net>]

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