- removed all the '{$ifndef fpc}far;{$endif fpc}' declarations from the i8086-msdos graph unit

git-svn-id: trunk@40891 -

packages/graph/src/msdos/graph.pp

@@ -219,16 +219,16 @@ begin
 end;
 
 procedure SetHGCRGBPalette(ColorNum, RedValue, GreenValue,
-      BlueValue : smallint); {$ifndef fpc}far;{$endif fpc}
+      BlueValue : smallint);
 begin
 end;
 
 procedure GetHGCRGBPalette(ColorNum: smallint; Var
-      RedValue, GreenValue, BlueValue : smallint); {$ifndef fpc}far;{$endif fpc}
+      RedValue, GreenValue, BlueValue : smallint);
 begin
 end;
 
-procedure PutPixelHGC720(X, Y: SmallInt; Pixel: Word); {$ifndef fpc}far;{$endif fpc}
+procedure PutPixelHGC720(X, Y: SmallInt; Pixel: Word);
 var
   Offset: Word;
   B, Mask, Shift: Byte;
@@ -256,7 +256,7 @@ begin
   Mem[SegB000:Offset] := B;
 end;
 
-function GetPixelHGC720(X, Y: SmallInt): Word; {$ifndef fpc}far;{$endif fpc}
+function GetPixelHGC720(X, Y: SmallInt): Word;
 var
   Offset: Word;
   B, Shift: Byte;
@@ -274,7 +274,7 @@ begin
   GetPixelHGC720 := (B shr Shift) and 1;
 end;
 
-procedure DirectPutPixelHGC720(X, Y: SmallInt); {$ifndef fpc}far;{$endif fpc}
+procedure DirectPutPixelHGC720(X, Y: SmallInt);
  { x,y -> must be in global coordinates. No clipping. }
 var
   Offset: Word;
@@ -327,7 +327,7 @@ begin
   end;
 end;
 
-procedure HLineHGC720(X, X2, Y: SmallInt); {$ifndef fpc}far;{$endif fpc}
+procedure HLineHGC720(X, X2, Y: SmallInt);
 var
   Color: Word;
   YOffset, LOffset, ROffset, CurrentOffset, MiddleAreaLength: Word;
@@ -521,7 +521,7 @@ begin
   end;
 end;
 
-procedure SetVisualHGC720(page: word); {$ifndef fpc}far;{$endif fpc}
+procedure SetVisualHGC720(page: word);
 { two page supPort... }
 begin
   if page > HardwarePages then exit;
@@ -532,7 +532,7 @@ begin
   end;
 end;
 
-procedure SetActiveHGC720(page: word); {$ifndef fpc}far;{$endif fpc}
+procedure SetActiveHGC720(page: word);
 { two page supPort... }
 begin
   case page of
@@ -632,7 +632,7 @@ begin
   CurrentCGABorder := 0;
 end;
 
-procedure PutPixelCGA320(X, Y: SmallInt; Pixel: Word); {$ifndef fpc}far;{$endif fpc}
+procedure PutPixelCGA320(X, Y: SmallInt; Pixel: Word);
 var
   Offset: Word;
   B, Mask, Shift: Byte;
@@ -657,7 +657,7 @@ begin
   Mem[SegB800:Offset] := B;
 end;
 
-function GetPixelCGA320(X, Y: SmallInt): Word; {$ifndef fpc}far;{$endif fpc}
+function GetPixelCGA320(X, Y: SmallInt): Word;
 var
   Offset: Word;
   B, Shift: Byte;
@@ -672,7 +672,7 @@ begin
   GetPixelCGA320 := (B shr Shift) and $03;
 end;
 
-procedure DirectPutPixelCGA320(X, Y: SmallInt); {$ifndef fpc}far;{$endif fpc}
+procedure DirectPutPixelCGA320(X, Y: SmallInt);
  { x,y -> must be in global coordinates. No clipping. }
 var
   Offset: Word;
@@ -722,7 +722,7 @@ begin
   end;
 end;
 
-procedure HLineCGA320(X, X2, Y: SmallInt); {$ifndef fpc}far;{$endif fpc}
+procedure HLineCGA320(X, X2, Y: SmallInt);
 var
   Color: Word;
   YOffset, LOffset, ROffset, CurrentOffset, MiddleAreaLength: Word;
@@ -942,7 +942,7 @@ begin
   GetBkColorCGA640 := CurrentCGABorder and 15;
 end;
 
