unit Blake2Impl;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, CTypes, Types;
{$I blake2.inc}

function load16( const src : pointer) : cuint16; inline;
procedure store16(var dst : pointer; w: cuint16); inline;
function load32( const src : pointer) : cuint32; inline;
procedure store32( var dst : pointer; w: cuint32); inline;
function load48( const src : pointer) : cuint64;inline;
procedure store48( var dst : pointer; w: uint64); inline;
function load64( const src : pointer) : cuint64; inline;
procedure store64( var dst : pointer; w: cuint64); inline;
function rotr32( const w : cuint32; const c : cunsigned ): cuint32;inline;
function rotr64( const w : cuint64; const c : cunsigned ): cuint64;inline;
procedure secure_zero_memory( var v : pointer; n: csize_t );inline;
implementation

procedure secure_zero_memory( var v : pointer; n : csize_t );
begin
    FillChar(v, n, 0);
end;

function rotr32( const w : cuint32; const c : cunsigned) : cuint32;inline;
begin
 Result := (w shr c) or ( w shl ( 64 - c ) );
end;

function rotr64( const w : cuint64; const c : cunsigned ): cuint64;inline;
begin
  Result := (w shr c) or ( w shl ( 64 - c ) );
end;

procedure store16(var dst: pointer; w: cuint16); inline;
begin
  Move(w, dst, sizeof(dst));
end;

function load16( const src : pointer) : cuint16; inline;
var w : cuint16;
begin
  Move(src, w, sizeof(w));
  Result := w;
end;

procedure store32(var dst: pointer; w: cuint32); inline;
begin
  Move(w, dst, sizeof(dst));
end;

function load32( const src : pointer) : cuint32; inline;
var w : cuint32;
begin
  Move(src, w, sizeof(w));
  Result := w;
end;

procedure store48(var dst : pointer; w : cuint64); inline;
var p : array[0..6] of cuint8;
begin
   Move(dst, p, sizeof(p));
   p[0] := w shr 0;
   p[1] := w shr 8;
   p[2] := w shr 16;
   p[3] := w shr 24;
   p[4] := w shr 32;
   p[5] := w shr 40;
   Move(p, dst, sizeof(dst));
end;

function load48( const src : pointer ) : cuint64; inline;
var p : array[0..6] of cuint64;
begin
    Move(src, p, sizeof(p));
    Result :=
    p[0] shl 0
    or p[1] shl 8
    or p[2] shl 16
    or p[3] shl 24
    or p[4] shl 32
    or p[5] shl 40;
end;

procedure store64(var dst: pointer; w: cuint64); inline;
begin
  Move(w, dst, sizeof(dst));
end;

function load64( const src : pointer) : cuint64; inline;
var
  w : cuint64;
begin
  Move(src, w, sizeof(w));
  Result := w;
end;

end.