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

* Patch from Rika to enable assembler version of MD5 on i386-darwin. Fixes issue #40470

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-10-15 10:23:51 +02:00
parent 66e2cf5e5c
commit aa841d584d
2 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/hash/fpmake.pp
View File

@ -32,7 +32,7 @@ begin
P.Version:='3.3.1'; P.Version:='3.3.1';
T:=P.Targets.AddUnit('src/md5.pp'); T:=P.Targets.AddUnit('src/md5.pp');
T.Dependencies.AddInclude('src/md5i386.inc', [i386], AllOSes-[darwin]); T.Dependencies.AddInclude('src/md5i386.inc', [i386], AllOSes);
T:=P.Targets.AddUnit('src/sha1.pp'); T:=P.Targets.AddUnit('src/sha1.pp');
T.Dependencies.AddInclude('src/sha1i386.inc', [i386], AllOSes); T.Dependencies.AddInclude('src/sha1i386.inc', [i386], AllOSes);
T:=P.Targets.AddUnit('src/crc.pas'); T:=P.Targets.AddUnit('src/crc.pas');
@ -43,8 +43,6 @@ begin
T.OSes:=[Linux]; T.OSes:=[Linux];
T:=P.Targets.AddExampleunit('examples/mdtest.pas'); T:=P.Targets.AddExampleunit('examples/mdtest.pas');
T:=P.Targets.AddExampleunit('examples/crctest.pas');
T:=P.Targets.AddExampleunit('examples/sha1test.pp');
T:=P.Targets.AddExampleunit('examples/hmd5.pp'); T:=P.Targets.AddExampleunit('examples/hmd5.pp');
T:=P.Targets.AddExampleunit('examples/hsha1.pp'); T:=P.Targets.AddExampleunit('examples/hsha1.pp');
T:=P.Targets.AddExampleunit('examples/md5performancetest.pas'); T:=P.Targets.AddExampleunit('examples/md5performancetest.pas');

7
packages/hash/src/md5.pp
View File

@ -42,12 +42,9 @@ These notices must be retained in any copies of any part of this
documentation and/or software. documentation and/or software.
} }
// Define to use original MD5 code on i386 processors. // Normally, if an optimized version is available for OS/CPU, that will be used
// Undefine to use original implementation. // Define to use generic implementation
{ the assembler implementation does not work on Darwin }
{$ifdef darwin}
{ $DEFINE MD5PASCAL} { $DEFINE MD5PASCAL}
{$endif darwin}
{$IFNDEF FPC_DOTTEDUNITS} {$IFNDEF FPC_DOTTEDUNITS}
unit md5; unit md5;