- get rid of the '{$ifdef fpc}@{$endif}' from the i8086-msdos graph unit

git-svn-id: trunk@40893 -

packages/graph/src/msdos/graph.pp

@@ -3116,15 +3116,15 @@ const CrtAddress: word = 0;
       mode.DirectColor := FALSE;
       mode.MaxX := 319;
       mode.MaxY := 199;
-      mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixelCGA320;
-      mode.PutPixel:={$ifdef fpc}@{$endif}PutPixelCGA320;
-      mode.GetPixel:={$ifdef fpc}@{$endif}GetPixelCGA320;
-      mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
-      mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
-      mode.SetAllPalette := {$ifdef fpc}@{$endif}SetVGARGBAllPalette;
-      mode.HLine := {$ifdef fpc}@{$endif}HLineCGA320;
-      mode.SetBkColor := {$ifdef fpc}@{$endif}SetBkColorCGA320;
-      mode.GetBkColor := {$ifdef fpc}@{$endif}GetBkColorCGA320;
+      mode.DirectPutPixel:=@DirectPutPixelCGA320;
+      mode.PutPixel:=@PutPixelCGA320;
+      mode.GetPixel:=@GetPixelCGA320;
+      mode.SetRGBPalette := @SetVGARGBPalette;
+      mode.GetRGBPalette := @GetVGARGBPalette;
+      mode.SetAllPalette := @SetVGARGBAllPalette;
+      mode.HLine := @HLineCGA320;
+      mode.SetBkColor := @SetBkColorCGA320;
+      mode.GetBkColor := @GetBkColorCGA320;
       mode.XAspect := 8333;
       mode.YAspect := 10000;
     end;
@@ -3137,15 +3137,15 @@ const CrtAddress: word = 0;
       mode.DirectColor := FALSE;
       mode.MaxX := 639;
       mode.MaxY := 199;
-      mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixelCGA640;
-      mode.PutPixel:={$ifdef fpc}@{$endif}PutPixelCGA640;
-      mode.GetPixel:={$ifdef fpc}@{$endif}GetPixelCGA640;
-      mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
-      mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
-      mode.SetAllPalette := {$ifdef fpc}@{$endif}SetVGARGBAllPalette;
-      mode.HLine := {$ifdef fpc}@{$endif}HLineCGA640;
-      mode.SetBkColor := {$ifdef fpc}@{$endif}SetBkColorCGA640;
-      mode.GetBkColor := {$ifdef fpc}@{$endif}GetBkColorCGA640;
+      mode.DirectPutPixel:=@DirectPutPixelCGA640;
+      mode.PutPixel:=@PutPixelCGA640;
+      mode.GetPixel:=@GetPixelCGA640;
+      mode.SetRGBPalette := @SetVGARGBPalette;
+      mode.GetRGBPalette := @GetVGARGBPalette;
+      mode.SetAllPalette := @SetVGARGBAllPalette;
+      mode.HLine := @HLineCGA640;
+      mode.SetBkColor := @SetBkColorCGA640;
+      mode.GetBkColor := @GetBkColorCGA640;
       mode.XAspect := 4167;
       mode.YAspect := 10000;
     end;
@@ -3155,15 +3155,15 @@ const CrtAddress: word = 0;
       mode.MaxColor := 16;
       mode.DirectColor := FALSE;
       mode.PaletteSize := mode.MaxColor;
-      mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixel16;
-      mode.PutPixel:={$ifdef fpc}@{$endif}PutPixel16;
-      mode.GetPixel:={$ifdef fpc}@{$endif}GetPixel16;
-      mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
-      mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
-      mode.SetAllPalette := {$ifdef fpc}@{$endif}SetVGARGBAllPalette;
-      mode.HLine := {$ifdef fpc}@{$endif}HLine16;
-      mode.VLine := {$ifdef fpc}@{$endif}VLine16;
-      mode.GetScanLine := {$ifdef fpc}@{$endif}GetScanLine16;
+      mode.DirectPutPixel:=@DirectPutPixel16;
+      mode.PutPixel:=@PutPixel16;
+      mode.GetPixel:=@GetPixel16;
+      mode.SetRGBPalette := @SetVGARGBPalette;
+      mode.GetRGBPalette := @GetVGARGBPalette;
+      mode.SetAllPalette := @SetVGARGBAllPalette;
+      mode.HLine := @HLine16;
+      mode.VLine := @VLine16;
+      mode.GetScanLine := @GetScanLine16;
     end;
 
     procedure FillCommonVESA16(var mode: TModeInfo);
