From 0c539442c2dbfb121979307dacec09e200c2f9c1 Mon Sep 17 00:00:00 2001
From: joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 23 Sep 2010 19:07:35 +0000
Subject:  * 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
---
 packages/paszlib/src/zipper.pp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'packages/paszlib')

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;
-- 
cgit v1.2.1