-procedure PutPixelCGA640(X, Y: SmallInt; Pixel: Word); {$ifndef fpc}far;{$endif fpc}
+procedure PutPixelCGA640(X, Y: SmallInt; Pixel: Word);
 var
   Offset: Word;
   B, Mask, Shift: Byte;
@@ -967,7 +967,7 @@ begin
   Mem[SegB800:Offset] := B;
 end;
 
-function GetPixelCGA640(X, Y: SmallInt): Word; {$ifndef fpc}far;{$endif fpc}
+function GetPixelCGA640(X, Y: SmallInt): Word;
 var
   Offset: Word;
   B, Shift: Byte;
@@ -982,7 +982,7 @@ begin
   GetPixelCGA640 := (B shr Shift) and 1;
 end;
 
-procedure DirectPutPixelCGA640(X, Y: SmallInt); {$ifndef fpc}far;{$endif fpc}
+procedure DirectPutPixelCGA640(X, Y: SmallInt);
  { x,y -> must be in global coordinates. No clipping. }
 var
   Offset: Word;
@@ -1032,7 +1032,7 @@ begin
   end;
 end;
 
-procedure HLineCGA640(X, X2, Y: SmallInt); {$ifndef fpc}far;{$endif fpc}
+procedure HLineCGA640(X, X2, Y: SmallInt);
 var
   Color: Word;
   YOffset, LOffset, ROffset, CurrentOffset, MiddleAreaLength: Word;
@@ -1250,7 +1250,7 @@ begin
   GetBkColorMCGA640 := CurrentCGABorder and 15;
 end;
 
-procedure PutPixelMCGA640(X, Y: SmallInt; Pixel: Word); {$ifndef fpc}far;{$endif fpc}
+procedure PutPixelMCGA640(X, Y: SmallInt; Pixel: Word);
 var
   Offset: Word;
   B, Mask, Shift: Byte;
@@ -1273,7 +1273,7 @@ begin
   Mem[SegA000:Offset] := B;
 end;
 
-function GetPixelMCGA640(X, Y: SmallInt): Word; {$ifndef fpc}far;{$endif fpc}
+function GetPixelMCGA640(X, Y: SmallInt): Word;
 var
   Offset: Word;
   B, Shift: Byte;
@@ -1286,7 +1286,7 @@ begin
   GetPixelMCGA640 := (B shr Shift) and 1;
 end;
 
-procedure DirectPutPixelMCGA640(X, Y: SmallInt); {$ifndef fpc}far;{$endif fpc}
+procedure DirectPutPixelMCGA640(X, Y: SmallInt);
  { x,y -> must be in global coordinates. No clipping. }
 var
   Offset: Word;
@@ -1334,7 +1334,7 @@ begin
   end;
 end;
 
-procedure HLineMCGA640(X, X2, Y: SmallInt); {$ifndef fpc}far;{$endif fpc}
+procedure HLineMCGA640(X, X2, Y: SmallInt);
 var
   Color: Word;
   YOffset, LOffset, ROffset, CurrentOffset, MiddleAreaLength: Word;
@@ -1526,7 +1526,7 @@ end;
  {*                     4-bit planar VGA mode routines                   *}
  {************************************************************************}
 
-  Procedure Init640x200x16; {$ifndef fpc}far;{$endif fpc}
+  Procedure Init640x200x16;
     begin
       if DontClearGraphMemory then
         CallInt10($8e)
@@ -1536,7 +1536,7 @@ end;
     end;
 
 
-   Procedure Init640x350x16; {$ifndef fpc}far;{$endif fpc}
+   Procedure Init640x350x16;
     begin
       if DontClearGraphMemory then
         CallInt10($90)
@@ -1547,7 +1547,7 @@ end;
 
 
 
-  Procedure Init640x480x16; {$ifndef fpc}far;{$endif fpc}
+  Procedure Init640x480x16;
     begin
       if DontClearGraphMemory then
         CallInt10($92)
@@ -1559,7 +1559,7 @@ end;
 
 
 
- Procedure PutPixel16(X,Y : smallint; Pixel: Word); {$ifndef fpc}far;{$endif fpc}
+ Procedure PutPixel16(X,Y : smallint; Pixel: Word);
 {$ifndef asmgraph}
  var offset: word;
      dummy: byte;
@@ -1690,7 +1690,7 @@ end;
    end;
 
 
- Function GetPixel16(X,Y: smallint):word; {$ifndef fpc}far;{$endif fpc}
+ Function GetPixel16(X,Y: smallint):word;
 {$ifndef asmgraph}
  Var dummy, offset: Word;
      shift: byte;
