diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-10 10:59:00 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-10 10:59:00 +0000 |
| commit | 5bfc36bea918dc486fd329c6b6a977c9d42f833b (patch) | |
| tree | ee412b5657822a405e79c2aa4d2c14b3b3b19339 | |
| parent | 67099310f0a01254cfdd0316e46e94155af32f9f (diff) | |
| download | fpc-5bfc36bea918dc486fd329c6b6a977c9d42f833b.tar.gz | |
* on second thought, and a byte typecast so that an expanded intrinsics doesn't loop over unnecessary bits.
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49162 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/fcl-image/src/fpreadbmp.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-image/src/fpreadbmp.pp b/packages/fcl-image/src/fpreadbmp.pp index f566af28d5..e282218bf4 100644 --- a/packages/fcl-image/src/fpreadbmp.pp +++ b/packages/fcl-image/src/fpreadbmp.pp @@ -149,7 +149,7 @@ begin inc(tmp); Mask:= Mask shr 1; end; - tmp:=tmp-(8-popcnt(Mask and $FF)); + tmp:=tmp-(8-popcnt(byte(Mask and $FF))); Result:=tmp; end; |