paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:29:33 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -265,7 +265,7 @@ Type
Protected Protected
Property HdrPos : Longint Read FHeaderPos Write FheaderPos; Property HdrPos : Longint Read FHeaderPos Write FheaderPos;
Public Public
constructor Create; constructor Create(ACollection: TCollection); override;
function IsDirectory: Boolean; function IsDirectory: Boolean;
function IsLink: Boolean; function IsLink: Boolean;
Procedure Assign(Source : TPersistent); override; Procedure Assign(Source : TPersistent); override;
@ -1974,13 +1974,15 @@ begin
Result:=FDiskFileName; Result:=FDiskFileName;
end; end;
constructor TZipFileEntry.Create; constructor TZipFileEntry.Create(ACollection: TCollection);
begin begin
{$IFDEF UNIX} {$IFDEF UNIX}
FOS := OS_UNIX; FOS := OS_UNIX;
{$ELSE} {$ELSE}
FOS := OS_FAT; FOS := OS_FAT;
{$ENDIF} {$ENDIF}
inherited create(ACollection);
end; end;
function TZipFileEntry.IsDirectory: Boolean; function TZipFileEntry.IsDirectory: Boolean;