paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix power() for negative base

Browse Source
This commit is contained in:
Jonas Maebe 2003-11-29 16:40:12 +00:00
parent d5373d5971
commit 89d4ca293b
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/i386/math.inc
View File

@ -195,12 +195,22 @@
if (bas<0) and (frac(expo) <> 0) then
handleerror(207)
else
power:=exp(ln(bas)*expo);
begin
power:=exp(ln(abs(bas))*expo);
if (bas < 0) and
odd(trunc(expo)) then
begin
power := -power;
end;
end;
end;
{
$Log$
Revision 1.17 2003-11-24 21:57:43 michael
Revision 1.18 2003-11-29 16:40:12 jonas
* fix power() for negative base
Revision 1.17 2003/11/24 21:57:43 michael
+ Patch from Johannes Berg for bug 2759
Revision 1.16 2003/11/11 21:08:17 peter