Преглед на файлове

* fixed return of result in the asm version of GetPixel320

git-svn-id: trunk@40966 -
nickysn преди 6 години
родител
ревизия
cab9b4cb6b
променени са 1 файла, в които са добавени 3 реда и са изтрити 4 реда
  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}