| asynced ↔ asynced0, pcache[datakey(m, n)] = mkpentry(true, buf0), asynced0, err = ESUCCESS, ino = m, pageno = n, (files ⊕ pcache) ⊕ icache = (files1 ⊕ pcache0) ⊕ icache, n * VFS_PAGE_SIZE < m2, pcache-cons(pcache0, dirs, files1), datakey(m, n) ∈ pcache ⊦ [let key = datakey(ino, pageno) in if key ∈ pcache then let pe = pcache[key] in {buf := pe.page; asynced := true} else asynced := false; err := ESUCCESS; if err = ESUCCESS then afs_writepage#(mkinode(m, md, boolvar, m0, m1, m2), n, buf, dirs; err, files; asynced1); if err = ESUCCESS then afs_check_commit#(dirs, files; err; asynced1); if err = ESUCCESS then {asynced := false; pcache_set_status#(m, n, asynced; err, pcache)}; n := n + 1] ((files1 ⊕ pcache0) ⊕ icache = (files ⊕ pcache) ⊕ icache) |
asynced ↔ asynced0, pcache[datakey(m, n)] = mkpentry(true, buf0), asynced0, err = ESUCCESS, ino = m, key = datakey(ino, pageno), pageno = n, (files ⊕ pcache) ⊕ icache = (files1 ⊕ pcache0) ⊕ icache, n * VFS_PAGE_SIZE < m2, pcache-cons(pcache0, dirs, files1), datakey(m, n) ∈ pcache ⊦ [if key ∈ pcache then let pe = pcache[key] in {buf := pe.page; asynced := true} else asynced := false; err := ESUCCESS; if err = ESUCCESS then afs_writepage#(mkinode(m, md, boolvar, m0, m1, m2), n, buf, dirs; err, files; asynced1); if err = ESUCCESS then afs_check_commit#(dirs, files; err; asynced1); if err = ESUCCESS then {asynced := false; pcache_set_status#(m, n, asynced; err, pcache)}; n := n + 1] ((files1 ⊕ pcache0) ⊕ icache = (files ⊕ pcache) ⊕ icache)