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

* Packages: Fixed assembler error in Hash package on x86_64 when external assembler is used

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2023-11-03 05:34:59 +00:00 committed by FPK
parent 589fb20386
commit 736f5edf98
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/hash/src/sha1.pp
View File

@ -84,10 +84,11 @@ begin
end;
const
K20 = $5A827999;
K40 = $6ED9EBA1;
K60 = $8F1BBCDC;
K80 = $CA62C1D6;
{ typecast to Longint to prevent assembler errors }
K20 = LongInt($5A827999);
K40 = LongInt($6ED9EBA1);
K60 = LongInt($8F1BBCDC);
K80 = LongInt($CA62C1D6);
// Use assembler version if we have a suitable CPU as well
// Define SHA1PASCAL to force use of original reference code