@@ -3174,17 +3174,17 @@ const CrtAddress: word = 0;
       mode.HardwarePages := VESAModeInfo.NumberOfPages;
       mode.DirectColor := FALSE;
       mode.PaletteSize := mode.MaxColor;
-      mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA16;
-      mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
-      mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
+      mode.DirectPutPixel:=@DirectPutPixVESA16;
+      mode.SetRGBPalette := @SetVESARGBPalette;
+      mode.GetRGBPalette := @GetVESARGBPalette;
 {$ifdef fpc}
       mode.SetAllPalette := @SetVESARGBAllPalette;
 {$endif fpc}
-      mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA16;
-      mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA16;
-      mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
-      mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
-      mode.HLine := {$ifdef fpc}@{$endif}HLineVESA16;
+      mode.PutPixel:=@PutPixVESA16;
+      mode.GetPixel:=@GetPixVESA16;
+      mode.SetVisualPage := @SetVisualVESA;
+      mode.SetActivePage := @SetActiveVESA;
+      mode.HLine := @HLineVESA16;
     end;
 
     procedure FillCommonVESA256(var mode: TModeInfo);
@@ -3195,20 +3195,20 @@ const CrtAddress: word = 0;
       mode.HardwarePages := VESAModeInfo.NumberOfPages;
       mode.PaletteSize := mode.MaxColor;
       mode.DirectColor := FALSE;
-      mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA256;
-      mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA256;
-      mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA256;
-      mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
-      mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
+      mode.DirectPutPixel:=@DirectPutPixVESA256;
+      mode.PutPixel:=@PutPixVESA256;
+      mode.GetPixel:=@GetPixVESA256;
+      mode.SetRGBPalette := @SetVESARGBPalette;
+      mode.GetRGBPalette := @GetVESARGBPalette;
 {$ifdef fpc}
       mode.SetAllPalette := @SetVESARGBAllPalette;
 {$endif fpc}
-      mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
-      mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
-      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.SetVisualPage := @SetVisualVESA;
+      mode.SetActivePage := @SetActiveVESA;
+      mode.hline := @HLineVESA256;
+      mode.vline := @VLineVESA256;
+      mode.GetScanLine := @GetScanLineVESA256;
+      mode.PatternLine := @PatternLineVESA256;
     end;
 
     procedure FillCommonVESA32kOr64k(var mode: TModeInfo);
@@ -3217,14 +3217,14 @@ const CrtAddress: word = 0;
       { by the call to SearchVESAMode.                             }
       mode.HardwarePages := VESAModeInfo.NumberOfPages;
       mode.DirectColor := TRUE;
-      mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA32kOr64k;
-      mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA32kOr64k;
-      mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA32kOr64k;
-      mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
-      mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
-      mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
-      mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
-      mode.HLine := {$ifdef fpc}@{$endif}HLineVESA32kOr64k;
+      mode.DirectPutPixel:=@DirectPutPixVESA32kOr64k;
+      mode.PutPixel:=@PutPixVESA32kOr64k;
+      mode.GetPixel:=@GetPixVESA32kOr64k;
+      mode.SetRGBPalette := @SetVESARGBPalette;
+      mode.GetRGBPalette := @GetVESARGBPalette;
+      mode.SetVisualPage := @SetVisualVESA;
+      mode.SetActivePage := @SetActiveVESA;
+      mode.HLine := @HLineVESA32kOr64k;
     end;
 
     procedure FillCommonVESA32k(var mode: TModeInfo);
