paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 00:27:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* crc renamed to gzcrc (merged)

Browse Source
This commit is contained in:
peter 2000-08-15 03:57:51 +00:00
parent 9cf8ff4295
commit 06e8616f1d
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/paszlib/crc.pas → packages/paszlib/gzcrc.pas
View File

@ -1,4 +1,4 @@
Unit Crc; Unit gzCrc;
{ {
crc32.c -- compute the CRC-32 of a data stream crc32.c -- compute the CRC-32 of a data stream
@ -234,4 +234,4 @@ begin
end; end;
end. end.

4
packages/paszlib/crcasm.pas → packages/paszlib/gzcrcasm.pas
View File

@ -1,4 +1,4 @@
Unit CrcAsm; Unit GZCrcAsm;
{ {
crc32.c -- compute the CRC-32 of a data stream crc32.c -- compute the CRC-32 of a data stream
@ -275,4 +275,4 @@ ASM
end['EAX','EBX','ECX','EDX','ESI','EDI']; end['EAX','EBX','ECX','EDX','ESI','EDI'];
end. end.

4
packages/paszlib/gzio.pas
View File

@ -21,7 +21,7 @@ uses
{$else} {$else}
SysUtils, SysUtils,
{$endif} {$endif}
zutil, zbase, crc, zdeflate, zinflate; zutil, zbase, gzcrc, zdeflate, zinflate;
type gzFile = voidp; type gzFile = voidp;
type z_off_t = long; type z_off_t = long;
@ -1189,4 +1189,4 @@ begin
gzerror := s^.msg; gzerror := s^.msg;
end; end;
end. end.

6
packages/paszlib/paszlib.pas
View File

@ -112,7 +112,7 @@ function get_crc_table:pointer;
implementation implementation
uses uses
zutil,zdeflate,zinflate,zcompres,zuncompr,gzio,adler,crc; zutil,zdeflate,zinflate,zcompres,zuncompr,gzio,adler,gzcrc;
function zlibVersion:string; function zlibVersion:string;
begin begin
@ -271,7 +271,7 @@ end;
function crc32(thecrc:uLong;buf : pchar; len:uInt):uLong; function crc32(thecrc:uLong;buf : pchar; len:uInt):uLong;
begin begin
crc32:=crc.crc32(thecrc,pbytef(buf),len); crc32:=gzcrc.crc32(thecrc,pbytef(buf),len);
end; end;
function deflateInit_(var strm:TZStream; level:longint; version:pchar; stream_size:longint):longint; function deflateInit_(var strm:TZStream; level:longint; version:pchar; stream_size:longint):longint;
@ -326,7 +326,7 @@ end;
function get_crc_table:pointer; function get_crc_table:pointer;
begin begin
get_crc_table:=crc.get_crc_table; get_crc_table:=gzcrc.get_crc_table;
end; end;
end. end.