| err = ESUCCESS, ¬ isdir, read-inv(n0, n1, inode, buf0, buf1, n, dirs, files), read-inv(n0, n1, inode, buf0, buf, n2, dirs, files) ⊦ [vfs_read_block#(n0, n1, inode, dirs, files, asynced; buf1, n, isdir, err)] read-inv(n0, n1, inode, buf0, buf1, n, dirs, files) |
buf0 = buf1, err = ESUCCESS, ino0 = n, ino1 = n1, ino2 = n0, ¬ isdir, read-inv(n0, n1, inode, buf2, buf, n2, dirs, files), read-inv(n0, n1, inode, buf2, buf1, n, dirs, files) ⊦ [let pageno = (ino2 + ino0) / VFS_PAGE_SIZE, ino = (ino2 + ino0) % VFS_PAGE_SIZE, buf = mkbuf(VFS_PAGE_SIZE) in let n = min(ino1 - ino2 + ino0, VFS_PAGE_SIZE - ino, inode.size - ino2 + ino0) in if n ≠ 0 then {afs_readpage#(inode, pageno, dirs, files, asynced; buf, err); if err = ESUCCESS then {buf0 := copy(buf, ino, buf0, ino0, n); ino0 := ino0 + n}} else isdir := true] read-inv(n0, n1, inode, buf2, buf0, ino0, dirs, files)
Used simplifier rules: vfs_read_block# (START, END, INODE, DIRS, FILES, ASYNCED; BUF, TOTAL, DONE, ERR) {let PAGENO = (START + TOTAL) / VFS_PAGE_SIZE, OFFSET = (START + TOTAL) % VFS_PAGE_SIZE, PBUF = mkbuf(VFS_PAGE_SIZE) in let N = min (END - START + TOTAL, VFS_PAGE_SIZE - OFFSET, INODE.size - START + TOTAL) in if N ≠ 0 then {afs_readpage# (INODE, PAGENO, DIRS, FILES, ASYNCED; PBUF, ERR); if ERR = ESUCCESS then {BUF := copy(PBUF, OFFSET, BUF, TOTAL, N); TOTAL := TOTAL + N}} else DONE := true };