paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed power(int,int) with negative base

Browse Source 
* power(ext,ext) with negative base gives rte 207
This commit is contained in:
peter 1999-10-06 17:44:43 +00:00
parent 5993e45779
commit 11a2d8977e
1 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/i386/math.inc
View File

@ -217,7 +217,14 @@
function power(bas,expo : extended) : extended; function power(bas,expo : extended) : extended;
begin begin
power:=exp(ln(bas)*expo); if expo=0 then
power:=1
else
{ bas < 0 is not allowed }
if bas<0 then
handleerror(207)
else
power:=exp(ln(bas)*expo);
end; end;
@ -227,7 +234,20 @@
function power(bas,expo : longint) : longint; function power(bas,expo : longint) : longint;
begin begin
power:=round(exp(ln(bas)*expo)); if expo=0 then
power:=1
else
begin
if bas<0 then
begin
if odd(expo) then
power:=-round(exp(ln(-bas)*expo))
else
power:=round(exp(ln(-bas)*expo));
end
else
power:=round(exp(ln(bas)*expo));
end;
end; end;
@ -350,7 +370,11 @@
{ {
$Log$ $Log$
Revision 1.16 1999-09-15 20:24:11 florian Revision 1.17 1999-10-06 17:44:43 peter
* fixed power(int,int) with negative base
* power(ext,ext) with negative base gives rte 207
Revision 1.16 1999/09/15 20:24:11 florian
* some math functions are now coded inline by the compiler * some math functions are now coded inline by the compiler
Revision 1.15 1999/07/06 15:35:59 peter Revision 1.15 1999/07/06 15:35:59 peter