@@ -3401,17 +3401,17 @@ const CrtAddress: word = 0;
          mode.DirectColor := FALSE;
          mode.MaxX := 719;
          mode.MaxY := 347;
-         mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixelHGC720;
-         mode.PutPixel:={$ifdef fpc}@{$endif}PutPixelHGC720;
-         mode.GetPixel:={$ifdef fpc}@{$endif}GetPixelHGC720;
-         mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetHGCRGBPalette;
-         mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetHGCRGBPalette;
-         mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualHGC720;
-         mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveHGC720;
-         mode.InitMode := {$ifdef fpc}@{$endif}InitHGC720;
-         mode.HLine := {$ifdef fpc}@{$endif}HLineHGC720;
-         mode.SetBkColor := {$ifdef fpc}@{$endif}SetBkColorHGC720;
-         mode.GetBkColor := {$ifdef fpc}@{$endif}GetBkColorHGC720;
+         mode.DirectPutPixel:=@DirectPutPixelHGC720;
+         mode.PutPixel:=@PutPixelHGC720;
+         mode.GetPixel:=@GetPixelHGC720;
+         mode.SetRGBPalette := @SetHGCRGBPalette;
+         mode.GetRGBPalette := @GetHGCRGBPalette;
+         mode.SetVisualPage := @SetVisualHGC720;
+         mode.SetActivePage := @SetActiveHGC720;
+         mode.InitMode := @InitHGC720;
+         mode.HLine := @HLineHGC720;
+         mode.SetBkColor := @SetBkColorHGC720;
+         mode.GetBkColor := @GetBkColorHGC720;
          mode.XAspect := 7500;
          mode.YAspect := 10000;
          AddMode(mode);
@@ -3433,7 +3433,7 @@ const CrtAddress: word = 0;
          mode.DriverNumber := CGA;
          mode.ModeNumber := CGAC0;
          mode.ModeName:='320 x 200 CGA C0';
-         mode.InitMode := {$ifdef fpc}@{$endif}InitCGA320C0;
+         mode.InitMode := @InitCGA320C0;
          AddMode(mode);
 
          InitMode(mode);
@@ -3441,7 +3441,7 @@ const CrtAddress: word = 0;
          mode.DriverNumber := CGA;
          mode.ModeNumber := CGAC1;
          mode.ModeName:='320 x 200 CGA C1';
-         mode.InitMode := {$ifdef fpc}@{$endif}InitCGA320C1;
+         mode.InitMode := @InitCGA320C1;
          AddMode(mode);
 
          InitMode(mode);
@@ -3449,7 +3449,7 @@ const CrtAddress: word = 0;
          mode.DriverNumber := CGA;
          mode.ModeNumber := CGAC2;
          mode.ModeName:='320 x 200 CGA C2';
-         mode.InitMode := {$ifdef fpc}@{$endif}InitCGA320C2;
+         mode.InitMode := @InitCGA320C2;
          AddMode(mode);
 
          InitMode(mode);
@@ -3457,7 +3457,7 @@ const CrtAddress: word = 0;
          mode.DriverNumber := CGA;
          mode.ModeNumber := CGAC3;
          mode.ModeName:='320 x 200 CGA C3';
-         mode.InitMode := {$ifdef fpc}@{$endif}InitCGA320C3;
+         mode.InitMode := @InitCGA320C3;
          AddMode(mode);
 
          InitMode(mode);
@@ -3465,7 +3465,7 @@ const CrtAddress: word = 0;
          mode.DriverNumber := CGA;
          mode.ModeNumber := CGAHi;
          mode.ModeName:='640 x 200 CGA';
-         mode.InitMode := {$ifdef fpc}@{$endif}InitCGA640;
+         mode.InitMode := @InitCGA640;
          AddMode(mode);
        end;
 
@@ -3488,9 +3488,9 @@ const CrtAddress: word = 0;
          mode.MaxX := 639;
          mode.MaxY := 199;
          mode.HardwarePages := 3;
-         mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisual200;
-         mode.SetActivePage := {$ifdef fpc}@{$endif}SetActive200;
-         mode.InitMode := {$ifdef fpc}@{$endif}Init640x200x16;
+         mode.SetVisualPage := @SetVisual200;
+         mode.SetActivePage := @SetActive200;
+         mode.InitMode := @Init640x200x16;
          mode.XAspect := 4500;
          mode.YAspect := 10000;
          AddMode(mode);
@@ -3503,9 +3503,9 @@ const CrtAddress: word = 0;
          mode.MaxX := 639;
          mode.MaxY := 349;
          mode.HardwarePages := 1;
-         mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisual350;
-         mode.SetActivePage := {$ifdef fpc}@{$endif}SetActive350;
-         mode.InitMode := {$ifdef fpc}@{$endif}Init640x350x16;
+         mode.SetVisualPage := @SetVisual350;
+         mode.SetActivePage := @SetActive350;
+         mode.InitMode := @Init640x350x16;
          mode.XAspect := 7750;
          mode.YAspect := 10000;
          AddMode(mode);
@@ -3536,7 +3536,7 @@ const CrtAddress: word = 0;
          mode.DriverNumber := MCGA;
          mode.ModeNumber := MCGAC0;
          mode.ModeName:='320 x 200 CGA C0'; { yes, it says 'CGA' even for the MCGA driver; this is TP7 compatible }
-         mode.InitMode := {$ifdef fpc}@{$endif}InitCGA320C0;
+         mode.InitMode := @InitCGA320C0;
          AddMode(mode);
 
          InitMode(mode);
@@ -3544,7 +3544,7 @@ const CrtAddress: word = 0;
          mode.DriverNumber := MCGA;
          mode.ModeNumber := MCGAC1;
          mode.ModeName:='320 x 200 CGA C1'; { yes, it says 'CGA' even for the MCGA driver; this is TP7 compatible }
-         mode.InitMode := {$ifdef fpc}@{$endif}InitCGA320C1;
+         mode.InitMode := @InitCGA320C1;
          AddMode(mode);
 
          InitMode(mode);
@@ -3552,7 +3552,7 @@ const CrtAddress: word = 0;
          mode.DriverNumber := MCGA;
          mode.ModeNumber := MCGAC2;
          mode.ModeName:='320 x 200 CGA C2'; { yes, it says 'CGA' even for the MCGA driver; this is TP7 compatible }
-         mode.InitMode := {$ifdef fpc}@{$endif}InitCGA320C2;
+         mode.InitMode := @InitCGA320C2;
          AddMode(mode);
 
          InitMode(mode);
@@ -3560,7 +3560,7 @@ const CrtAddress: word = 0;
          mode.DriverNumber := MCGA;
          mode.ModeNumber := MCGAC3;
          mode.ModeName:='320 x 200 CGA C3'; { yes, it says 'CGA' even for the MCGA driver; this is TP7 compatible }
-         mode.InitMode := {$ifdef fpc}@{$endif}InitCGA320C3;
+         mode.InitMode := @InitCGA320C3;
          AddMode(mode);
 
          InitMode(mode);
@@ -3568,7 +3568,7 @@ const CrtAddress: word = 0;
          mode.DriverNumber := MCGA;
          mode.ModeNumber := MCGAMed;
          mode.ModeName:='640 x 200 CGA'; { yes, it says 'CGA' even for the MCGA driver; this is TP7 compatible }
-         mode.InitMode := {$ifdef fpc}@{$endif}InitCGA640;
+         mode.InitMode := @InitCGA640;
          AddMode(mode);
 
          InitMode(mode);
@@ -3581,16 +3581,16 @@ const CrtAddress: word = 0;
          mode.DirectColor := FALSE;
          mode.MaxX := 639;
          mode.MaxY := 479;
-         mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixelMCGA640;
-         mode.PutPixel:={$ifdef fpc}@{$endif}PutPixelMCGA640;
-         mode.GetPixel:={$ifdef fpc}@{$endif}GetPixelMCGA640;
-         mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
-         mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
-         mode.SetAllPalette := {$ifdef fpc}@{$endif}SetVGARGBAllPalette;
-         mode.InitMode := {$ifdef fpc}@{$endif}InitMCGA640;
-         mode.HLine := {$ifdef fpc}@{$endif}HLineMCGA640;
-         mode.SetBkColor := {$ifdef fpc}@{$endif}SetBkColorMCGA640;
-         mode.GetBkColor := {$ifdef fpc}@{$endif}GetBkColorMCGA640;
+         mode.DirectPutPixel:=@DirectPutPixelMCGA640;
+         mode.PutPixel:=@PutPixelMCGA640;
+         mode.GetPixel:=@GetPixelMCGA640;
+         mode.SetRGBPalette := @SetVGARGBPalette;
+         mode.GetRGBPalette := @GetVGARGBPalette;
+         mode.SetAllPalette := @SetVGARGBAllPalette;
+         mode.InitMode := @InitMCGA640;
+         mode.HLine := @HLineMCGA640;
+         mode.SetBkColor := @SetBkColorMCGA640;
+         mode.GetBkColor := @GetBkColorMCGA640;
          mode.XAspect := 10000;
          mode.YAspect := 10000;
          AddMode(mode);
@@ -3607,13 +3607,13 @@ const CrtAddress: word = 0;
          mode.DirectColor := FALSE;
          mode.MaxX := 319;
          mode.MaxY := 199;
-         mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixel320;
-         mode.PutPixel:={$ifdef fpc}@{$endif}PutPixel320;
-         mode.GetPixel:={$ifdef fpc}@{$endif}GetPixel320;
-         mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
-         mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
-         mode.SetAllPalette := {$ifdef fpc}@{$endif}SetVGARGBAllPalette;
-         mode.InitMode := {$ifdef fpc}@{$endif}Init320;
+         mode.DirectPutPixel:=@DirectPutPixel320;
+         mode.PutPixel:=@PutPixel320;
+         mode.GetPixel:=@GetPixel320;
+         mode.SetRGBPalette := @SetVGARGBPalette;
+         mode.GetRGBPalette := @GetVGARGBPalette;
+         mode.SetAllPalette := @SetVGARGBAllPalette;
+         mode.InitMode := @Init320;
          mode.XAspect := 8333;
          mode.YAspect := 10000;
          AddMode(mode);
@@ -3640,15 +3640,15 @@ const CrtAddress: word = 0;
          mode.PaletteSize := mode.MaxColor;
          mode.MaxX := 319;
          mode.MaxY := 199;
-         mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixelX;
-         mode.PutPixel:={$ifdef fpc}@{$endif}PutPixelX;
-         mode.GetPixel:={$ifdef fpc}@{$endif}GetPixelX;
-         mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
-         mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
-         mode.SetAllPalette := {$ifdef fpc}@{$endif}SetVGARGBAllPalette;
-         mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualX;
-         mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveX;
-         mode.InitMode := {$ifdef fpc}@{$endif}InitModeX;
+         mode.DirectPutPixel:=@DirectPutPixelX;
+         mode.PutPixel:=@PutPixelX;
+         mode.GetPixel:=@GetPixelX;
+         mode.SetRGBPalette := @SetVGARGBPalette;
+         mode.GetRGBPalette := @GetVGARGBPalette;
+         mode.SetAllPalette := @SetVGARGBAllPalette;
+         mode.SetVisualPage := @SetVisualX;
+         mode.SetActivePage := @SetActiveX;
+         mode.InitMode := @InitModeX;
          mode.XAspect := 8333;
          mode.YAspect := 10000;
          AddMode(mode);
@@ -3661,9 +3661,9 @@ const CrtAddress: word = 0;
          mode.MaxX := 639;
          mode.MaxY := 199;
          mode.HardwarePages := 3;
-         mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisual200;
-         mode.SetActivePage := {$ifdef fpc}@{$endif}SetActive200;
-         mode.InitMode := {$ifdef fpc}@{$endif}Init640x200x16;
+         mode.SetVisualPage := @SetVisual200;
+         mode.SetActivePage := @SetActive200;
+         mode.InitMode := @Init640x200x16;
          mode.XAspect := 4500;
          mode.YAspect := 10000;
          AddMode(mode);
