paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 23:07:14 +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
@ -234,4 +234,4 @@ begin
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
@ -275,4 +275,4 @@ ASM
end['EAX','EBX','ECX','EDX','ESI','EDI'];
end.
end.

4
packages/paszlib/gzio.pas
View File

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

6
packages/paszlib/paszlib.pas
View File

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