* Fix use of char as filename

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@24697 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 4 deletions

diff --git a/packages/paszlib/src/ziputils.pas b/packages/paszlib/src/ziputils.pas
index b616567190..8e07f46b4d 100644
--- a/packages/paszlib/src/ziputils.pas
+++ b/packages/paszlib/src/ziputils.pas
@@ -98,11 +98,11 @@ begin
   fp := nil;
   try
     case mode of
-      fopenread: fp  := TFileStream.Create(filename, fmOpenRead);
-      fopenwrite: fp := TFileStream.Create(filename, fmCreate);
+      fopenread: fp  := TFileStream.Create(strpas(filename), fmOpenRead);
+      fopenwrite: fp := TFileStream.Create(strpas(filename), fmCreate);
       fappendwrite:
       begin
-        fp := TFileStream.Create(filename, fmOpenReadWrite);
+        fp := TFileStream.Create(strpas(filename), fmOpenReadWrite);
         fp.Seek(soFromEnd, 0);
       end;
     end;
@@ -187,7 +187,7 @@ begin
   OldFileMode := FileMode;
 
   GetMem(fp, SizeOf(file));
-  Assign(fp^, filename);
+  Assign(fp^, strpas(filename));
   {$push}{$i-}
   Case mode of
   fopenread: