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

Patch from Ville Krumlinde for xxHash32 crash on Mac OS 64-bit, mantis 33477

Browse Source 
git-svn-id: trunk@38598 -
This commit is contained in:
maciej-izak 2018-03-22 22:51:11 +00:00
parent 256ae133a2
commit b0aeacf61b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-generics/src/generics.hashes.pas
View File

@ -1063,7 +1063,7 @@ end;
{$ifdef CPUX64} {$ifdef CPUX64}
function xxHash32(crc: cardinal; P: Pointer; len: integer): cardinal; function xxHash32(crc: cardinal; P: Pointer; len: integer): cardinal;
asm asm
{$ifdef LINUX} // crc=rdi P=rsi len=rdx {$ifndef WIN64} // crc=rdi P=rsi len=rdx
mov r8, rdi mov r8, rdi
mov rcx, rsi mov rcx, rsi
{$else} // crc=r8 P=rcx len=rdx {$else} // crc=r8 P=rcx len=rdx
@ -1150,7 +1150,7 @@ asm
shr edx, 16 shr edx, 16
xor eax, edx xor eax, edx
pop rbx pop rbx
{$ifndef LINUX} {$ifdef WIN64}
pop rdi pop rdi
pop rsi pop rsi
{$endif} {$endif}