Added get_program_info_log

gl2.rs

@@ -622,6 +622,18 @@ pub fn get_program_iv(program: GLuint, pname: GLenum) -> GLint {
     }
 }
 
+pub fn get_program_info_log(program: GLuint) -> ~str {
+    unsafe {
+        let result = from_elem(1024u, 0u8);
+        let result_len: GLsizei = 0 as GLsizei;
+        ll::glGetProgramInfoLog(program,
+                               1024 as GLsizei,
+                               to_unsafe_ptr(&result_len),
+                               to_ptr(result) as *GLchar);
+        return from_bytes(result);
+    }
+}
+
 pub fn get_shader_info_log(shader: GLuint) -> ~str {
     unsafe {
         let result = from_elem(1024u, 0u8);