mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 23:21:57 +02:00
* use lodsb instead of mov in GetPixelX
git-svn-id: trunk@41030 -
This commit is contained in:
parent
948328160b
commit
9c3d65b08f
@ -2520,7 +2520,7 @@ const CrtAddress: word = 0;
|
||||
mov ah, cl
|
||||
out dx, ax
|
||||
(* End selection of plane *)
|
||||
mov al, ES:[SI]
|
||||
seges lodsb
|
||||
xor ah, ah
|
||||
{$ifdef FPC_GRAPH_SUPPORTS_TRUECOLOR}
|
||||
{ 1 byte shorter than 'xor dx, dx'; will always set dx to 0, because sign(ah)=0 }
|
||||
|
Loading…
Reference in New Issue
Block a user