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

* don't use arm assembler md5 implementation of thumb code is generated

Browse Source
This commit is contained in:
florian 2025-04-06 18:59:44 +02:00
parent 7719a5a5a7
commit 32a9dab401
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/hash/src/md5.pp
View File

@ -353,7 +353,7 @@ end;
{$i md5x64_sysv.inc} {$i md5x64_sysv.inc}
{$define MD5ASM} {$define MD5ASM}
{$endif MSWINDOWS} {$endif MSWINDOWS}
{$elseif defined(CPUARM)} {$elseif defined(CPUARM) and not (defined(CPUTHUMB)) and not (defined(CPUTHUMB2))}
{$i md5arm.inc} {$i md5arm.inc}
{$define MD5ASM} {$define MD5ASM}
{$endif} {$endif}
@ -826,5 +826,5 @@ function StrtoMD5(const MD5String:String):TMDDigest;
end; end;
if not f then if not f then
FillChar(Result, Sizeof(Result), 0); FillChar(Result, Sizeof(Result), 0);
end; end;
end. end.