@@ -1983,7 +1983,7 @@ Begin
 {$Endif logging}
 End;
 
- Procedure DirectPutPixel16(X,Y : smallint); {$ifndef fpc}far;{$endif fpc}
+ Procedure DirectPutPixel16(X,Y : smallint);
  { x,y -> must be in global coordinates. No clipping. }
   var
    color: word;
@@ -2128,7 +2128,7 @@ End;
  end;
 
 
-  procedure HLine16(x,x2,y: smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure HLine16(x,x2,y: smallint);
 
    var
       xtmp: smallint;
@@ -2216,7 +2216,7 @@ End;
     PortW[$3ce]:=$0003;
    end;
 
-  procedure VLine16(x,y,y2: smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure VLine16(x,y,y2: smallint);
 
    var
      ytmp,i: smallint;
@@ -2277,7 +2277,7 @@ End;
   End;
 
 
- procedure SetVisual200(page: word); {$ifndef fpc}far;{$endif fpc}
+ procedure SetVisual200(page: word);
   { four page support... }
   begin
     if page > HardwarePages then exit;
@@ -2304,7 +2304,7 @@ End;
     end ['DX','CX','BX','AX','SI','DI'];
   end;
 
- procedure SetActive200(page: word); {$ifndef fpc}far;{$endif fpc}
+ procedure SetActive200(page: word);
   { four page support... }
   begin
     case page of
@@ -2317,7 +2317,7 @@ End;
     end;
   end;
 
- procedure SetVisual350(page: word); {$ifndef fpc}far;{$endif fpc}
+ procedure SetVisual350(page: word);
   { one page supPort... }
   begin
     if page > HardwarePages then exit;
@@ -2332,7 +2332,7 @@ End;
     end ['DX','CX','BX','AX','SI','DI'];
   end;
 
- procedure SetActive350(page: word); {$ifndef fpc}far;{$endif fpc}
+ procedure SetActive350(page: word);
   { one page supPort... }
   begin
     case page of
@@ -2351,7 +2351,7 @@ End;
  {*                     320x200x256c Routines                            *}
  {************************************************************************}
 
- Procedure Init320; {$ifndef fpc}far;{$endif fpc}
+ Procedure Init320;
     begin
       if DontClearGraphMemory then
         CallInt10($93)
@@ -2362,7 +2362,7 @@ End;
 
 
 
- Procedure PutPixel320(X,Y : smallint; Pixel: Word); {$ifndef fpc}far;{$endif fpc}
+ Procedure PutPixel320(X,Y : smallint; Pixel: Word);
  { x,y -> must be in local coordinates. Clipping if required. }
   Begin
     { verify clipping and then convert to absolute coordinates...}
@@ -2391,7 +2391,7 @@ End;
  end;
 
 
- Function GetPixel320(X,Y: smallint):word; {$ifndef fpc}far;{$endif fpc}
+ Function GetPixel320(X,Y: smallint):word;
   Begin
    X:= X + StartXViewPort;
    Y:= Y + StartYViewPort;
@@ -2412,7 +2412,7 @@ End;
   end;
 
 
- Procedure DirectPutPixel320(X,Y : smallint); {$ifndef fpc}far;{$endif fpc}
+ Procedure DirectPutPixel320(X,Y : smallint);
  { x,y -> must be in global coordinates. No clipping. }
 {$ifndef asmgraph}
  var offset: word;
@@ -2476,13 +2476,13 @@ End;
 {$endif asmgraph}
 
 
- procedure SetVisual320(page: word); {$ifndef fpc}far;{$endif fpc}
+ procedure SetVisual320(page: word);
   { no page supPort... }
   begin
     VideoOfs := 0;
   end;
 
- procedure SetActive320(page: word); {$ifndef fpc}far;{$endif fpc}
+ procedure SetActive320(page: word);
   { no page supPort... }
   begin
     VideoOfs := 0;
@@ -2493,7 +2493,7 @@ End;
  {************************************************************************}
 const CrtAddress: word = 0;
 
- procedure InitModeX; {$ifndef fpc}far;{$endif fpc}
+ procedure InitModeX;
   begin
    asm
      {see if we are using color-/monochorme display}
@@ -2556,7 +2556,7 @@ const CrtAddress: word = 0;
  end;
 
 
- Function GetPixelX(X,Y: smallint): word; {$ifndef fpc}far;{$endif fpc}
+ Function GetPixelX(X,Y: smallint): word;
 {$ifndef asmgraph}
  var offset: word;
 {$endif asmgraph}
@@ -2633,7 +2633,7 @@ const CrtAddress: word = 0;
 {$endif asmgraph}
  end;
 
- procedure SetVisualX(page: word); {$ifndef fpc}far;{$endif fpc}
+ procedure SetVisualX(page: word);
   { 4 page supPort... }
 
    Procedure SetVisibleStart(AOffset: word); Assembler;
@@ -2682,7 +2682,7 @@ const CrtAddress: word = 0;
     end;
   end;
 
- procedure SetActiveX(page: word); {$ifndef fpc}far;{$endif fpc}
+ procedure SetActiveX(page: word);
   { 4 page supPort... }
   begin
    case page of
@@ -2695,7 +2695,7 @@ const CrtAddress: word = 0;
    end;
   end;
 
- Procedure PutPixelX(X,Y: smallint; color:word); {$ifndef fpc}far;{$endif fpc}
+ Procedure PutPixelX(X,Y: smallint; color:word);
 {$ifndef asmgraph}
  var offset: word;
 {$endif asmgraph}
@@ -2761,7 +2761,7 @@ const CrtAddress: word = 0;
   end;
 
 
- Procedure DirectPutPixelX(X,Y: smallint); {$ifndef fpc}far;{$endif fpc}
+ Procedure DirectPutPixelX(X,Y: smallint);
  { x,y -> must be in global coordinates. No clipping. }
 {$ifndef asmgraph}
  Var offset: Word;
@@ -2855,7 +2855,7 @@ const CrtAddress: word = 0;
   SaveSupPorted : Boolean;    { Save/Restore video state supPorted? }
 
 
- Procedure SaveStateVGA; {$ifndef fpc}far;{$endif fpc}
+ Procedure SaveStateVGA;
  var
   regs: Registers;
   begin
@@ -2895,7 +2895,7 @@ const CrtAddress: word = 0;
       end;
   end;
 
- procedure RestoreStateVGA; {$ifndef fpc}far;{$endif fpc}
+ procedure RestoreStateVGA;
   var
    regs:Registers;
    SavePtrCopy: Pointer;
@@ -2919,7 +2919,7 @@ const CrtAddress: word = 0;
   end;
 
 
-   Procedure SetVGARGBAllPalette(const Palette:PaletteType); {$ifndef fpc}far;{$endif fpc}
+   Procedure SetVGARGBAllPalette(const Palette:PaletteType);
     var
       c: byte;
     begin
@@ -2954,7 +2954,7 @@ const CrtAddress: word = 0;
 
    { VGA is never a direct color mode, so no need to check ... }
    Procedure SetVGARGBPalette(ColorNum, RedValue, GreenValue,
-      BlueValue : smallint); {$ifndef fpc}far;{$endif fpc}
+      BlueValue : smallint);
     begin
       { translate the color number for 16 color mode }
       If MaxColor = 16 Then
@@ -3004,7 +3004,7 @@ const CrtAddress: word = 0;
 
    { VGA is never a direct color mode, so no need to check ... }
   Procedure GetVGARGBPalette(ColorNum: smallint; Var
-      RedValue, GreenValue, BlueValue : smallint); {$ifndef fpc}far;{$endif fpc}
+      RedValue, GreenValue, BlueValue : smallint);
    begin
      If MaxColor = 16 Then
        ColorNum := ToRealCols16[ColorNum];
