paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 20:00:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix DEBUG go32v2 compilation error

Browse Source 
git-svn-id: trunk@16356 -
This commit is contained in:
pierre 2010-11-17 16:14:08 +00:00
parent 74e1e4c7ba
commit 969c81b60f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/vesa.pas
View File

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