mongodb: pin non-native instances to avoid GC crashes

Signed-off-by: Alexandre Terrasa <alexandre@moz-code.org>

diff --git a/lib/mongodb/mongodb.nit b/lib/mongodb/mongodb.nit
index 624dc8a..78f2fb8 100644 (file)
--- a/lib/mongodb/mongodb.nit
+++ b/lib/mongodb/mongodb.nit
@@ -115,7 +115,13 @@ private class BSON
        # ~~~
        fun to_json: JsonObject do
                assert is_alive
-               return to_s.parse_json.as(JsonObject)
+               var json = to_s.parse_json
+               if json isa JsonParseError then
+                       print to_s
+                       print json.message
+                       sys.exit 1
+               end
+               return json.as(JsonObject)
        end
 
        redef fun finalize do
@@ -512,8 +518,12 @@ class MongoCollection
        # ~~~
        fun save(doc: JsonObject): Bool do
                assert is_alive
-               var res = native.save(doc.to_bson.native)
+               var bson = doc.to_bson
+               var nat = bson.native
+               var res = native.save(nat)
                if res then set_id(doc)
+               assert nat != self #FIXME used to avoid GC crashes
+               assert bson != self #FIXME used to avoid GC crashes
                return res
        end
 
@@ -605,8 +615,12 @@ class MongoCollection
                q.destroy
                if c == null then return null
                var cursor = new MongoCursor(c)
-               if cursor.is_ok then return cursor.item
-               return null
+               if not cursor.is_ok then
+                       return null
+               end
+               var item = cursor.item
+               assert cursor != self
+               return item
        end
 
        # Finds all the documents matching the `query`.