@@ -3676,9 +3676,9 @@ const CrtAddress: word = 0;
          mode.MaxX := 639;
          mode.MaxY := 349;
          mode.HardwarePages := 1;
-         mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisual350;
-         mode.SetActivePage := {$ifdef fpc}@{$endif}SetActive350;
-         mode.InitMode := {$ifdef fpc}@{$endif}Init640x350x16;
+         mode.SetVisualPage := @SetVisual350;
+         mode.SetActivePage := @SetActive350;
+         mode.InitMode := @Init640x350x16;
          mode.XAspect := 7750;
          mode.YAspect := 10000;
          AddMode(mode);
@@ -3691,7 +3691,7 @@ const CrtAddress: word = 0;
          mode.MaxX := 639;
          mode.MaxY := 479;
          mode.HardwarePages := 0;
-         mode.InitMode := {$ifdef fpc}@{$endif}Init640x480x16;
+         mode.InitMode := @Init640x480x16;
          mode.XAspect := 10000;
          mode.YAspect := 10000;
          AddMode(mode);
@@ -3728,7 +3728,7 @@ const CrtAddress: word = 0;
              FillCommonVESA32k(mode);
              FillCommonVESA320x200(mode);
              mode.ModeNumber:=m320x200x32k;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init320x200x32k;
+             mode.InitMode := @Init320x200x32k;
              AddMode(mode);
            end;
          if SearchVESAModes(m320x200x64k) then
@@ -3737,7 +3737,7 @@ const CrtAddress: word = 0;
              FillCommonVESA64k(mode);
              FillCommonVESA320x200(mode);
              mode.ModeNumber:=m320x200x64k;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init320x200x64k;
+             mode.InitMode := @Init320x200x64k;
              AddMode(mode);
            end;
          if SearchVESAModes(m640x400x256) then
@@ -3749,7 +3749,7 @@ const CrtAddress: word = 0;
              mode.ModeName:='640 x 400 VESA';
              mode.MaxX := 639;
              mode.MaxY := 399;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init640x400x256;
+             mode.InitMode := @Init640x400x256;
              mode.XAspect := 8333;
              mode.YAspect := 10000;
              AddMode(mode);
@@ -3760,7 +3760,7 @@ const CrtAddress: word = 0;
              FillCommonVESA256(mode);
              FillCommonVESA640x480(mode);
              mode.ModeNumber:=m640x480x256;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init640x480x256;
+             mode.InitMode := @Init640x480x256;
              AddMode(mode);
            end;
          if SearchVESAModes(m640x480x32k) then
@@ -3769,7 +3769,7 @@ const CrtAddress: word = 0;
              FillCommonVESA32k(mode);
              FillCommonVESA640x480(mode);
              mode.ModeNumber:=m640x480x32k;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init640x480x32k;
+             mode.InitMode := @Init640x480x32k;
              AddMode(mode);
            end;
          if SearchVESAModes(m640x480x64k) then
@@ -3778,7 +3778,7 @@ const CrtAddress: word = 0;
              FillCommonVESA64k(mode);
              FillCommonVESA640x480(mode);
              mode.ModeNumber:=m640x480x64k;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init640x480x64k;
+             mode.InitMode := @Init640x480x64k;
              AddMode(mode);
            end;
          if SearchVESAModes(m800x600x16) then
@@ -3787,7 +3787,7 @@ const CrtAddress: word = 0;
              FillCommonVESA16(mode);
              FillCommonVESA800x600(mode);
              mode.ModeNumber:=m800x600x16;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init800x600x16;
+             mode.InitMode := @Init800x600x16;
              AddMode(mode);
            end;
          if SearchVESAModes(m800x600x256) then
@@ -3796,7 +3796,7 @@ const CrtAddress: word = 0;
              FillCommonVESA256(mode);
              FillCommonVESA800x600(mode);
              mode.ModeNumber:=m800x600x256;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init800x600x256;
