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

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

Browse Source 
git-svn-id: trunk@16037 -
This commit is contained in:
joost 2010-09-23 19:07:35 +00:00
parent 1633341906
commit 3024947d5f
1 changed files with 4 additions and 2 deletions

6
packages/paszlib/src/zipper.pp
View File

@ -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;