Skip to content

R
riscv-gcc-1
Commit 0506cb1c by Rainer Orth Committed by Rainer Orth
Options

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

From-SVN: r90263
parent bb29d951
Showing with 5 additions and 1 deletions
gcc/ada/ChangeLog
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> 2004-11-07 Andreas Schwab <schwab@suse.de>
* Makefile.in (install-gnatlib): Remove spurious hyphen. * Makefile.in (install-gnatlib): Remove spurious hyphen.
......
gcc/ada/a-numaux-x86.adb
...@@ -500,7 +500,7 @@ package body Ada.Numerics.Aux is ...@@ -500,7 +500,7 @@ package body Ada.Numerics.Aux is
Inputs => Double'Asm_Input ("0", Reduced_X)); Inputs => Double'Asm_Input ("0", Reduced_X));
else else
Asm (Template => "fsincos" & NL Asm (Template => "fsincos" & NL
& "fdivp %%st(1)" & NL & "fdivp %%st, %%st(1)" & NL
& "fchs", & "fchs",
Outputs => Double'Asm_Output ("=t", Result), Outputs => Double'Asm_Output ("=t", Result),
Inputs => Double'Asm_Input ("0", Reduced_X)); Inputs => Double'Asm_Input ("0", Reduced_X));
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment