From 869418a0f61a29267f4b32366b6f3fa250f0c207 Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <icculus@icculus.org>
Date: Sat, 23 Mar 2013 22:51:35 -0400
Subject: [PATCH] Leak fix: delete GLSL shader objects if we fail to compile.

---
 mojoshader_opengl.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/mojoshader_opengl.c b/mojoshader_opengl.c
index 3a2e6d34..a5641b5a 100644
--- a/mojoshader_opengl.c
+++ b/mojoshader_opengl.c
@@ -402,6 +402,7 @@ static int impl_GLSL_CompileShader(const MOJOSHADER_parseData *pd, GLuint *s)
             GLsizei len = 0;
             ctx->glGetInfoLogARB(shader, sizeof (error_buffer), &len,
                                  (GLchar *) error_buffer);
+            ctx->glDeleteShader(shader);
             *s = 0;
             return 0;
         } // if
@@ -421,6 +422,7 @@ static int impl_GLSL_CompileShader(const MOJOSHADER_parseData *pd, GLuint *s)
             GLsizei len = 0;
             ctx->glGetInfoLogARB(shader, sizeof (error_buffer), &len,
                                  (GLcharARB *) error_buffer);
+            ctx->glDeleteObjectARB(shader);
             *s = 0;
             return 0;
         } // if