@@ -3895,7 +3895,7 @@ const CrtAddress: word = 0;
 var
   go32exitsave: codepointer;
 
-procedure freeSaveStateBuffer; {$ifndef fpc}far; {$endif}
+procedure freeSaveStateBuffer;
 begin
   if savePtr <> nil then
     begin

packages/graph/src/msdos/vesa.inc

@@ -217,7 +217,7 @@ end;
  {*                     8-bit pixels VESA mode routines                  *}
  {************************************************************************}
 
-  procedure PutPixVESA256(x, y : smallint; color : word); {$ifndef fpc}far;{$endif fpc}
+  procedure PutPixVESA256(x, y : smallint; color : word);
   var
      offs : longint;
   begin
@@ -239,7 +239,7 @@ end;
        end;
   end;
 
-  procedure DirectPutPixVESA256(x, y : smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure DirectPutPixVESA256(x, y : smallint);
   var
      offs : longint;
      col : byte;
@@ -272,7 +272,7 @@ end;
      mem[WinWriteSeg : word(offs)] := Col;
   end;
 
-  function GetPixVESA256(x, y : smallint): word; {$ifndef fpc}far;{$endif fpc}
+  function GetPixVESA256(x, y : smallint): word;
   var
      offs : longint;
   begin
@@ -283,7 +283,7 @@ end;
      GetPixVESA256:=mem[WinReadSeg : word(offs)];
   end;
 
-  Procedure GetScanLineVESA256(x1, x2, y: smallint; var data); {$ifndef fpc}far;{$endif}
+  Procedure GetScanLineVESA256(x1, x2, y: smallint; var data);
   var offs: Longint;
       l, amount, bankrest, index, pixels: longint;
       curbank: smallint;
@@ -372,7 +372,7 @@ end;
     Until amount = 0;
   end;
 
-  procedure HLineVESA256(x,x2,y: smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure HLineVESA256(x,x2,y: smallint);
 
    var Offs: Longint;
        mask, l, bankrest: longint;
@@ -695,7 +695,7 @@ end;
        end;
    end;
 
-  procedure VLineVESA256(x,y,y2: smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure VLineVESA256(x,y,y2: smallint);
 
    var Offs: Longint;
        l, bankrest: longint;
@@ -850,7 +850,7 @@ end;
        end;
    end;
 
-  procedure PatternLineVESA256(x1,x2,y: smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure PatternLineVESA256(x1,x2,y: smallint);
   {********************************************************}
   { Draws a horizontal patterned line according to the     }
   { current Fill Settings.                                 }
@@ -983,7 +983,7 @@ end;
  {*                    15/16bit pixels VESA mode routines                *}
  {************************************************************************}
 
-  procedure PutPixVESA32kOr64k(x, y : smallint; color : word); {$ifndef fpc}far;{$endif fpc}
+  procedure PutPixVESA32kOr64k(x, y : smallint; color : word);
   var
      offs : longint;
      place: word;
@@ -1015,7 +1015,7 @@ end;
      memW[WinWriteSeg : place] := color;
   end;
 
-  function GetPixVESA32kOr64k(x, y : smallint): word; {$ifndef fpc}far;{$endif fpc}
+  function GetPixVESA32kOr64k(x, y : smallint): word;
   var
      offs : longint;
   begin
@@ -1026,7 +1026,7 @@ end;
      GetPixVESA32kOr64k:=memW[WinReadSeg : word(offs)];
   end;
 
-  procedure DirectPutPixVESA32kOr64k(x, y : smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure DirectPutPixVESA32kOr64k(x, y : smallint);
   var
      offs : longint;
      bank : smallint;
@@ -1071,7 +1071,7 @@ end;
      End;
   end;
 
-  procedure HLineVESA32kOr64k(x,x2,y: smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure HLineVESA32kOr64k(x,x2,y: smallint);
 
    var Offs: Longint;
        mask, l, bankrest: longint;
@@ -1393,7 +1393,7 @@ end;
  {*                     4-bit pixels VESA mode routines                  *}
  {************************************************************************}
 
-  procedure PutPixVESA16(x, y : smallint; color : word); {$ifndef fpc}far;{$endif fpc}
+  procedure PutPixVESA16(x, y : smallint; color : word);
     var
      offs : longint;
      dummy : byte;
@@ -1428,7 +1428,7 @@ end;
   end;
 
 
- Function GetPixVESA16(X,Y: smallint):word; {$ifndef fpc}far;{$endif fpc}
+ Function GetPixVESA16(X,Y: smallint):word;
  Var dummy: Word;
      offset: longint;
      shift: byte;
@@ -1450,7 +1450,7 @@ end;
   end;
 
 
-  procedure DirectPutPixVESA16(x, y : smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure DirectPutPixVESA16(x, y : smallint);
     var
      offs : longint;
      dummy : byte;
@@ -1495,7 +1495,7 @@ end;
   end;
 
 
-  procedure HLineVESA16(x,x2,y: smallint); {$ifndef fpc}far;{$endif fpc}
+  procedure HLineVESA16(x,x2,y: smallint);
   var
       xtmp: smallint;
       ScrOfs, BankRest: longint;
@@ -1972,21 +1972,21 @@ end;
      GetMaxScanLines := regs.dx;
    end;
 
- procedure Init1280x1024x64k; {$ifndef fpc}far;{$endif fpc}
+ procedure Init1280x1024x64k;
   begin
     SetVesaMode(m1280x1024x64k);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init1280x1024x32k; {$ifndef fpc}far;{$endif fpc}
+ procedure Init1280x1024x32k;
   begin
     SetVESAMode(m1280x1024x32k);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init1280x1024x256; {$ifndef fpc}far;{$endif fpc}
+ procedure Init1280x1024x256;
   begin
     SetVESAMode(m1280x1024x256);
     { Get maximum number of scanlines for page flipping }
@@ -1994,105 +1994,105 @@ end;
   end;
 
 
- procedure Init1280x1024x16; {$ifndef fpc}far;{$endif fpc}
+ procedure Init1280x1024x16;
   begin
     SetVESAMode(m1280x1024x16);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init1024x768x64k; {$ifndef fpc}far;{$endif fpc}
+ procedure Init1024x768x64k;
   begin
     SetVESAMode(m1024x768x64k);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init1024x768x32k; {$ifndef fpc}far;{$endif fpc}
+ procedure Init1024x768x32k;
   begin
     SetVESAMode(m1024x768x32k);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init1024x768x256; {$ifndef fpc}far;{$endif fpc}
+ procedure Init1024x768x256;
   begin
     SetVESAMode(m1024x768x256);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init1024x768x16; {$ifndef fpc}far;{$endif fpc}
+ procedure Init1024x768x16;
   begin
     SetVESAMode(m1024x768x16);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init800x600x64k; {$ifndef fpc}far;{$endif fpc}
+ procedure Init800x600x64k;
   begin
     SetVESAMode(m800x600x64k);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init800x600x32k; {$ifndef fpc}far;{$endif fpc}
+ procedure Init800x600x32k;
   begin
     SetVESAMode(m800x600x32k);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init800x600x256; {$ifndef fpc}far;{$endif fpc}
+ procedure Init800x600x256;
   begin
     SetVESAMode(m800x600x256);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init800x600x16; {$ifndef fpc}far;{$endif fpc}
+ procedure Init800x600x16;
   begin
     SetVesaMode(m800x600x16);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init640x480x64k; {$ifndef fpc}far;{$endif fpc}
+ procedure Init640x480x64k;
   begin
     SetVESAMode(m640x480x64k);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init640x480x32k; {$ifndef fpc}far;{$endif fpc}
+ procedure Init640x480x32k;
   begin
     SetVESAMode(m640x480x32k);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init640x480x256; {$ifndef fpc}far;{$endif fpc}
+ procedure Init640x480x256;
   begin
     SetVESAMode(m640x480x256);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init640x400x256; {$ifndef fpc}far;{$endif fpc}
+ procedure Init640x400x256;
   begin
     SetVESAMode(m640x400x256);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init320x200x64k; {$ifndef fpc}far;{$endif fpc}
+ procedure Init320x200x64k;
   begin
     SetVESAMode(m320x200x64k);
     { Get maximum number of scanlines for page flipping }
     ScanLines := GetMaxScanLines;
   end;
 
- procedure Init320x200x32k; {$ifndef fpc}far;{$endif fpc}
+ procedure Init320x200x32k;
   begin
     SetVESAMode(m320x200x32k);
     { Get maximum number of scanlines for page flipping }
@@ -2101,7 +2101,7 @@ end;
 
 
 
- Procedure SaveStateVESA; {$ifndef fpc}far;{$endif fpc}
+ Procedure SaveStateVESA;
  var
   regs: Registers;
   begin
@@ -2153,7 +2153,7 @@ end;
       end;
   end;
 
- procedure RestoreStateVESA; {$ifndef fpc}far;{$endif fpc}
+ procedure RestoreStateVESA;
   var
    regs:Registers;
    SavePtrCopy: Pointer;
@@ -2194,7 +2194,7 @@ end;
   { between VBE versions , we will use the old method where }
   { the new pixel offset is used to display different pages }
   {******************************************************** }
- procedure SetVisualVESA(page: word); {$ifndef fpc}far;{$endif fpc}
+ procedure SetVisualVESA(page: word);
   var
    newStartVisible : word;
   begin
@@ -2222,7 +2222,7 @@ end;
     end ['DX','CX','BX','AX','SI','DI'];
   end;
 
- procedure SetActiveVESA(page: word); {$ifndef fpc}far;{$endif fpc}
+ procedure SetActiveVESA(page: word);
   begin
     { video offset is in pixels under VESA VBE! }
     { This value is reset after a mode set to page ZERO = YOffset = 0 ) }