From f17e1c3f2a2175e7527f10fef8a470fd23d08722 Mon Sep 17 00:00:00 2001
From: "J.D. Purcell" <jdpurcell@gmail.com>
Date: Sat, 8 Apr 2017 15:31:02 -0400
Subject: [PATCH] Fix in OpenGL cleanup.

---
 Bizware/BizHawk.Bizware.BizwareGL.OpenTK/IGL_TK.cs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Bizware/BizHawk.Bizware.BizwareGL.OpenTK/IGL_TK.cs b/Bizware/BizHawk.Bizware.BizwareGL.OpenTK/IGL_TK.cs
index 364bb05f51..7bf1154656 100644
--- a/Bizware/BizHawk.Bizware.BizwareGL.OpenTK/IGL_TK.cs
+++ b/Bizware/BizHawk.Bizware.BizwareGL.OpenTK/IGL_TK.cs
@@ -354,7 +354,8 @@ namespace BizHawk.Bizware.BizwareGL.Drivers.OpenTK
 
 		public void Internal_FreeShader(Shader shader)
 		{
-			GL.DeleteShader((int)shader.Opaque);
+			var sw = shader.Opaque as ShaderWrapper;
+			GL.DeleteShader(sw.sid);
 		}
 
 		public void BindPipeline(Pipeline pipeline)