|
@@ -93,10 +93,10 @@ type Tcardinal_array=array [0..899999] of cardinal;
|
|
|
procedure receive_mtf_values;
|
|
procedure receive_mtf_values;
|
|
|
procedure detransform;
|
|
procedure detransform;
|
|
|
function decode_block:boolean;
|
|
function decode_block:boolean;
|
|
|
- procedure read(var buf;count:sw_word);virtual;
|
|
|
|
|
|
|
+ procedure read(var buf;count:Longint);virtual;
|
|
|
procedure new_block;
|
|
procedure new_block;
|
|
|
procedure consume_rle;inline;
|
|
procedure consume_rle;inline;
|
|
|
- procedure rle_read(bufptr:Pbyte;var count:sw_word);
|
|
|
|
|
|
|
+ procedure rle_read(bufptr:Pbyte;var count:Longint);
|
|
|
destructor done;virtual;
|
|
destructor done;virtual;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
@@ -647,7 +647,7 @@ begin
|
|
|
new_block;
|
|
new_block;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
-procedure Tbzip2_decode_stream.rle_read(bufptr:Pbyte;var count:sw_word);
|
|
|
|
|
|
|
+procedure Tbzip2_decode_stream.rle_read(bufptr:Pbyte;var count:Longint);
|
|
|
|
|
|
|
|
var rle_len:cardinal;
|
|
var rle_len:cardinal;
|
|
|
data:byte;
|
|
data:byte;
|
|
@@ -702,7 +702,7 @@ rle_write:
|
|
|
rle_run_left:=rle_len;
|
|
rle_run_left:=rle_len;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
-procedure Tbzip2_decode_stream.read(var buf;count:sw_word);
|
|
|
|
|
|
|
+procedure Tbzip2_decode_stream.read(var buf;count:Longint);
|
|
|
|
|
|
|
|
var bufptr:Pbyte;
|
|
var bufptr:Pbyte;
|
|
|
|
|
|
marco