From 996ca5ae00c255d2c4456fbbfbc857b1ec828bbd Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 6 Oct 2013 11:36:32 +0000
Subject: [PATCH] - rm the first call to int 10, ax=4f04, dl=0 from
 SaveStateVESA, since this function is   called again immediately after the
 inline asm block via RealIntr and the exact same   operations are performed
 once again in Pascal (probably someone translated the inline   asm block to
 pascal, but forgot to remove it).

git-svn-id: trunk@25681 -
---
 packages/graph/src/go32v2/vesa.inc | 29 ++---------------------------
 1 file changed, 2 insertions(+), 27 deletions(-)

diff --git a/packages/graph/src/go32v2/vesa.inc b/packages/graph/src/go32v2/vesa.inc
index 116a93619b..b2919f65ed 100644
--- a/packages/graph/src/go32v2/vesa.inc
+++ b/packages/graph/src/go32v2/vesa.inc
@@ -2615,34 +2615,9 @@ Const
         LogLn('Prepare to save VESA video state');
 {$endif logging}
     { Prepare to save video state...}
-    asm
-      mov  ax, 4F04h       { get buffer size to save state }
-      mov  dx, 00h
-      mov  cx, 00001111b   { Save DAC / Data areas / Hardware states }
-{$ifdef fpc}
-      push ebx
-      push ebp
-      push esi
-      push edi
-{$endif fpc}
-      int  10h
-{$ifdef fpc}
-      pop edi
-      pop esi
-      pop ebp
-{$endif fpc}
-      mov  [StateSize], bx
-{$ifdef fpc}
-      pop ebx
-{$endif fpc}
-      cmp  al,04fh
-      jnz  @notok
-      mov  [SaveSupported],TRUE
-     @notok:
-    end ['EDX','ECX','EAX'];
-    regs.eax := $4f04;
+    regs.eax := $4F04;     { get buffer size to save state }
     regs.edx := $0000;
-    regs.ecx := $000F;
+    regs.ecx := $000F;     { Save DAC / Data areas / Hardware states }
     RealIntr($10, regs);
     StateSize := word(regs.ebx);
     if byte(regs.eax) = $4f then