From 2981f73aaa0e7c8ebdfa05a8985d5fe262cc299c Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Mon, 7 Apr 2014 09:04:13 +0000
Subject: [PATCH] - Removed redundant functions "power", they were neither used
 nor accessible through interface. The actual function "power" is located in
 Math unit.

git-svn-id: trunk@27499 -
---
 rtl/i386/math.inc   | 26 --------------------------
 rtl/x86_64/math.inc | 23 -----------------------
 2 files changed, 49 deletions(-)

diff --git a/rtl/i386/math.inc b/rtl/i386/math.inc
index 4b7fa4d3bc..bad60e7f73 100644
--- a/rtl/i386/math.inc
+++ b/rtl/i386/math.inc
@@ -246,30 +246,4 @@
       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;
 
diff --git a/rtl/x86_64/math.inc b/rtl/x86_64/math.inc
index 1e7b1967fd..13a796f306 100644
--- a/rtl/x86_64/math.inc
+++ b/rtl/x86_64/math.inc
@@ -252,29 +252,6 @@ const
       end;
     {$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}
 
     {$define FPC_SYSTEM_HAS_TRUNC}