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

* fixed return of result in the asm version of GetPixel320

Browse Source 
git-svn-id: trunk@40966 -
This commit is contained in:
nickysn 2019-01-21 15:16:16 +00:00
parent 92304ce573
commit cab9b4cb6b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2300,11 +2300,10 @@ End;
shr ax, 1
shr ax, 1
add di, ax
xor ax, ax
mov al,es:[di]
mov word ptr @Result,ax
mov al, es:[di]
xor ah, ah
{$ifdef FPC_GRAPH_SUPPORTS_TRUECOLOR}
mov word ptr @Result+2, 0
xor dx, dx
{$endif FPC_GRAPH_SUPPORTS_TRUECOLOR}
end;
{$endif asmgraph}