| files0[m] = mkfile(m0, md0, m1, content), n * VFS_PAGE_SIZE < m2, m ∈ files0 ⊦ [/* (fsync-pages-overwrite : invariant afs-cons(dirs0, files) ∧ pcache-cons(pcache, dirs0, files) ∧ getinode(m, dirs0, files) = getinode(m, dirs0, files`) ∧ m = mkinode(m, md, false, m1, 0, m2).ino ∧ m ∈ files ∧ (∀ key. (key ∈ pcache ↔ key ∈ pcache`) ∧ pcache[key].page = (pcache`)[key].page ∧ (pcache[key].dirty → (pcache`)[key].dirty)) ∧ ( ESUCCESS = ESUCCESS → (∀ pageno. (pageno < n ⊃ (pageno ∈ files[m].content ↔ pageno ∈ (files` ⊕ pcache`)[m].content) ∧ files[m].content[pageno] = (files` ⊕ pcache`)[m].content[pageno] ;(pageno ∈ files[m].content ↔ pageno ∈ (files`)[m].content) ∧ files[m].content[pageno] = (files`)[m].content[pageno] )))) */; err := ESUCCESS; pcache_check_page#(m, n, pcache; asynced0, asynced, err); dirs := dirs0; if asynced0 ∧ asynced then let buf = ? in {pcache_get#(m, n, pcache; asynced0, buf, err); if err = ESUCCESS then afs_writepage#(mkinode(m, md, false, m1, 0, 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] (dirs = dirs0) |
files0[m] = mkfile(m0, md0, m1, content), n * VFS_PAGE_SIZE < m2, m ∈ files0 ⊦ [err := ESUCCESS; pcache_check_page#(m, n, pcache; asynced0, asynced, err); dirs := dirs0; if asynced0 ∧ asynced then let buf = ? in {pcache_get#(m, n, pcache; asynced0, buf, err); if err = ESUCCESS then afs_writepage#(mkinode(m, md, false, m1, 0, 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] (dirs = dirs0)