| # buf = VFS_PAGE_SIZE, files0[m] = mkfile(m0, md, m1, content), pcache[datakey(m, n)] = mkpentry(true, buf), err = ESUCCESS, (files0 ⊕ pcache) ⊕ icache = (files1 ⊕ pcache0) ⊕ icache, n * VFS_PAGE_SIZE < m2, pcache-cons(pcache0, dirs, files1), datakey(m, n) ∈ pcache, m ∈ files0 ⊦ [pcache_set_status#(m, n, false; err, pcache); n0 := n + 1] ((files1 ⊕ pcache0) ⊕ icache = (files0[m, mkfile(m0, md, m1, content[n, buf])] ⊕ pcache) ⊕ icache) |
# buf = VFS_PAGE_SIZE, asynced ↔ false, pcache[datakey(m, n)] = mkpentry(true, buf), files0[m] = mkfile(m0, md, m1, content), err = ESUCCESS, ino = m, pageno = n, (files0 ⊕ pcache) ⊕ icache = (files1 ⊕ pcache0) ⊕ icache, n * VFS_PAGE_SIZE < m2, pcache-cons(pcache0, dirs, files1), m ∈ files0, datakey(m, n) ∈ pcache ⊦ [let key = datakey(ino, pageno), pe = ? in if key ∈ pcache then {pe := pcache[key]; pe := mkpentry(asynced, pe.page); pcache[key] := pe} else err := EFAIL; n0 := n + 1] ((files1 ⊕ pcache0) ⊕ icache = (files0[m, mkfile(m0, md, m1, content[n, buf])] ⊕ pcache) ⊕ icache)
Used simplifier rules: pcache_set_status#(INO, PAGENO, DIRTY; ERR, PCACHE) {let KEY = datakey(INO, PAGENO), PE = ? in if KEY ∈ PCACHE then {PE := PCACHE[KEY]; PE := mkpentry(DIRTY, PE.page); PCACHE[KEY] := PE} else ERR := EFAIL };