paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* now uses ansistring for path.

Browse Source
This commit is contained in:
marco 2005-04-12 09:48:42 +00:00
parent 4dba09f9a0
commit 84ed590198
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/base/paszlib/gzio.pas
View File

@ -26,7 +26,7 @@ uses
type gzFile = voidp;
type z_off_t = long;
function gzopen (path:string; mode:string) : gzFile;
function gzopen (path:ansistring; mode:string) : gzFile;
function gzsetparams (f:gzfile; level:int; strategy:int) : int;
function gzread (f:gzFile; buf:voidp; len:uInt) : int;
function gzgetc (f:gzfile) : int;
@ -84,7 +84,7 @@ type gz_stream = record
outbuf : pBytef; { output buffer }
crc : uLong; { crc32 of uncompressed data }
msg, { error message - limit 79 chars }
path : string[79]; { path name for debugging only - limit 79 chars }
path : ansistring; { path name for debugging only - limit 79 chars }
transparent : boolean; { true if input file is not a .gz file }
mode : char; { 'w' or 'r' }
startpos : long; { start of compressed data in file (header skipped) }
@ -115,7 +115,7 @@ procedure check_header(s:gz_streamp); forward;
============================================================================}
function gzopen (path:string; mode:string) : gzFile;
function gzopen (path:ansistring; mode:string) : gzFile;
var