paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 10:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* sw_word -> longint

Browse Source 
git-svn-id: trunk@10086 -
This commit is contained in:
marco 2008-01-28 20:04:31 +00:00
parent 18dc29ee7c
commit b2b017e14a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/bzip2/src/bzip2.pas
View File

@ -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;