* Override virtual constructor instead of adding a static one so that it is actually called. Fixes problems on non-Windows

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

1 files changed, 4 insertions, 2 deletions

diff --git a/packages/paszlib/src/zipper.pp b/packages/paszlib/src/zipper.pp
index a5f3a06eaa..f3c786845c 100644
--- a/packages/paszlib/src/zipper.pp
+++ b/packages/paszlib/src/zipper.pp
@@ -265,7 +265,7 @@ Type
   Protected
     Property HdrPos : Longint Read FHeaderPos Write FheaderPos;
   Public
-    constructor Create;
+    constructor Create(ACollection: TCollection); override;
     function IsDirectory: Boolean;
     function IsLink: Boolean;
     Procedure Assign(Source : TPersistent); override;
@@ -1974,13 +1974,15 @@ begin
     Result:=FDiskFileName;
 end;
 
-constructor TZipFileEntry.Create;
+constructor TZipFileEntry.Create(ACollection: TCollection);
+
 begin
 {$IFDEF UNIX}
   FOS := OS_UNIX;
 {$ELSE}
   FOS := OS_FAT;
 {$ENDIF}
+  inherited create(ACollection);
 end;
 
 function TZipFileEntry.IsDirectory: Boolean;