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

fpspreadsheet: Fix test suite failures with compiler checks ON.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7989 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-04-14 22:17:15 +00:00
parent 901540cc3c
commit 2159bd73ce
8 changed files with 36 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/source/common/xlsbiff5.pas
View File

@@ -686,7 +686,7 @@ begin
{ One-based index to EXTERNSHEET record in the booklist.
Negative to indicate a 3D reference.
Positive to indicate an external reference }
idx := WordLEToN(AStream.ReadWord);
idx := SmallInt(WordLEToN(AStream.ReadWord));
if idx < 0 then begin
{ *** Internal 3d reference *** }