From 56c0238f9bc5f013cae0d487ef88dae3c29f6305 Mon Sep 17 00:00:00 2001
From: Walter van Niftrik
Date: Tue, 24 Mar 2015 11:36:26 +0100
Subject: SCI: Delete OPL when init fails

---
 engines/sci/sound/drivers/adlib.cpp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'engines/sci/sound')

diff --git a/engines/sci/sound/drivers/adlib.cpp b/engines/sci/sound/drivers/adlib.cpp
index da222fb2da..4f557be95e 100644
--- a/engines/sci/sound/drivers/adlib.cpp
+++ b/engines/sci/sound/drivers/adlib.cpp
@@ -236,8 +236,11 @@ int MidiDriver_AdLib::openAdLib(bool isSCI0) {
 	if (!_opl)
 		return -1;
 
-	if (!_opl->init())
+	if (!_opl->init()) {
+		delete _opl;
+		_opl = nullptr;
 		return -1;
+	}
 
 	setRegister(0xBD, 0);
 	setRegister(0x08, 0);
-- 
cgit v1.2.3