pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Add reminder to header of fpszipper what is to be checked before the unit can be replaced by the official one.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3638 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-10-08 07:59:44 +00:00
parent 46a94e0abf
commit 9c77709e77
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/fpspreadsheet/fpszipper.pp
View File

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