wizards/source/depot/Internet.xba | 10 +++++-----
wizards/source/tools/Misc.xba | 2 +-
2 files changed, 6 insertions(+), 6 deletions(-)
New commits:
commit 7c694158ffb6549b31c2547c82c6bd670757a53c
Author: Andreas Heinisch <andreas.heini...@yahoo.de>
AuthorDate: Thu Sep 26 08:39:19 2019 +0200
Commit: Mike Kaganski <mike.kagan...@collabora.com>
CommitDate: Fri Sep 27 20:26:35 2019 +0200
tdf#50846 - Wrong type of function GetLastUsedRow
Changed the type of the function GetLastUsedRow from int to long
in order to avoid overflows.
Change-Id: Ia0d789611f732eecdfdbe557b751dbead5748c45
Reviewed-on: https://gerrit.libreoffice.org/79586
Tested-by: Jenkins
Reviewed-by: Mike Kaganski <mike.kagan...@collabora.com>
diff --git a/wizards/source/depot/Internet.xba
b/wizards/source/depot/Internet.xba
index 333bcf98af89..d3393bc72ae9 100644
--- a/wizards/source/depot/Internet.xba
+++ b/wizards/source/depot/Internet.xba
@@ -172,17 +172,17 @@ Sub UpdateValue(ByVal sName As String, fDate As Double,
fValue As Double )
Dim oSheet As Object
Dim iColumn As Long
Dim iRow As Long
-Dim i as Integer
+Dim i as Long
Dim oCell As Object
Dim LastDate as Date
Dim bLeaveLoop as Boolean
-Dim RemoveCount as Integer
-Dim iLastRow as Integer
-Dim iLastLinkRow as Integer
+Dim RemoveCount as Long
+Dim iLastRow as Long
+Dim iLastLinkRow as Long
Dim dDate as Date
Dim CurDate as Date
Dim oLinkSheet as Object
-Dim StartIndex as Integer
+Dim StartIndex as Long
Dim iCellValue as Long
' Insert Sheet with Company - Chart
sName = CheckNewSheetname(oSheets, sName)
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba
index 2bf17d32e984..9b9e1dba6cda 100644
--- a/wizards/source/tools/Misc.xba
+++ b/wizards/source/tools/Misc.xba
@@ -642,7 +642,7 @@ Dim i as Integer
End Function
-Function GetLastUsedRow(oSheet as Object) as Integer
+Function GetLastUsedRow(oSheet as Object) as Long
Dim oCell As Object
Dim oCursor As Object
Dim aAddress As Variant
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
