# HG changeset patch
# User Sebastien Jodogne <s.jodogne@gmail.com>
# Date 1675236206 -3600
# Node ID 85a20cbfcc048cb79ce55d737e09d321e5173277
# Parent  c6263f514f54f0cd5b23dc16254be1ae44eda9e0
check glUseProgram()

diff -r c6263f514f54 -r 85a20cbfcc04 OrthancStone/Sources/OpenGL/OpenGLProgram.cpp
--- a/OrthancStone/Sources/OpenGL/OpenGLProgram.cpp	Wed Feb 01 08:04:51 2023 +0100
+++ b/OrthancStone/Sources/OpenGL/OpenGLProgram.cpp	Wed Feb 01 08:23:26 2023 +0100
@@ -86,6 +86,12 @@
     {
       //ORTHANC_OPENGL_TRACE_CURRENT_CONTEXT("About to call glUseProgram");
       glUseProgram(program_);
+      if (glGetError() != GL_NO_ERROR)
+      {
+        throw Orthanc::OrthancException(Orthanc::ErrorCode_InternalError,
+                                        "Cannot use successfully compiled OpenGL shader");
+      }
+      
       ORTHANC_OPENGL_CHECK("glUseProgram");
     }
         
diff -r c6263f514f54 -r 85a20cbfcc04 OrthancStone/Sources/OpenGL/OpenGLShader.cpp
--- a/OrthancStone/Sources/OpenGL/OpenGLShader.cpp	Wed Feb 01 08:04:51 2023 +0100
+++ b/OrthancStone/Sources/OpenGL/OpenGLShader.cpp	Wed Feb 01 08:23:26 2023 +0100
@@ -58,7 +58,7 @@
         GLenum error = glGetError();
 
         // Check if there were errors
-        int infoLen = 0;
+        GLint infoLen = 0;
         glGetShaderiv(shader, GL_INFO_LOG_LENGTH, &infoLen);
         ORTHANC_OPENGL_CHECK("glGetShaderiv");