- Removed fpc_pi_real compilerproc, it is no longer used. At least two releases (2.6.2 and 2.6.4) emit Pi directly as a constant.

git-svn-id: trunk@27500 -

rtl/i386/math.inc

@@ -60,13 +60,6 @@
                        EXTENDED data type routines
  ****************************************************************************}
 
-    {$define FPC_SYSTEM_HAS_PI}
-    function fpc_pi_real : ValReal;compilerproc;
-    begin
-      { Function is handled internal in the compiler }
-      runerror(207);
-      result:=0;
-    end;
     {$define FPC_SYSTEM_HAS_ABS}
     function fpc_abs_real(d : ValReal) : ValReal;compilerproc;
     begin

rtl/i8086/math.inc

@@ -43,13 +43,6 @@
                        EXTENDED data type routines
  ****************************************************************************}
 
-    {$define FPC_SYSTEM_HAS_PI}
-    function fpc_pi_real : ValReal;compilerproc;
-    begin
-      { Function is handled internal in the compiler }
-      runerror(207);
-      result:=0;
-    end;
     {$define FPC_SYSTEM_HAS_ABS}
     function fpc_abs_real(d : ValReal) : ValReal;compilerproc;
     begin

rtl/inc/compproc.inc

@@ -602,7 +602,6 @@ function fpc_exp_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inl
 function fpc_frac_real(d : ValReal) : ValReal;compilerproc;
 function fpc_int_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
 function fpc_ln_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
-function fpc_pi_real : ValReal;compilerproc;
 function fpc_sin_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
 function fpc_sqr_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
 function fpc_sqrt_real(d : ValReal) : ValReal;compilerproc;

rtl/inc/genmath.inc

@@ -951,12 +951,6 @@ type
     end;
 {$endif}
 
-{$ifndef FPC_SYSTEM_HAS_PI}
-    function fpc_pi_real : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
-    begin
-      result := 3.1415926535897932385;
-    end;
-{$endif}
 
 
 {$ifndef FPC_SYSTEM_HAS_SQRT}

rtl/java/jcompproc.inc

@@ -458,7 +458,6 @@ function fpc_exp_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inl
 function fpc_frac_real(d : ValReal) : ValReal;compilerproc;
 function fpc_int_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
 function fpc_ln_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
-function fpc_pi_real : ValReal;compilerproc;
 function fpc_sin_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
 function fpc_sqr_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
 function fpc_sqrt_real(d : ValReal) : ValReal;compilerproc;

rtl/powerpc/math.inc

@@ -25,14 +25,6 @@ const
                        EXTENDED data type routines
  ****************************************************************************}
 
-    {$define FPC_SYSTEM_HAS_PI}
-    function fpc_pi_real : valreal;compilerproc;
-    begin
-      { Function is handled internal in the compiler }
-      runerror(207);
-      result:=0;
-    end;
-
     {$define FPC_SYSTEM_HAS_ABS}
     function fpc_abs_real(d : valreal) : valreal;compilerproc;
     begin

rtl/powerpc64/math.inc

@@ -18,14 +18,6 @@
                        EXTENDED data type routines
  ****************************************************************************}
 
-{$define FPC_SYSTEM_HAS_PI}
-function fpc_pi_real : valreal;compilerproc;
-begin
-  { Function is handled internal in the compiler }
-  runerror(207);
-  result:=0;
-end;
-
 {$define FPC_SYSTEM_HAS_ABS}
 function fpc_abs_real(d : valreal) : valreal;compilerproc;
 begin

rtl/x86_64/math.inc

@@ -66,15 +66,6 @@ const
                        EXTENDED data type routines
  ****************************************************************************}
 
-    {$ifndef FPC_SYSTEM_HAS_PI}
-    {$define FPC_SYSTEM_HAS_PI}
-    function fpc_pi_real : ValReal;compilerproc;
-    begin
-      { Function is handled internal in the compiler }
-      runerror(207);
-      result:=0;
-    end;
-    {$endif FPC_SYSTEM_HAS_PI}
     {$ifndef FPC_SYSTEM_HAS_ABS}
     {$define FPC_SYSTEM_HAS_ABS}
     function fpc_abs_real(d : ValReal) : ValReal;compilerproc;