From ede5956d705d3a5c213870e8e0aebb0468f4b0c2 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 8 Oct 2009 13:38:22 +0200
Subject: Replace ASM with Object Pascal. It was not 64bit friendly.

---
 src/DataTypes.pas | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/src/DataTypes.pas b/src/DataTypes.pas
index 5ac9e8aa..d5d97503 100644
--- a/src/DataTypes.pas
+++ b/src/DataTypes.pas
@@ -47,15 +47,24 @@ Implementation
 procedure FillInt32Array( pArray: Int32ArrayPointer;
                           Size: longint;
                           Value: Int32 );
+var
+  i: integer;
 begin
   assert( Size > 0 );
-  Asm
-    Mov EAX, Value
-    Mov EDI, pArray
-    Mov ECX, Size
-    CLD        // direction = up
-    REP STOSD   // store double word, until ECX = 0
-  End;
+  if Size < 1 then
+    Exit;
+  for i := 0 to Size-1 do
+  begin
+    pArray^[i] := Value;
+  end;
+
+  //Asm
+  //  Mov EAX, Value
+  //  Mov EDI, pArray
+  //  Mov ECX, Size
+  //  CLD        // direction = up
+  //  REP STOSD   // store double word, until ECX = 0
+  //End;
 end;
 
 Initialization
-- 
cgit v1.2.3-70-g09d2