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

* Add notice that work by Wolfgang Erhardt was used

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-11-19 09:46:39 +01:00
parent ff7febc06c
commit 92978caa2f
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-hash/src/fpecc.pp
View File

@ -73,6 +73,10 @@ implementation
uses sysutils, fphashutils;
{
This code is based on earlier work by Wolfgang Erhardt.
}
type
UInt128 = record
m_low: UInt64;

5
packages/fcl-hash/src/fphashutils.pp
View File

@ -9,6 +9,11 @@
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
{
Part of this code is based on earlier work by Wolfgang Erhardt.
}
unit fphashutils;
{$mode ObjFPC}{$H+}