anchor.diff:    E: UInt32;
   begin
     M := PUInt64(@AValue)^;
  -  E := GetPlainExp(AValue);
  +  E := GetRawExp(AValue);
     if (0 < E) and (E < CExtendedExponentMask) then
       Result := E - CExtendedBias
     else if E = 0 then
  
positive.code: var
    E: Integer;
  begin
    E := GetPlainExp(AValue);
    Result := GetPlainMantissa(AValue);
    if (0 < E) and (E < CSingleExponentMask) then
      Result := Result or (UInt32(1) shl CSingleExponentShift);
  end;
  
negative.code:   M: UInt64;
    E: UInt32;
  begin
    M := GetRawMantissa(AValue);
    E := GetRawExp(AValue);
    if (0 < E) and (E < CDoubleExponentMask) then
      Result := E - CDoubleBias
    else if E = 0 then
  