Bläddra i källkod

* Fix DEBUG go32v2 compilation error

git-svn-id: trunk@16356 -
pierre 14 år sedan
förälder
incheckning
969c81b60f
1 ändrade filer med 2 tillägg och 2 borttagningar
  1. 2 2
      ide/vesa.pas

+ 2 - 2
ide/vesa.pas

@@ -582,7 +582,7 @@ begin
   if Force or MustUpdate then
   if Force or MustUpdate then
    begin
    begin
      PrevColor:=GetColor;
      PrevColor:=GetColor;
-     PrevBkColor:=GetBkColor;
+     PrevBkColor:=GetBkColor{$ifdef FPC}(){$endif};
 
 
      for y:=0 to ScreenHeight-1 do
      for y:=0 to ScreenHeight-1 do
        for x:=0 to Screenwidth-1 do
        for x:=0 to Screenwidth-1 do
@@ -617,7 +617,7 @@ begin
        move(videobuf^,oldvideobuf^,
        move(videobuf^,oldvideobuf^,
          VideoBufSize);
          VideoBufSize);
      SetColor(PrevColor);
      SetColor(PrevColor);
-     SetBkColor(GetBkColor);
+     SetBkColor(GetBkColor{$ifdef FPC}(){$endif});
    end;
    end;
   DrawTextBackground:=StoreDrawTextBackground;
   DrawTextBackground:=StoreDrawTextBackground;
 {$endif TESTGRAPHIC}
 {$endif TESTGRAPHIC}