From f375101ecf3a3b4f5c361fa004123c9927cfeb59 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sun, 2 Dec 2012 22:36:01 +0400
Subject: [PATCH] Unbind buffer before calling functions that can throw

---
 link.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/link.c b/link.c
index a7e91b3..c2ac33b 100644
--- a/link.c
+++ b/link.c
@@ -3395,6 +3395,7 @@ CAMLprim value ml_getpbo (value w_v, value h_v, value cs_v)
                                NULL, GL_STREAM_DRAW);
         pbo->ptr = state.glMapBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB,
                                          GL_READ_WRITE);
+        state.glBindBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB, 0);
         if (!pbo->ptr) {
             fprintf (stderr, "glMapBufferARB failed: %#x", glGetError ());
             state.glDeleteBuffersARB (1, &pbo->id);
@@ -3420,7 +3421,6 @@ CAMLprim value ml_getpbo (value w_v, value h_v, value cs_v)
             ret_v = caml_copy_string (s);
             free (s);
         }
-        state.glBindBufferARB (GL_PIXEL_UNPACK_BUFFER_ARB, 0);
     }
     else {
         ret_v = caml_copy_string ("0");
-- 
2.11.4.GIT