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

- removed the pascal case code before the asm block in the asm version of

Browse Source 
DirectPutPixel16

git-svn-id: trunk@40901 -
This commit is contained in:
nickysn 2019-01-19 11:18:39 +00:00
parent 24f0625ee8
commit 8c804fd4d3
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1926,20 +1926,6 @@ End;
If CurrentWriteMode <> NotPut Then If CurrentWriteMode <> NotPut Then
Color := CurrentColor Color := CurrentColor
else Color := not CurrentColor; else Color := not CurrentColor;
case CurrentWriteMode of
XORPut:
PortW[$3ce]:=((3 shl 3) shl 8) or 3;
ANDPut:
PortW[$3ce]:=((1 shl 3) shl 8) or 3;
ORPut:
PortW[$3ce]:=((2 shl 3) shl 8) or 3;
{not needed, this is the default state (e.g. PutPixel16 requires it)}
{NormalPut, NotPut:
PortW[$3ce]:=$0003
else
PortW[$3ce]:=$0003}
end;
{ note: still needs xor/or/and/notput support !!!!! (JM) } { note: still needs xor/or/and/notput support !!!!! (JM) }
asm asm
{$ifdef FPC_MM_HUGE} {$ifdef FPC_MM_HUGE}