* a-numaux-x86.adb (Tan): Fix fdivp syntax.
authorRainer Orth <ro@TechFak.Uni-Bielefeld.DE>
Mon, 8 Nov 2004 14:03:44 +0000 (14:03 +0000)
committerRainer Orth <ro@gcc.gnu.org>
Mon, 8 Nov 2004 14:03:44 +0000 (14:03 +0000)
From-SVN: r90263

gcc/ada/ChangeLog
gcc/ada/a-numaux-x86.adb

index 960ef776a9350a6353f69dd03e7e113bb20d559f..2612f478718086ea8f7980efc4ae3c093af3a147 100644 (file)
@@ -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.
index 47231a89444f1c7b8cb91e25303785667e46cab0..b6db99d09692adb66dd18020dfcbbc3c7c645b3d 100644 (file)
@@ -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));