+ enabled PatternLineVESA256 in the graph unit for i8086-msdos as it now

  compiles and works correctly.

git-svn-id: trunk@26092 -

packages/graph/src/msdos/graph.pp

@@ -3209,7 +3209,7 @@ const CrtAddress: word = 0;
       mode.hline := {$ifdef fpc}@{$endif}HLineVESA256;
       mode.vline := {$ifdef fpc}@{$endif}VLineVESA256;
       mode.GetScanLine := {$ifdef fpc}@{$endif}GetScanLineVESA256;
-//      mode.PatternLine := {$ifdef fpc}@{$endif}PatternLineVESA256;
+      mode.PatternLine := {$ifdef fpc}@{$endif}PatternLineVESA256;
     end;
 
     procedure FillCommonVESA32kOr64k(var mode: TModeInfo);

packages/graph/src/msdos/vesa.inc

@@ -854,8 +854,7 @@ end;
        end;
    end;
 
-// disabled, causes an internal error on the i8086, TODO: fix
-(*  procedure PatternLineVESA256(x1,x2,y: smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure PatternLineVESA256(x1,x2,y: smallint); {$ifndef fpc}far;{$endif fpc}
   {********************************************************}
   { Draws a horizontal patterned line according to the     }
   { current Fill Settings.                                 }
@@ -983,8 +982,6 @@ end;
      Until amount = 0;
      currentWriteMode := oldWriteMode;
    end;
-*)
-
 
 
  {************************************************************************}