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

* use different registers to avoid a mov instruction in PutPixel320

Browse Source 
git-svn-id: trunk@41111 -
This commit is contained in:
nickysn 2019-01-29 13:09:00 +00:00
parent 23aec76ae1
commit e26a7f7753
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/go32v2/graph.pp
View File

@ -2292,7 +2292,6 @@ End;
push edi push edi
movsx edi, ax movsx edi, ax
movsx ebx, dx movsx ebx, dx
mov al, cl
cmp clippixels, 0 cmp clippixels, 0
je @putpix320noclip je @putpix320noclip
test edi, edi test edi, edi
@ -2304,13 +2303,13 @@ End;
cmp bx, ViewHeight cmp bx, ViewHeight
jg @putpix320done jg @putpix320done
@putpix320noclip: @putpix320noclip:
movsx ecx, StartYViewPort movsx eax, StartYViewPort
movsx edx, StartXViewPort movsx edx, StartXViewPort
add ebx, ecx add ebx, eax
add edi, edx add edi, edx
shl ebx, 6 shl ebx, 6
add edi, ebx add edi, ebx
mov fs:[edi+ebx*4+$a0000], al mov fs:[edi+ebx*4+$a0000], cl
@putpix320done: @putpix320done:
pop edi pop edi
pop ebx pop ebx