File static-virtual.patch of Package ultrastar-deluxe

From 1b8e8714c1523ef49c2fd689a1545d097a3d76d7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gl=C3=B6ckner?= <daniel-gl@gmx.net>
Date: Sun, 22 Dec 2019 15:50:18 +0100
Subject: [PATCH] static class methods can not be virtual

Fixes build with bleeding edge Free Pascal
---
 src/base/UMusic.pas               | 2 +-
 src/media/UAudioPlayback_Bass.pas | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/base/UMusic.pas b/src/base/UMusic.pas
index c80e877c3..4ddd7971d 100644
--- a/src/base/UMusic.pas
+++ b/src/base/UMusic.pas
@@ -250,7 +250,7 @@   TSoundFX = class
       procedure Init(); virtual; abstract;
       procedure Removed(); virtual; abstract;
 
-      class function CanEnable: boolean; virtual; abstract; static;
+      class function CanEnable: boolean; virtual; abstract;
 
       function GetType: DWORD; virtual; abstract;
       function GetPriority: LongInt; virtual; abstract;
diff --git a/src/media/UAudioPlayback_Bass.pas b/src/media/UAudioPlayback_Bass.pas
index aee72e2d9..1d46ce08a 100644
--- a/src/media/UAudioPlayback_Bass.pas
+++ b/src/media/UAudioPlayback_Bass.pas
@@ -144,7 +144,7 @@   TReplayGain_Bass = class(TReplayGain)
     private
       procedure Init(); override;
     public
-      class function CanEnable(): boolean; override; static;
+      class function CanEnable(): boolean; override;
 
       function GetType: DWORD; override;
       function GetPriority: LongInt; override;