浏览代码

Added more detailed glCheck error messages.

Mark Sibly 8 年之前
父节点
当前提交
4a089a607f
共有 1 个文件被更改,包括 16 次插入1 次删除
  1. 16 1
      modules/mojo/graphics/glutil.monkey2

+ 16 - 1
modules/mojo/graphics/glutil.monkey2

@@ -30,7 +30,22 @@ End
 Function glCheck()
 	Local err:=glGetError()
 	If err=GL_NO_ERROR Return
-	RuntimeError( "GL ERROR! err="+err )
+	Local msg:=""
+	Select err
+	Case GL_INVALID_ENUM
+		msg="INVALID_ENUM"
+	Case GL_INVALID_VALUE
+		msg="INVALID_VALUE"
+	Case GL_INVALID_OPERATION
+		msg="INVALID_OPERATION"
+	Case GL_INVALID_FRAMEBUFFER_OPERATION
+		msg="INVALID_FRAMEBUFFER_OPERATION"
+	Case GL_OUT_OF_MEMORY
+		msg="OUT_OF_MEMORY"
+	Default
+		msg="?????"
+	End
+	RuntimeError( "GL ERROR: "+msg+" "+err )
 End
 
 #rem monkeydoc @hidden