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

+ Added class word to 2 lines

Browse Source 
git-svn-id: trunk@4421 -
This commit is contained in:
michael 2006-08-14 11:27:37 +00:00
parent d48866d4e2
commit 62658e26fc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/inc/zipper.pp
View File

@ -365,7 +365,7 @@ begin
Crc32Val:=NOT Crc32Val;
end;
function TDeflater.ZipID: Word;
class function TDeflater.ZipID: Word;
begin
Result:=8;
end;
@ -436,7 +436,7 @@ begin
ProcessLine('');
end;
function TShrinker.ZipID: Word;
class function TShrinker.ZipID: Word;
begin
Result:=1;
end;