Browse Source

* fixed result of GetPixel320 when FPC_GRAPH_SUPPORTS_TRUECOLOR is defined

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

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

@@ -2408,6 +2408,9 @@ End;
 //      add    di, [VideoOfs]   { point to correct gfx page ... }
       mov    al,es:[di]
       mov    word ptr @Result,ax
+{$ifdef FPC_GRAPH_SUPPORTS_TRUECOLOR}
+      mov    word ptr @Result+2, 0
+{$endif FPC_GRAPH_SUPPORTS_TRUECOLOR}
     end ['ax','di'];
   end;