| apebs[n2] = mkpeb(aehdr, avhdr, buf1, 0, false), n1 = align↑(datasize(buf, n1), EB_PAGE_SIZE), datasize(buf, n1) ≠ 0, avhdr.valid?, aehdr.valid?, n2 < # apebs, ubi-io-inv(apebs), n1 ≤ # buf, n1 ≤ LEB_SIZE ⊦ ⟨err := EIO; apebs0 := apebs; if err = ESUCCESS then apebs[n2] := mkpeb(apebs[n2].echdr, apebs[n2].vidhdr, subarray(buf, 0, n1) + mkempbuf(LEB_SIZE - n1), n1, apebs[n2].bad) else choose buf1 with # buf1 ≤ n1 ∧ is-aligned(# buf1, EB_PAGE_SIZE) ∧ ( datasize(buf1, # buf1) < datasize(buf, n1) ∨ checksum(buf1 + mkempbuf(n1 - # buf1), datasize(buf, n1)) ≠ checksum(buf, datasize(buf, n1))) in apebs[n2] := mkpeb(apebs[n2].echdr, apebs[n2].vidhdr, buf1 + mkempbuf(LEB_SIZE - # buf1), # buf1, apebs[n2].bad)⟩ (apebs0 = apebs) |
apebs[n2] = mkpeb(aehdr, avhdr, buf1, 0, false), n1 = align↑(datasize(buf, n1), EB_PAGE_SIZE), aehdr.valid?, avhdr.valid?, n2 < # apebs, ubi-io-inv(apebs), n1 ≤ LEB_SIZE, n1 ≤ # buf ⊦ ⟨apebs0 := apebs; if EIO = ESUCCESS then apebs[n2] := mkpeb(apebs[n2].echdr, apebs[n2].vidhdr, subarray(buf, 0, n1) + mkempbuf(LEB_SIZE - n1), n1, apebs[n2].bad) else choose buf1 with # buf1 ≤ n1 ∧ is-aligned(# buf1, EB_PAGE_SIZE) ∧ ( datasize(buf1, # buf1) < datasize(buf, n1) ∨ checksum(buf1 + mkempbuf(n1 - # buf1), datasize(buf, n1)) ≠ checksum(buf, datasize(buf, n1))) in apebs[n2] := mkpeb(apebs[n2].echdr, apebs[n2].vidhdr, buf1 + mkempbuf(LEB_SIZE - # buf1), # buf1, apebs[n2].bad)⟩ (apebs0 = apebs), datasize(buf, n1) = 0