https://bugs.documentfoundation.org/show_bug.cgi?id=129256
--- Comment #8 from Mike Kaganski <[email protected]> ---
(In reply to Julien Nabet from comment #7)
Oh sorry! The ReDimTest is 3 tests. Could you please create two graphs
separately for ReDimTest1 and ReDimTest2 in
> Type TCustomType
> m_arr(20) As Long
> m_str As String
> End Type
>
> Sub CustomReDim1(ByRef A() As TCustomType, newU As Long)
> ReDim Preserve A(newU)
> End Sub
>
> Sub CustomReDim2(ByRef A(), newU As Long)
> Dim oldU As Long, emptyVal As TCustomType, i As Long
> oldU = UBound(A)
> ReDim Preserve A(newU)
> For i = oldU + 1 To newU
> A(i) = emptyVal
> Next i
> End Sub
>
> Sub ReDimTest1
> Dim A(0) As TCustomType, i As Long
> Const maxIter = 2000
> For i = 1 To maxIter
> CustomReDim1(A, i)
> Next i
> End Sub
>
> Sub ReDimTest2
> Dim A(0) As TCustomType, i As Long
> Const maxIter = 2000
> For i = 1 To maxIter
> CustomReDim2(A, i)
> Next i
> End Sub
Thank you!
--
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
