From 9c77709e7790d698d15009d842fadae23f496c21 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Wed, 8 Oct 2014 07:59:44 +0000 Subject: [PATCH] fpspreadsheet: Add reminder to header of fpszipper what is to be checked before the unit can be replaced by the official one. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3638 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpspreadsheet/fpszipper.pp | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/components/fpspreadsheet/fpszipper.pp b/components/fpspreadsheet/fpszipper.pp index 02904531c..638c9e9b3 100644 --- a/components/fpspreadsheet/fpszipper.pp +++ b/components/fpspreadsheet/fpszipper.pp @@ -17,7 +17,24 @@ Remove it after a new FPC with the fixes from this unit is released - definitely any version based on FPC 2.7.1, but probably works with FPC 2.6.4+ as well. + + TODO: Make sure that the following adjustments are contained in the new official + version: + - TUnzipper.OpenInput: use fmOpenRead + fmShareDenyNone + - const declarations: Add directive {%H-} to unused items UNIX_WRGP, + UNIX_XRGP, UNIT_WOTH, UNIX_XOTH + - TUnzipper.UnzipOneFile: Remove unused variable LinkTargetStream + - TUnzipper.UnzipOneFile: Initialize FOutStream with nil. + - TZipper.CreateCompressor: Use directive {%H-} for unused parameter + "Item : TZipFileEntry" + - TUnzipper.CreateDeCompressor: Use directive {%H-} for unused + parameter "Item : TZipFileEntry" + - TCompressor.UpdC32(Octet: Byte); cast "Octet" to LongWord instead of LongInt + - TDecompressor.UpdC32: dto. + - TUnZipper.ReadZipDirectory: in "FZipStream.Seek()", at end, cast + "Extra_field_length" to Int64 to avoid compiler warning. } + {$mode objfpc} {$h+} unit fpszipper;