vcache 0.1.1 → 0.2.0

raw patch · 2 files changed

+12/−6 lines, 2 files

Files

• hsrc_lib/Database/VCache/Write.hs +11/−5
• vcache.cabal +1/−1

@@ -328,7 +328,7 @@             bExists <- mdb_cursor_get' MDB_SET cmem pvAddr pvOldData             unless bExists (addrBug addr "undefined on update")             oldDeps <- readDataDeps vc addr =<< peek pvOldData-            let rcs' = addRefcts oldDeps rcs+            let rcs' = subRefcts oldDeps rcs             let uf = compileWriteFlags [MDB_CURRENT]             bOK <- mdb_cursor_put' uf cmem vAddr vData             unless bOK (addrBug addr "could not updated")@@ -341,7 +341,7 @@                    hashVal vOldData >>= \ h ->                    return (addHash h addr hs)             oldDeps <- readDataDeps vc addr vOldData-            let rcs' = addRefcts oldDeps rcs+            let rcs' = subRefcts oldDeps rcs             let df = compileWriteFlags []             mdb_cursor_del' df cmem             return (UpdateNotes rcs' hs')@@ -351,12 +351,12 @@             if (addr >= allocStart) then create rcs addr bytes else             update rcs addr bytes +     (UpdateNotes rcOld delSeek) <- foldM processCell emptyNotes (Map.toAscList fb)     mdb_cursor_close' cmem      assertValidOldDeps allocStart rcOld -- sanity check-    let rcNew = Map.foldr' (addRefcts . fmap putChildAddr . snd) Map.empty fb-    let rcDiff = Map.unionWith (-) rcNew rcOld+    let rcDiff = Map.foldr' (addRefcts . fmap putChildAddr . snd) rcOld fb     return (UpdateNotes rcDiff delSeek) {-# NOINLINE updateVirtualMemory #-} @@ -366,9 +366,15 @@ addHash h addr = Map.alter f h where     f = Just . (addr:) . maybe [] id  +-- subtract 1 from each address refct+subRefcts :: [Address] -> RefctDiff -> RefctDiff+subRefcts = flip (L.foldl' altr) where+    altr = flip $ Map.alter (Just . maybe (-1) (subtract 1))++-- add 1 to each address refct addRefcts :: [Address] -> RefctDiff -> RefctDiff addRefcts = flip (L.foldl' altr) where-    altr rc addr = Map.alter (Just . maybe 1 (+ 1)) addr rc +    altr = flip $ Map.alter (Just . maybe 1 (+ 1))  -- sanity check: we should never have dependencies from -- old content into the newly allocated space.   

@@ -1,5 +1,5 @@ Name: vcache-Version: 0.1.1+Version: 0.2.0 Synopsis: large, persistent, memcached values and structure sharing for Haskell  Category: Database Description: