| # apebs = # wlar, vtblpnum < # avols[v], abs(avols, apebs, vols, q), bflipset-cons(bflipset, wlar), ebm-cons(avols), is-aligned(n, EB_PAGE_SIZE), is-aligned(vtblpnum0, EB_PAGE_SIZE), ubi-io-inv(apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum1), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum1), valid-wl(apebs, wlar), v ∈ avols, n + n0 ≤ # buf, vtblpnum0 + n ≤ LEB_SIZE, ¬ VTBL_VOLID ∈ vols, avols[v][vtblpnum].mapped? → avols[v][vtblpnum].fill ≤ vtblpnum0 ⊦ ⟪ubi_write#(v, vtblpnum, vtblpnum0, n0, n, buf, EB_PAGE_SIZE; vols, wlar, q, bflipset, vtblpnum1, sqnum, apebs; err)⟫ ⟨ebm_write#(v, vtblpnum, vtblpnum0, n0, n, buf; avols; err0)⟩ (abs(avols, apebs, vols, q) ∧ err = err0) |
# apebs = # wlar, buf0 = buf, vtblpnum = vtblpnum4, vtblpnum0 = EB_PAGE_SIZE, vtblpnum1 = vtblpnum5, vtblpnum2 = vtblpnum3, vtblpnum3 < # avols[v], abs(avols, apebs, vols, q), bflipset-cons(bflipset, wlar), ebm-cons(avols), is-aligned(vtblpnum5, EB_PAGE_SIZE), is-aligned(n, EB_PAGE_SIZE), ubi-io-inv(apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum4), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum4), valid-wl(apebs, wlar), v ∈ avols, vtblpnum5 + n ≤ LEB_SIZE, n + n0 ≤ # buf, avols[v][vtblpnum3].mapped? → avols[v][vtblpnum3].fill ≤ vtblpnum5 ⊦ ⟪if v ∈ vols ∧ vtblpnum2 < # vols[v] ∧ vtblpnum1 + n ≤ LEB_SIZE ∧ n0 + n ≤ # buf0 ∧ is-aligned(n, EB_PAGE_SIZE) ∧ is-aligned(vtblpnum1, EB_PAGE_SIZE) ∧ (vols[v][vtblpnum2] ≠ unmapped → apebs[vols[v][vtblpnum2].pnum].fill ≤ vtblpnum1) then let ebae = vols[v][vtblpnum2] in if ebae = unmapped then ubi_write_multiple#(v, vtblpnum2, vtblpnum1, n0, n, buf0, bflipset, vtblpnum; vols, wlar, q, sqnum, apebs; err) else if n ≠ 0 then {aubi_io_write_data#(ebae.pnum, vtblpnum1, n0, n, buf0; apebs; err); if err ≠ ESUCCESS then {debug#("ubi: failed to write to PEB " + ebae.pnum.toString); let buf = mkbuf(vtblpnum1 + n), bitflips = ? in {aubi_io_read_data#(ebae.pnum, 0, 0, vtblpnum1, apebs; buf; bitflips, err); if err = ESUCCESS then {buf := copy(buf0, n0, buf, vtblpnum1, n); debug#("ubi: moving data from PEB " + ebae.pnum.toString); ubi_change# (v, vtblpnum2, vtblpnum1 + n, buf, vtblpnum0; vols, wlar, q, bflipset, vtblpnum, sqnum, apebs; err)} else debug#("ubi: failed to read data from PEB " + ebae.pnum.toString)}}} else err := ESUCCESS else abort⟫ ⟨ebm_write#(v, vtblpnum3, vtblpnum5, n0, n, buf; avols; err0)⟩ (abs(avols, apebs, vols, q) ∧ err = err0), VTBL_VOLID ∈ vols
Used simplifier rules: ubi_write# (VOLID, LNUM, OFFSET, N0, N, BUF, PAGESIZE ; VOLS, WLARRAY, ERASEQ, BFLIPSET, VTBLPNUM, SQNUM, APEBS ; ERR ) {if VOLID ∈ VOLS ∧ LNUM < # VOLS[VOLID] ∧ OFFSET + N ≤ LEB_SIZE ∧ N0 + N ≤ # BUF ∧ is-aligned(N, EB_PAGE_SIZE) ∧ is-aligned(OFFSET, EB_PAGE_SIZE) ∧ ( VOLS[VOLID][LNUM] ≠ unmapped → APEBS[VOLS[VOLID][LNUM].pnum].fill ≤ OFFSET) then let EBAENT = VOLS[VOLID][LNUM] in if EBAENT = unmapped then ubi_write_multiple# (VOLID, LNUM, OFFSET, N0, N, BUF, BFLIPSET, VTBLPNUM ; VOLS, WLARRAY, ERASEQ, SQNUM, APEBS ; ERR) else if N ≠ 0 then {aubi_io_write_data# (EBAENT.pnum, OFFSET, N0, N, BUF; APEBS; ERR); if ERR ≠ ESUCCESS then {debug# ( "ubi: failed to write to PEB " + EBAENT.pnum.toString); let BUF0 = mkbuf(OFFSET + N), BITFLIPS = ? in {aubi_io_read_data# (EBAENT.pnum, 0, 0, OFFSET, APEBS ; BUF0 ; BITFLIPS, ERR); if ERR = ESUCCESS then {BUF0 := copy(BUF, N0, BUF0, OFFSET, N); debug# ( "ubi: moving data from PEB " + EBAENT.pnum.toString); ubi_change# (VOLID, LNUM, OFFSET + N, BUF0, PAGESIZE ; VOLS, WLARRAY, ERASEQ, BFLIPSET, VTBLPNUM, SQNUM, APEBS ; ERR)} else debug# ( "ubi: failed to read data from PEB " + EBAENT.pnum.toString)}}} else ERR := ESUCCESS else abort };