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

* avoid overflow on ProtW in PutPixel16

Browse Source
This commit is contained in:
pierre 1999-12-10 12:49:24 +00:00
parent 54874916af
commit 9bb0611f46
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/graph.inc
View File

@ -176,7 +176,7 @@ const
{$ifndef asmgraph} {$ifndef asmgraph}
offset := y * 80 + (x shr 3) + VideoOfs; offset := y * 80 + (x shr 3) + VideoOfs;
PortW[$3ce] := $0f01; { Index 01 : Enable ops on all 4 planes } PortW[$3ce] := $0f01; { Index 01 : Enable ops on all 4 planes }
PortW[$3ce] := Pixel shl 8; { Index 00 : Enable correct plane and write color } PortW[$3ce] := (Pixel and $ff) shl 8; { Index 00 : Enable correct plane and write color }
Port[$3ce] := 8; Port[$3ce] := 8;
Port[$3cf] := $80 shr (x and $7); { Select correct bits to modify } Port[$3cf] := $80 shr (x and $7); { Select correct bits to modify }
@ -2497,7 +2497,10 @@ const CrtAddress: word = 0;
{ {
$Log$ $Log$
Revision 1.4 1999-11-29 07:32:53 jonas Revision 1.5 1999-12-10 12:49:24 pierre
* avoid overflow on ProtW in PutPixel16
Revision 1.4 1999/11/29 07:32:53 jonas
* fixed setvgargbpalette (it's 6bit lsb, not msb values, so no shifts!) * fixed setvgargbpalette (it's 6bit lsb, not msb values, so no shifts!)
Revision 1.3 1999/11/27 21:48:00 jonas Revision 1.3 1999/11/27 21:48:00 jonas