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

two cases of use casts instead of anding with when extracting 16bit values

Browse Source 
git-svn-id: trunk@28615 -
This commit is contained in:
Károly Balogh 2014-09-07 23:38:33 +00:00
parent 05e72f52c6
commit 8d98f31afc
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/inc/softfpu.pp
View File

@ -1323,9 +1323,9 @@ Var
aHigh, aLow, bHigh, bLow: bits16; aHigh, aLow, bHigh, bLow: bits16;
z0, zMiddleA, zMiddleB, z1: bits32; z0, zMiddleA, zMiddleB, z1: bits32;
Begin Begin
aLow := a and $ffff; aLow := bits16(a);
aHigh := a shr 16; aHigh := a shr 16;
bLow := b and $ffff; bLow := bits16(b);
bHigh := b shr 16; bHigh := b shr 16;
z1 := ( bits32( aLow) ) * bLow; z1 := ( bits32( aLow) ) * bLow;
zMiddleA := ( bits32 (aLow) ) * bHigh; zMiddleA := ( bits32 (aLow) ) * bHigh;