paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 19:10:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed CGA 320x200 hline bug when CurrentColor=1

Browse Source 
git-svn-id: trunk@26242 -
This commit is contained in:
nickysn 2013-12-16 22:35:32 +00:00
parent b82b6da493
commit 2a0a8cfc00
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/graph/src/go32v2/graph.pp
View File

@ -829,7 +829,7 @@ begin
AndPut:
begin
{ optimization }
if CurrentColor = 1 then
if CurrentColor = 3 then
exit;
Mem[SegB800:CurrentOffset] := Mem[SegB800:CurrentOffset] and (LBackMask or LForeMask);
end;
@ -882,9 +882,8 @@ begin
AndPut:
begin
{ optimization }
if CurrentColor = 1 then
if CurrentColor = 3 then
exit;
{ therefore, CurrentColor must be 0 }
while MiddleAreaLength > 0 do
begin
Mem[SegB800:CurrentOffset] := Mem[SegB800:CurrentOffset] and ForeMask;
@ -927,7 +926,7 @@ begin
AndPut:
begin
{ optimization }
if CurrentColor = 1 then
if CurrentColor = 3 then
exit;
Mem[SegB800:CurrentOffset] := Mem[SegB800:CurrentOffset] and (RBackMask or RForeMask);
end;

7
packages/graph/src/msdos/graph.pp
View File

@ -777,7 +777,7 @@ begin
AndPut:
begin
{ optimization }
if CurrentColor = 1 then
if CurrentColor = 3 then
exit;
Mem[SegB800:CurrentOffset] := Mem[SegB800:CurrentOffset] and (LBackMask or LForeMask);
end;
@ -830,9 +830,8 @@ begin
AndPut:
begin
{ optimization }
if CurrentColor = 1 then
if CurrentColor = 3 then
exit;
{ therefore, CurrentColor must be 0 }
while MiddleAreaLength > 0 do
begin
Mem[SegB800:CurrentOffset] := Mem[SegB800:CurrentOffset] and ForeMask;
@ -875,7 +874,7 @@ begin
AndPut:
begin
{ optimization }
if CurrentColor = 1 then
if CurrentColor = 3 then
exit;
Mem[SegB800:CurrentOffset] := Mem[SegB800:CurrentOffset] and (RBackMask or RForeMask);
end;