From 1c44675b30ebcc7d2a61c0bedf0e5cd0ae3ff9a5 Mon Sep 17 00:00:00 2001
From: Tom Hicks <headhunter3@gmail.com>
Date: Sat, 11 Mar 2023 08:08:55 -0800
Subject: [PATCH] Removes unnecessarry ReDim.

---
 dos/sbf/sbf.bas | 1 -
 1 file changed, 1 deletion(-)

diff --git a/dos/sbf/sbf.bas b/dos/sbf/sbf.bas
index 8d84894..9d2a61d 100644
--- 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