From: Rainer Orth <ro@TechFak.Uni-Bielefeld.DE>
Date: Mon, 8 Nov 2004 14:03:44 +0000 (+0000)
Subject: * a-numaux-x86.adb (Tan): Fix fdivp syntax.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0506cb1c00ee3f1f1ab2aa88d3cb207a54746230;p=gcc.git

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

From-SVN: r90263
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 960ef776a93..2612f478718 100644
--- 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 47231a89444..b6db99d0969 100644
--- 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));