- 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

@@ -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;
 

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}