فهرست منبع

* set _graphresult to grnotdetected if the vesa setmode interrupt
call returns an error (merged from fixes branch)

Jonas Maebe 25 سال پیش
والد
کامیت
167eb0e268
1فایلهای تغییر یافته به همراه10 افزوده شده و 6 حذف شده
  1. 10 6
      rtl/go32v2/vesa.inc

+ 10 - 6
rtl/go32v2/vesa.inc

@@ -2120,6 +2120,7 @@ Const
 
   function setVESAMode(mode:word):boolean;
     var i:word;
+        res: boolean;
   begin
    { Init mode information, for compatibility with VBE < 1.1 }
    FillChar(VESAModeInfo, sizeof(TVESAModeInfo), #0);
@@ -2189,10 +2190,11 @@ Const
     sub ax,004Fh
     cmp ax,1
     sbb al,al
-{$ifndef ver0_99_12}
-    mov @RESULT,al
-{$endif ver0_99_12}
+    mov res,al
    end;
+   if not res then
+     _GraphResult := GrNotDetected
+   else _GraphResult := grOk;
   end;
  end;
 
@@ -2403,7 +2405,6 @@ Const
 {$endif fpc}
       mov  [VideoMode], al
     end;
-(*
 {$ifdef logging}
         LogLn('Prepare to save VESA video state');
 {$endif logging}
@@ -2473,7 +2474,6 @@ Const
         regs.ebx := 0;
         RealIntr($10,regs);
       end;
-*)
   end;
 
  procedure RestoreStateVESA; {$ifndef fpc}far;{$endif fpc}
@@ -2647,7 +2647,11 @@ Const
 
 {
   $Log$
-  Revision 1.3  2000-07-16 07:08:22  jonas
+  Revision 1.4  2000-08-01 06:03:13  jonas
+    * set _graphresult to grnotdetected if the vesa setmode interrupt
+      call returns an error (merged from fixes branch)
+
+  Revision 1.3  2000/07/16 07:08:22  jonas
     * fixed wrongly matched comment pair for log section
 
   Revision 1.2  2000/07/13 11:33:41  michael