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

* optimizations in PutPixel16 that remove the slow 'mul' instruction

Browse Source 
git-svn-id: trunk@40998 -
This commit is contained in:
nickysn 2019-01-22 16:04:08 +00:00
parent 36c349696e
commit 83766c7462
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1629,11 +1629,14 @@ end;
mov cl, 3 mov cl, 3
shr si, cl shr si, cl
{ determine the address } { determine the address }
mov ax,80
mov bx,[Y] mov bx,[Y]
mul bx inc cx { CL=4 }
add ax,si shl bx, cl
mov di,ax mov di, bx
shl di, 1
shl di, 1
add di, bx
add di, si
add di, [VideoOfs] add di, [VideoOfs]
{ send the data through the display memory through set/reset } { send the data through the display memory through set/reset }
mov bl,es:[di] mov bl,es:[di]