From 84ed5901982f8c06015824fb98ca56f4d05fb244 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 12 Apr 2005 09:48:42 +0000
Subject: [PATCH]  * now uses ansistring for path.

---
 packages/base/paszlib/gzio.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/base/paszlib/gzio.pas b/packages/base/paszlib/gzio.pas
index d7346e67bc..0c1f9ef56d 100644
--- a/packages/base/paszlib/gzio.pas
+++ b/packages/base/paszlib/gzio.pas
@@ -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