Browse Source

* crc renamed to gzcrc (merged)

peter 25 years ago
parent
commit
06e8616f1d

+ 2 - 2
packages/paszlib/crc.pas → packages/paszlib/gzcrc.pas

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

+ 2 - 2
packages/paszlib/crcasm.pas → packages/paszlib/gzcrcasm.pas

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

+ 2 - 2
packages/paszlib/gzio.pas

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

+ 3 - 3
packages/paszlib/paszlib.pas

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