From 57ffb6fb07f2476d433af780d26bccf841141263 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 23 Jan 2019 15:24:32 +0000
Subject: [PATCH] * FPC_GRAPH_SUPPORTS_TRUECOLOR support in the asm GetPixelX

git-svn-id: trunk@41020 -
---
 packages/graph/src/msdos/graph.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/packages/graph/src/msdos/graph.pp b/packages/graph/src/msdos/graph.pp
index 2d040cd0e4..696e91542f 100644
--- a/packages/graph/src/msdos/graph.pp
+++ b/packages/graph/src/msdos/graph.pp
@@ -2523,6 +2523,10 @@ const CrtAddress: word = 0;
     (* End selection of plane *)
     mov al, ES:[DI]
     xor ah, ah
+{$ifdef FPC_GRAPH_SUPPORTS_TRUECOLOR}
+    { 1 byte shorter than 'xor dx, dx'; will always set dx to 0, because sign(ah)=0 }
+    cwd
+{$endif FPC_GRAPH_SUPPORTS_TRUECOLOR}
   end;
 {$endif asmgraph}