From dcfa03ea9cf858e75fa8fc30f85cbd2259458f9d Mon Sep 17 00:00:00 2001 From: marco Date: Mon, 28 Jan 2008 20:04:31 +0000 Subject: * sw_word -> longint git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@10086 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/bzip2/src/bzip2.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'packages/bzip2') 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; -- cgit v1.2.1