off-by-one fix

hukkax · Nov 23, 2020 · f70e197 · f70e197
1 parent 0e99a9b
commit f70e197
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/protracker/protracker.sample.pas b/src/protracker/protracker.sample.pas
@@ -419,7 +419,7 @@ procedure TSample.Clear;
 procedure TSample.StoreBackup;
 begin
 	BackupLength := (Length * 2) and $FFFF;
-	SetLength(Backup, BackupLength);
+	SetLength(Backup, BackupLength + 1);
 	Move(Data[0], Backup[0], BackupLength);
 end;