treat GLhandleARB as UV since on _APPLE is void*

Perl-GPU · Jun 21, 2024 · 50995d8 · 50995d8
1 parent f099f01
commit 50995d8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/pogl_gl_Mult_Prog.xs b/pogl_gl_Mult_Prog.xs
@@ -1029,7 +1029,7 @@ glGetAttachedObjectsARB_p(containerObj)
 
 		EXTEND(sp, count);
 		for(i=0;i<count;i++)
-			PUSHs(sv_2mortal(newSViv(obj[i])));
+			PUSHs(sv_2mortal(newSViv((IV)obj[i])));
 
 		free(obj);
 	}

diff --git a/typemap b/typemap
@@ -19,7 +19,7 @@ GLboolean		T_BOOL
 GLenum			T_INT
 GLbitfield		T_INT
 GLcharARB		T_CHAR
-GLhandleARB		T_U_INT
+GLhandleARB		T_UV
 
 GLUnurbsObj *		T_PTROBJ
 GLUquadricObj *		T_PTROBJ