Removes unnecessarry ReDim.

2023-03-11 08:08:55 -08:00
parent 8650ffc8d8
commit 1c44675b30
1 changed files with 0 additions and 1 deletions
--- a/dos/sbf/sbf.bas
+++ b/dos/sbf/sbf.bas
@@ -1919,7 +1919,6 @@ End Sub

 Sub FillAbilitiesForAbilityGroup (ability As Integer, items() As String)
    count = GetNumItemsForAbilityGroup(ability)
-    ReDim items(1 To count) As String
    If count > 0 Then
        ReDim items(1 To count) As String
    Else