paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 22:49:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* improve math.power as suggested by Paolo Valle, resolves #40461

Browse Source
This commit is contained in:
florian 2023-10-15 23:14:08 +02:00
parent 2854f08daa
commit 4794e5ffcf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/math.pp
View File

@ -1714,7 +1714,7 @@ function power(base,exponent : float) : float;
result:=1.0
else if (base=0.0) and (exponent>0.0) then
result:=0.0
else if (abs(exponent)<=maxint) and (frac(exponent)=0.0) then
else if (frac(exponent)=0.0) and (abs(exponent)<=maxint) then
result:=intpower(base,trunc(exponent))
else
result:=exp(exponent * ln (base));