| buf = mkbuf(VFS_PAGE_SIZE), buf0 = buf1, err = ESUCCESS, ino = (ino2 + ino0) % VFS_PAGE_SIZE, ino0 = n3, ino1 = n1, ino2 = n0, ¬ isdir, n = min(ino1 - ino2 + ino0, VFS_PAGE_SIZE - ino, inode.size - ino2 + ino0), pageno = (ino2 + ino0) / VFS_PAGE_SIZE, read-inv(n0, n1, inode, buf2, buf1, n3, dirs, files), read-inv(n0, n1, inode, buf2, buf3, n2, dirs, files), inode.size ≥ ino2 + ino0, VFS_PAGE_SIZE ≥ ino, ino1 ≥ ino2 + ino0 ⊦ [afs_readpage#(inode, pageno, dirs, files, asynced; buf, err); if err = ESUCCESS then {buf0 := copy(buf, ino, buf0, ino0, n); ino0 := ino0 + n}] read-inv(n0, n1, inode, buf2, buf0, ino0, dirs, files), VFS_PAGE_SIZE = 0, n = 0 |
buf = mkbuf(VFS_PAGE_SIZE), err = ESUCCESS, VFS_PAGE_SIZE - (n0 + n3) % VFS_PAGE_SIZE ≠ 0, inode.size ≠ n0 + n3, n1 ≠ n0 + n3, n0 + n3 < inode.size, n0 + n3 < n1, read-inv(n0, n1, inode, buf2, buf1, n3, dirs, files), read-inv(n0, n1, inode, buf2, buf3, n2, dirs, files) ⊦ [afs_readpage#(inode, (n0 + n3) / VFS_PAGE_SIZE, dirs, files, asynced; buf, err); n := min(n1 - n0 + n3, VFS_PAGE_SIZE - (n0 + n3) % VFS_PAGE_SIZE, inode.size - n0 + n3); if err = ESUCCESS then {buf1 := copy(buf, (n0 + n3) % VFS_PAGE_SIZE, buf1, n3, n); n3 := n3 + n}] read-inv(n0, n1, inode, buf2, buf1, n3, dirs, files)
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m ≠ n → (m ≤ n ↔ m < n); (s)%n ≠ 0 ⊦ m % n ≤ n; (s)% ⊦ m ≤ n → (n - m = 0 ↔ n = m); (s)% ⊦ n ≥ m ↔ m ≤ n; (s)% ⊦ VFS_PAGE_SIZE ≠ 0; (s)% ⊦ min(n0, n1, n2) = 0 ↔ n0 = 0 ∨ n1 = 0 ∨ n2 = 0; (ws)