Compression Speed           Decompression Speed  

P4  2 .6GHz
~~~~~~~~~~
C++       1361  KB/s    1603  MIPS        19009  KB/s    1916  MIPS
Java  1 . 6    888  KB/s    1046  MIPS        10972  KB/s    1078  MIPS
Delphi7    775  KB/s     913  MIPS         9466  KB/s     930  MIPS
C#  	   757  KB/s     892  MIPS        13870  KB/s    1398  MIPS

AMD64  3000 +
~~~~~~~~~~~
C++       1346  KB/s    1585  MIPS        18831  KB/s    1898  MIPS
Java  1 . 6    867  KB/s    1021  MIPS        11067  KB/s    1087  MIPS
Delphi7    770  KB/s     906  MIPS         9466  KB/s     930  MIPS
C#         757  KB/s     891  MIPS        13833  KB/s    1394  MIPS

INTEL M760  2000  Ghz
~~~~~~~~~~~~~~~~~~~
C++       1346  KB/s    1585  MIPS        18831  KB/s    1898  MIPS
Java  1 . 6    873  KB/s     1028  MIPS        9888  KB/s     971  MIPS
Delphi7    820  KB/s      966  MIPS        7895  KB/s     775  MIPS
C#         784  KB/s      924  MIPS       12307  KB/s    1240  MIPS

Core Duo  2 .4GHz
~~~~~~~~~~~~~~~
C++       2068  KB/s    2436  MIPS        22677  KB/s    2286  MIPS 
Java  1 . 6   1270  KB/s    1495  MIPS        13721  KB/s    1348  MIPS
C#        1126  KB/s    1326  MIPS        15984  KB/s    1611  MIPS
Delphi7   1123  KB/s    1322  MIPS        10078  KB/s     990  MIPS

C#        1094  KB/s     1289  MIPS       15557  KB/s     1568  MIPS   
Delphi7   1094  KB/s     1288  MIPS        9927  KB/s      975  MIPS

AMD64  3000 +  2  Ghz
~~~~~~~~~~~~~~~~~
C++        1369  KB/s    1612  MIPS        18505  KB/s    1865  MIPS
Java  1 . 6     890  KB/s    1048  MIPS        11013  KB/s    1082  MIPS
Delphi10F   796  KB/s     937  MIPS         9961  KB/s     978  MIPS
Delphi7     770  KB/s     906  MIPS         9466  KB/s     930  MIPS
C#          757  KB/s     891  MIPS        13833  KB/s    1394  MIPS

Core Duo E6600  2 . 4  GHz -  1  Core
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C++        1970  KB/s     2320  MIPS       20490  KB/s    2065  MIPS 
Java  1 . 6    1224  KB/s     1442  MIPS       13315  KB/s    1308  MIPS
Delphi10F  1142  KB/s     1345  MIPS       10745  KB/s    1055  MIPS
C#         1087  KB/s     1280  MIPS       15465  KB/s    1559  MIPS
Delphi7    1063  KB/s     1252  MIPS        9817  KB/s     964  MIPS

function TLZMADecoder2.DecodeNormal(const rangeDecoder:TRangeDecoder):byte;
var symbol:integer;
begin
symbol :=  1 ;
repeat
  symbol := (symbol shl  1 ) or rangeDecoder.DecodeBit(m_Decoders, symbol);
  until not (symbol < $ 100 );
result:=symbol;
end;

	
		
			public byte DecodeNormal(SevenZip.Compression.RangeCoder.Decoder rangeDecoder) throws IOException
			{
				int symbol =  1 ;
				do
					symbol = (symbol <<  1 ) | rangeDecoder.DecodeBit(m_Decoders, symbol);
				while (symbol < 0x100);
				return (byte)symbol;
			}

function TRangeDecoder.DecodeBit(var probs: array of smallint;const index:integer):integer;
var prob,newbound:integer;
begin
prob:=probs[index];
newbound:=(Range shr kNumBitModelTotalBits) * prob;
if (integer((integer(Code) xor integer($ 80000000 ))) < integer((integer(newBound) xor integer($ 80000000 )))) then begin
   Range := newBound;
   probs[index] := (prob + ((kBitModelTotal - prob) shr kNumMoveBits));
   if ((Range and kTopMask) =  0 ) then begin
      Code := (Code shl  8 ) or ReadByte(stream);
      Range := Range shl  8 ;
      end;
   result:= 0 ;
   end else begin
       Range := Range - newBound;
       Code := Code - newBound;
       probs[index] := (prob - ((prob) shr kNumMoveBits));
       if ((Range and kTopMask) =  0 ) then begin
          Code := (Code shl  8 ) or ReadByte(stream);
          Range := Range shl   8 ;
          end;
       result:= 1 ;
       end;
end;

	public int DecodeBit(short []probs, int index) throws IOException
	{
		int prob = probs[index];
		int newBound = (Range >>> kNumBitModelTotalBits) * prob;
		if ((Code ^ 0x80000000) < (newBound ^ 0x80000000))
		{
			Range = newBound;
			probs[index] = (short)(prob + ((kBitModelTotal - prob) >>> kNumMoveBits));
			if ((Range & kTopMask) ==  0 )
			{
				Code = (Code <<  8 ) | Stream.read();
				Range <<=  8 ;
			}
			return  0 ;
		}
		else
		{
			Range -= newBound;
			Code -= newBound;
			probs[index] = (short)(prob - ((prob) >>> kNumMoveBits));
			if ((Range & kTopMask) ==  0 )
			{
				Code = (Code <<  8 ) | Stream.read();
				Range <<=  8 ;
			}
			return  1 ;
		}
	}

 function  TBufferedFS.Read( var  Buffer; Count: Longint): Longint;