fcl-hash: less hints and disable range checking for bigint

packages/fcl-base/src/basenenc.pp

@@ -247,7 +247,7 @@ begin
     while (lBits>=8) do
       begin
       Dec(lBits,8);
-      pDest^:=Reg shr lBits;
+      pDest^:=byte(Reg shr lBits);
       inc(pDest);
       end;
     inc(pSrc);

packages/fcl-hash/src/fphashutils.pp

@@ -349,7 +349,7 @@ end;
 
 function BytesToStr(const aBytes: TBytes): string;
 begin
-  SetLength(Result,length(aBytes));
+  SetLength(Result{%H-},length(aBytes));
   if aBytes=nil then exit;
   Move(aBytes[0],Result[1],length(aBytes));
 end;

packages/fcl-hash/src/fptlsbigint.pas

@@ -7,6 +7,8 @@
 {$MODE OBJFPC}
 {$h+}
 {$MODESWITCH advancedrecords}
+{$R-}
+
 unit fpTLSBigInt;
 
 interface