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

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 14:51:51 +01:00
parent 147c93d38e
commit 721e0b51d5
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -97,8 +97,8 @@ implementation
constructor Tbzip2_decode_stream.init(Areadstream:Pstream);
var magic:array[1..3] of char;
c:char;
var magic:array[1..3] of AnsiChar;
c:AnsiChar;
begin
readstream:=Areadstream;
@ -511,13 +511,13 @@ function Tbzip2_decode_stream.decode_block:boolean;
{Decode a new compressed block.}
var magic:array[1..6] of char;
var magic:array[1..6] of AnsiChar;
stored_blockcrc:cardinal;
i:byte;
begin
for i:=1 to 6 do
magic[i]:=char(get_byte);
magic[i]:=AnsiChar(get_byte);
if magic='1AY&SY' then
begin
inc(current_block);

8
packages/bzip2/src/bzip2stream.pp
View File

@ -111,8 +111,8 @@ Resourcestring
Constructor TDecompressBzip2Stream.Create(ASource: TStream);
var magic:array[1..3] of char;
c:char;
var magic:array[1..3] of AnsiChar;
c:AnsiChar;
begin
Inherited Create(ASource);
@ -522,13 +522,13 @@ function TDecompressBzip2Stream.decode_block:boolean;
{Decode a new compressed block.}
var magic:array[1..6] of char;
var magic:array[1..6] of AnsiChar;
stored_blockcrc:cardinal;
i:byte;
begin
for i:=1 to 6 do
magic[i]:=char(get_byte);
magic[i]:=AnsiChar(get_byte);
if magic='1AY&SY' then
begin
inc(current_block);