* a-numaux-x86.adb (Tan): Fix fdivp syntax.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@90263 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 960ef77..2612f47 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2004-11-08  Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
+
+       * a-numaux-x86.adb (Tan): Fix fdivp syntax.
+
 2004-11-07  Andreas Schwab  <schwab@suse.de>
 
        * Makefile.in (install-gnatlib): Remove spurious hyphen.

diff --git a/gcc/ada/a-numaux-x86.adb b/gcc/ada/a-numaux-x86.adb
index 47231a8..b6db99d 100644 (file)
--- a/gcc/ada/a-numaux-x86.adb
+++ b/gcc/ada/a-numaux-x86.adb
@@ -500,7 +500,7 @@ package body Ada.Numerics.Aux is
                   Inputs   => Double'Asm_Input  ("0", Reduced_X));
          else
             Asm (Template  => "fsincos" & NL
-                            & "fdivp   %%st(1)" & NL
+                            & "fdivp   %%st, %%st(1)" & NL
                             & "fchs",
                   Outputs  => Double'Asm_Output ("=t", Result),
                   Inputs   => Double'Asm_Input  ("0", Reduced_X));