From cab9b4cb6b60439305ce1dcc2578056271441bfd Mon Sep 17 00:00:00 2001 From: nickysn Date: Mon, 21 Jan 2019 15:16:16 +0000 Subject: [PATCH] * fixed return of result in the asm version of GetPixel320 git-svn-id: trunk@40966 - --- packages/graph/src/msdos/graph.pp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/packages/graph/src/msdos/graph.pp b/packages/graph/src/msdos/graph.pp index f531fa8bd4..df503166df 100644 --- a/packages/graph/src/msdos/graph.pp +++ b/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}