steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

work around macosx-x86-64 bug where it tries to write glGetAttachedShaders param as a GLuint64 array instead of a GLuint. this should fix bunny/spheres crash

db4
Joe Groff 2009-05-04 15:15:36 -05:00
parent f812f70473
commit 8db397f9de
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/opengl/shaders/shaders.factor
View File

@ -92,11 +92,16 @@ PREDICATE: fragment-shader < gl-shader (fragment-shader?) ;
: gl-program-shaders-length ( program -- shaders-length ) : gl-program-shaders-length ( program -- shaders-length )
GL_ATTACHED_SHADERS gl-program-get-int ; inline GL_ATTACHED_SHADERS gl-program-get-int ; inline
! On some macosx-x86-64 graphics drivers, glGetAttachedShaders tries to treat the
! shaders parameter as a ulonglong array rather than a GLuint array as documented.
! We hack around this by allocating a buffer twice the size and sifting out the zero
! values
: gl-program-shaders ( program -- shaders ) : gl-program-shaders ( program -- shaders )
dup gl-program-shaders-length dup gl-program-shaders-length 2 *
0 <int> 0 <int>
over <uint-array> over <uint-array>
[ glGetAttachedShaders ] keep ; [ glGetAttachedShaders ] keep [ zero? not ] filter ;
: delete-gl-program-only ( program -- ) : delete-gl-program-only ( program -- )
glDeleteProgram ; inline glDeleteProgram ; inline