paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-21 10:31:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

- Removed redundant functions "power", they were neither used nor accessible through interface. The actual function "power" is located in Math unit.

Browse Source 
git-svn-id: trunk@27499 -
This commit is contained in:
sergei 2014-04-07 09:04:13 +00:00
parent 4a969eef33
commit 2981f73aaa
2 changed files with 0 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/i386/math.inc
View File

@ -246,30 +246,4 @@
end; end;
{$define FPC_SYSTEM_HAS_POWER}
function power(bas,expo : ValReal) : ValReal;
begin
if bas=0 then
begin
if expo<>0 then
power:=0.0
else
HandleError(207);
end
else if expo=0 then
power:=1
else
{ bas < 0 is not allowed when doing roots }
if (bas<0) and (frac(expo) <> 0) then
handleerror(207)
else
begin
power:=exp(ln(abs(bas))*expo);
if (bas < 0) and
odd(trunc(expo)) then
begin
power := -power;
end;
end;
end;

23
rtl/x86_64/math.inc
View File

@ -252,29 +252,6 @@ const
end; end;
{$endif FPC_SYSTEM_HAS_ROUND} {$endif FPC_SYSTEM_HAS_ROUND}
{$ifndef FPC_SYSTEM_HAS_POWER}
{$define FPC_SYSTEM_HAS_POWER}
function power(bas,expo : extended) : extended;
begin
if bas=0 then
begin
if expo<>0 then
power:=0.0
else
HandleError(207);
end
else 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;
{$endif FPC_SYSTEM_HAS_POWER}
{$else FPC_HAS_TYPE_EXTENDED} {$else FPC_HAS_TYPE_EXTENDED}
{$define FPC_SYSTEM_HAS_TRUNC} {$define FPC_SYSTEM_HAS_TRUNC}