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

* Packages: x86_64 assembly version of SHA1Transform added to hash package

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2023-09-05 07:04:04 +01:00 committed by FPK
parent 29c8758975
commit f7465bb3ec
3 changed files with 2998 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,11 +89,27 @@ const
K60 = $8F1BBCDC;
K80 = $CA62C1D6;
{$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}
{$ELSE}
{$ifndef SHA1PASCAL}
{$if defined(CPU386)}
{$if defined(CPUX86_HAS_BSWAP)}
{$i sha1i386.inc}
{$define SHA1ASM}
{$endif CPUX86_HAS_BSWAP}
{$else if defined(CPUX64)}
{$IFDEF MSWINDOWS}
// Microsoft Windows uses a different calling convention to the System V ABI
{$i sha1x64_win.inc}
{$define SHA1ASM}
{$ELSE}
{$i sha1x64_sysv.inc}
{$define SHA1ASM}
{$ENDIF MSWINDOWS}
{$endif}
{$endif not SHA1PASCAL}
{$if not defined(SHA1ASM)}
// Use original version if asked for, or when we have no optimized assembler version
procedure SHA1Transform(var ctx: TSHA1Context; Buf: Pointer);
var
@ -162,7 +178,7 @@ begin
{$pop}
Inc(ctx.Length,64);
end;
{$ENDIF}
{$endif not defined(SHA1ASM)}
procedure SHA1Update(var ctx: TSHA1Context; const Buf; BufLen: PtrUInt);
var

1484
packages/hash/src/sha1x64_sysv.inc Normal file
View File

File diff suppressed because it is too large Load Diff

1494
packages/hash/src/sha1x64_win.inc Normal file
View File

File diff suppressed because it is too large Load Diff