From: malc <av1474@comtv.ru>
Date: Sat, 1 Jun 2013 18:59:20 +0000 (+0400)
Subject: Don't operate on un(initalized|locked) page
X-Git-Tag: v16~27
X-Git-Url: https://repo.or.cz/w/llpp.git/commitdiff_plain/5da2158a4ce8ba9b765fb1e603a3027b73948ad8

Don't operate on un(initalized|locked) page
---

diff --git a/link.c b/link.c
index fd06079..196ef94 100644
--- a/link.c
+++ b/link.c
@@ -3087,15 +3087,15 @@ CAMLprim value ml_markunder (value ptr_v, value x_v, value y_v, value mark_v)
         }
     }
  unlock:
-    unlock ("ml_markunder");
-
- done:
     if (!Bool_val (ret_v)) {
         page->fmark.span = NULL;
         page->lmark.span = NULL;
         page->fmark.i = 0;
         page->lmark.i = 0;
     }
+    unlock ("ml_markunder");
+
+ done:
     CAMLreturn (ret_v);
 }