Browse Source

* fixed return of result in the asm version of GetPixel320

git-svn-id: trunk@40966 -
nickysn 6 years ago
parent
commit
cab9b4cb6b
1 changed files with 3 additions and 4 deletions
  1. 3 4
      packages/graph/src/msdos/graph.pp

+ 3 - 4
packages/graph/src/msdos/graph.pp

@@ -2300,11 +2300,10 @@ End;
     shr    ax, 1
     shr    ax, 1
     add    di, ax
-    xor    ax, ax
-    mov    al,es:[di]
-    mov    word ptr @Result,ax
+    mov    al, es:[di]
+    xor    ah, ah
 {$ifdef FPC_GRAPH_SUPPORTS_TRUECOLOR}
-    mov    word ptr @Result+2, 0
+    xor    dx, dx
 {$endif FPC_GRAPH_SUPPORTS_TRUECOLOR}
   end;
 {$endif asmgraph}