[G32-commits] SF.net SVN: graphics32:[1510] trunk/Source

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

Revision: 1510
          http://graphics32.svn.sourceforge.net/graphics32/?rev=1510&view=rev
Author:   CWBudde
Date:     2012-03-24 20:30:12 +0000 (Sat, 24 Mar 2012)
Log Message:
-----------
* fixed issue with rotations and x64 assembler optimizations

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

Modified: trunk/Source/GR32.pas
===================================================================
--- trunk/Source/GR32.pas	2012-03-24 20:29:04 UTC (rev 1509)
+++ trunk/Source/GR32.pas	2012-03-24 20:30:12 UTC (rev 1510)
@@ -2859,7 +2859,7 @@
           SAR     Y, 8
           CALL    TCustomBitmap32.GET_TS256
           MOV     Result, EAX
-{$IFDEF TARGET_x86}
+{$IFNDEF OMIT_MMX}
           CMP     MMX_ACTIVE.Integer, $00
           JZ      @Exit
           DB      $0F, $77               /// EMMS

Modified: trunk/Source/GR32_Math.pas
===================================================================
--- trunk/Source/GR32_Math.pas	2012-03-24 20:29:04 UTC (rev 1509)
+++ trunk/Source/GR32_Math.pas	2012-03-24 20:30:12 UTC (rev 1510)
@@ -156,9 +156,9 @@
 {$ELSE}
 asm
 {$IFDEF TARGET_x64}
-        MOV     RAX, RCX
-        IMUL    RDX
-        SHRD    RAX, RDX, 16
+        MOV     EAX, ECX
+        IMUL    EDX
+        SHRD    EAX, EDX, 16
 {$ENDIF}
 {$IFDEF TARGET_x86}
         IMUL    EDX
@@ -167,6 +167,9 @@
 {$ENDIF}
 end;
 
+{$DEFINE PUREPASCAL}
+{$UNDEF PUREPASCAL}
+
 function FixedDiv(A, B: TFixed): TFixed;
 {$IFDEF PUREPASCAL}
 begin

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