+             mode.InitMode := @Init800x600x256;
              AddMode(mode);
            end;
          if SearchVESAModes(m800x600x32k) then
@@ -3805,7 +3805,7 @@ const CrtAddress: word = 0;
              FillCommonVESA32k(mode);
              FillCommonVESA800x600(mode);
              mode.ModeNumber:=m800x600x32k;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init800x600x32k;
+             mode.InitMode := @Init800x600x32k;
              AddMode(mode);
            end;
          if SearchVESAModes(m800x600x64k) then
@@ -3814,7 +3814,7 @@ const CrtAddress: word = 0;
              FillCommonVESA64k(mode);
              FillCommonVESA800x600(mode);
              mode.ModeNumber:=m800x600x64k;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init800x600x64k;
+             mode.InitMode := @Init800x600x64k;
              AddMode(mode);
            end;
          if SearchVESAModes(m1024x768x16) then
@@ -3823,7 +3823,7 @@ const CrtAddress: word = 0;
              FillCommonVESA16(mode);
              FillCommonVESA1024x768(mode);
              mode.ModeNumber:=m1024x768x16;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init1024x768x16;
+             mode.InitMode := @Init1024x768x16;
              AddMode(mode);
            end;
          if SearchVESAModes(m1024x768x256) then
@@ -3832,7 +3832,7 @@ const CrtAddress: word = 0;
              FillCommonVESA256(mode);
              FillCommonVESA1024x768(mode);
              mode.ModeNumber:=m1024x768x256;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init1024x768x256;
+             mode.InitMode := @Init1024x768x256;
              AddMode(mode);
            end;
          if SearchVESAModes(m1024x768x32k) then
@@ -3841,7 +3841,7 @@ const CrtAddress: word = 0;
              FillCommonVESA32k(mode);
              FillCommonVESA1024x768(mode);
              mode.ModeNumber:=m1024x768x32k;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init1024x768x32k;
+             mode.InitMode := @Init1024x768x32k;
              AddMode(mode);
            end;
          if SearchVESAModes(m1024x768x64k) then
@@ -3850,7 +3850,7 @@ const CrtAddress: word = 0;
              FillCommonVESA64k(mode);
              FillCommonVESA1024x768(mode);
              mode.ModeNumber:=m1024x768x64k;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init1024x768x64k;
+             mode.InitMode := @Init1024x768x64k;
              AddMode(mode);
            end;
          if SearchVESAModes(m1280x1024x16) then
@@ -3859,7 +3859,7 @@ const CrtAddress: word = 0;
              FillCommonVESA16(mode);
              FillCommonVESA1280x1024(mode);
              mode.ModeNumber:=m1280x1024x16;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init1280x1024x16;
+             mode.InitMode := @Init1280x1024x16;
              AddMode(mode);
            end;
          if SearchVESAModes(m1280x1024x256) then
@@ -3868,7 +3868,7 @@ const CrtAddress: word = 0;
              FillCommonVESA256(mode);
              FillCommonVESA1280x1024(mode);
              mode.ModeNumber:=m1280x1024x256;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init1280x1024x256;
+             mode.InitMode := @Init1280x1024x256;
              AddMode(mode);
            end;
          if SearchVESAModes(m1280x1024x32k) then
@@ -3877,7 +3877,7 @@ const CrtAddress: word = 0;
              FillCommonVESA32k(mode);
              FillCommonVESA1280x1024(mode);
              mode.ModeNumber:=m1280x1024x32k;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init1280x1024x32k;
+             mode.InitMode := @Init1280x1024x32k;
              AddMode(mode);
            end;
          if SearchVESAModes(m1280x1024x64k) then
@@ -3886,7 +3886,7 @@ const CrtAddress: word = 0;
              FillCommonVESA64k(mode);
              FillCommonVESA1280x1024(mode);
              mode.ModeNumber:=m1280x1024x64k;
-             mode.InitMode := {$ifdef fpc}@{$endif}Init1280x1024x64k;
+             mode.InitMode := @Init1280x1024x64k;
              AddMode(mode);
            end;
        end;