paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Better (and probably more correct regarding stack usage) i386 version of SHA1Transform.

Browse Source
This commit is contained in:
Rika Ichinose 2023-09-04 22:41:54 +03:00 committed by FPK
parent 4d126cbe57
commit d3f748a020
2 changed files with 1426 additions and 1948 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -92,7 +92,7 @@ const
K60 = $8F1BBCDC;
K80 = $CA62C1D6;
{$IF (NOT(DEFINED(SHA1PASCAL))) and (DEFINED(CPU386)) }
{$IF (NOT(DEFINED(SHA1PASCAL))) and (DEFINED(CPU386)) and DEFINED(CPUX86_HAS_BSWAP) }
// Use assembler version if we have a suitable CPU as well
// Define SHA1PASCAL to force use of original reference code
{$i sha1i386.inc}

3372
packages/hash/src/sha1i386.inc
View File

File diff suppressed because it is too large Load Diff