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

* use xchg, instead of mov, because it's 1 byte shorter

Browse Source 
git-svn-id: trunk@36345 -
This commit is contained in:
nickysn 2017-05-26 18:26:00 +00:00
parent 34113b930b
commit e8a09fba0d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/i8086/int32p.inc
View File

@ -37,7 +37,7 @@ begin
xchg ax,si xchg ax,si
mul cx mul cx
add si,ax add si,ax
mov ax,di xchg ax,di { 1 byte shorter than mov }
mul cx mul cx
add dx,si add dx,si
mov word[result],ax mov word[result],ax
@ -79,7 +79,7 @@ begin
jnz @@overflow jnz @@overflow
add si,ax add si,ax
jc @@overflow jc @@overflow
mov ax,di xchg ax,di { 1 byte shorter than mov }
mul cx mul cx
add dx,si add dx,si
jc @@overflow jc @@overflow