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

fpspreadsheet: Fix compilation issue with -MDelphi

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4235 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-07-31 20:23:31 +00:00
parent 9f775a09d6
commit fb75c2bef1
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/fpszipper.pp
View File

@ -10,8 +10,8 @@
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} ******************************************************************************}
{ (*
Copy from the zipper unit from FPC 2.7.1 Copy from the zipper unit from FPC 2.7.1
Remove it after a new FPC with the fixes from this unit is released - Remove it after a new FPC with the fixes from this unit is released -
@ -33,7 +33,7 @@
- TDecompressor.UpdC32: dto. - TDecompressor.UpdC32: dto.
- TUnZipper.ReadZipDirectory: in "FZipStream.Seek()", at end, cast - TUnZipper.ReadZipDirectory: in "FZipStream.Seek()", at end, cast
"Extra_field_length" to Int64 to avoid compiler warning. "Extra_field_length" to Int64 to avoid compiler warning.
} ******************************************************************************)
{$mode objfpc} {$mode objfpc}
{$h+} {$h+}