[G32-commits] SF.net SVN: graphics32:[1531] trunk/Source/GR32_Math.pas

[<CW...@us...>]

Revision: 1531
          http://graphics32.svn.sourceforge.net/graphics32/?rev=1531&view=rev
Author:   CWBudde
Date:     2012-03-29 23:31:41 +0000 (Thu, 29 Mar 2012)
Log Message:
-----------
* fixed non-compiling issue introduced with the last commit and the Delphi compiler

Modified Paths:
--------------
    trunk/Source/GR32_Math.pas

Modified: trunk/Source/GR32_Math.pas
===================================================================
--- trunk/Source/GR32_Math.pas	2012-03-29 21:18:44 UTC (rev 1530)
+++ trunk/Source/GR32_Math.pas	2012-03-29 23:31:41 UTC (rev 1531)
@@ -545,9 +545,9 @@
 function FastSqrtBab2(const Value: TFloat): TFloat;
 // see http://en.wikipedia.org/wiki/Methods_of_computing_square_roots#Approximations_that_depend_on_IEEE_representation
 // additionally two babylonian steps added
+{$IFDEF PUREPASCAL}
 const
   CQuarter : TFloat = 0.25;
-{$IFDEF PUREPASCAL}
 var
   J: Integer absolute Result;
 begin
@@ -556,6 +556,8 @@
  Result := Result + Value / Result;
  Result := CQuarter * Result + Value / Result;
 {$ELSE}
+const
+  CHalf : TFloat = 0.5;
 asm
         MOV     EAX, Value
         SUB     EAX, $3F800000

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.