|
From: <CW...@us...> - 2012-03-29 23:31:48
|
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.
|