From 11561948818138c779a8eb260a133068a76106e4 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Stefan=20D=C3=B6singer?= <stefan@codeweavers.com>
Date: Tue, 8 Jan 2008 20:56:22 +0100
Subject: [PATCH] wined3d: Destroy arb shaders on shader destroy.

---
 dlls/wined3d/arb_program_shader.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/dlls/wined3d/arb_program_shader.c b/dlls/wined3d/arb_program_shader.c
index 6bdf2656f96..5c1e5c32f23 100644
--- a/dlls/wined3d/arb_program_shader.c
+++ b/dlls/wined3d/arb_program_shader.c
@@ -1734,7 +1734,12 @@ static void shader_arb_cleanup(IWineD3DDevice *iface) {
 
 static void shader_arb_destroy(IWineD3DBaseShader *iface) {
     IWineD3DBaseShaderImpl *This = (IWineD3DBaseShaderImpl *) iface;
+    WineD3D_GL_Info *gl_info = &((IWineD3DDeviceImpl *) This->baseShader.device)->adapter->gl_info;
 
+    ENTER_GL();
+    GL_EXTCALL(glDeleteProgramsARB(1, &This->baseShader.prgId));
+    checkGLcall("GL_EXTCALL(glDeleteProgramsARB(1, &This->baseShader.prgId))");
+    LEAVE_GL();
     This->baseShader.prgId = 0;
     This->baseShader.is_compiled = FALSE;
 }
-- 
2.11.4.GIT