diff options
| -rw-r--r-- | packages/bzip2/src/bzip2.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/packages/bzip2/src/bzip2.pas b/packages/bzip2/src/bzip2.pas index 5e6fdd19ff..b577dc1796 100644 --- a/packages/bzip2/src/bzip2.pas +++ b/packages/bzip2/src/bzip2.pas @@ -93,10 +93,10 @@ type Tcardinal_array=array [0..899999] of cardinal; procedure receive_mtf_values; procedure detransform; function decode_block:boolean; - procedure read(var buf;count:sw_word);virtual; + procedure read(var buf;count:Longint);virtual; procedure new_block; procedure consume_rle;inline; - procedure rle_read(bufptr:Pbyte;var count:sw_word); + procedure rle_read(bufptr:Pbyte;var count:Longint); destructor done;virtual; end; @@ -647,7 +647,7 @@ begin new_block; 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; data:byte; @@ -702,7 +702,7 @@ rle_write: rle_run_left:=rle_len; end; -procedure Tbzip2_decode_stream.read(var buf;count:sw_word); +procedure Tbzip2_decode_stream.read(var buf;count:Longint); var bufptr:Pbyte; |