paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-03 04:50:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ enabled the asm version of PutPixel320

Browse Source 
git-svn-id: trunk@40911 -
This commit is contained in:
nickysn 2019-01-19 16:46:30 +00:00
parent e12968eb8c
commit 4a14ee770a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2220,7 +2220,6 @@ End;
{$undef asmgraph}
{$ifndef asmgraph} {$ifndef asmgraph}
Procedure PutPixel320(X,Y : smallint; Pixel: ColorType); Procedure PutPixel320(X,Y : smallint; Pixel: ColorType);
{ x,y -> must be in local coordinates. Clipping if required. } { x,y -> must be in local coordinates. Clipping if required. }
@ -2273,6 +2272,7 @@ End;
{$endif asmgraph} {$endif asmgraph}
{$undef asmgraph}
Function GetPixel320(X,Y: smallint):ColorType; Function GetPixel320(X,Y: smallint):ColorType;
Begin Begin
X:= X + StartXViewPort; X:= X + StartXViewPort;