paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 13:49:11 +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; uses sysutils, fphashutils;
{
This code is based on earlier work by Wolfgang Erhardt.
}
type type
UInt128 = record UInt128 = record
m_low: UInt64; 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 but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
} }
{
Part of this code is based on earlier work by Wolfgang Erhardt.
}
unit fphashutils; unit fphashutils;
{$mode ObjFPC}{$H+} {$mode ObjFPC}{$H+}