mojoshader_opengl.c
changeset 1124 464fc9101a7e
parent 1118 c383aebc9f13
child 1125 3de60f597ebd
--- a/mojoshader_opengl.c	Fri Feb 15 15:10:33 2013 -0500
+++ b/mojoshader_opengl.c	Sat Mar 23 22:51:35 2013 -0400
@@ -402,6 +402,7 @@
             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 @@
             GLsizei len = 0;
             ctx->glGetInfoLogARB(shader, sizeof (error_buffer), &len,
                                  (GLcharARB *) error_buffer);
+            ctx->glDeleteObjectARB(shader);
             *s = 0;
             return 0;
         } // if