From eeaa790a14dccdbc33f9e1c751ec25b964f17f6e Mon Sep 17 00:00:00 2001
From: marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Mon, 12 Jul 2010 08:43:22 +0000
Subject:  * YOffset-pageswitch moved later into directputpix procedure, since
 an     intermediate read might otherwise fail (yoffset is a global) mantis
 #16911

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15556 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/graph/src/go32v2/vesa.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/graph/src/go32v2/vesa.inc b/packages/graph/src/go32v2/vesa.inc
index 41b65d5f1a..0d93c6eeb7 100644
--- a/packages/graph/src/go32v2/vesa.inc
+++ b/packages/graph/src/go32v2/vesa.inc
@@ -1540,7 +1540,6 @@ end;
      dummy : byte;
      Color : word;
   begin
-    y:= Y + YOffset;
     case CurrentWriteMode of
       XORPut:
         begin
@@ -1567,6 +1566,7 @@ end;
       else
         Color := CurrentColor;
     end;
+     Y := Y + YOffset;
      offs := longint(y) * BytesPerLine + (x div 8);
      SetWriteBank(smallint(offs shr 16));
      PortW[$3ce] := $0f01;       { Index 01 : Enable ops on all 4 planes }
-- 
cgit v1.2.1