changes for app/shadertoy (#57)

* typo fix * add iv_ptr Thanks for the contributions, Dmitry.
Perl-GPU · Jun 13, 2017 · c0f2575 · c0f2575
1 parent 9257866
commit c0f2575
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/lib/OpenGL/Modern/Helpers.pm b/lib/OpenGL/Modern/Helpers.pm
@@ -149,6 +149,7 @@ $VERSION = '0.01_02';
   pack_GLint
   pack_GLstrings
   pack_ptr
+  iv_ptr
   xs_buffer
 
   glGetShaderInfoLog_p
@@ -219,6 +220,11 @@ sub pack_ptr {
     return pack 'P', $_[0];
 }
 
+sub iv_ptr {
+    $_[0] = "\0" x $_[1];
+    return unpack( $PACK_TYPE, pack('P', $_[0]));
+}
+
 # No parameter declaration because we don't want copies
 # This makes a packed string buffer of desired length.
 # As above, be careful of the variable scopes.
@@ -241,8 +247,8 @@ sub get_info_log_p {
     return substr $buffer, 0, $len;
 }
 
-sub glGetShaderInfoLog_p  { get_info_log_p \&glGetShaderInfoLog,  @_ }
-sub glGetProgramInfoLog_p { get_info_log_p \&glGetProgramInfoLog, @_ }
+sub glGetShaderInfoLog_p  { get_info_log_p \&glGetShaderInfoLog_c,  @_ }
+sub glGetProgramInfoLog_p { get_info_log_p \&glGetProgramInfoLog_c, @_ }
 
 sub glGetVersion_p {