| # apebs0 = # wlar0, wlar0[m] = wl-entry(m0, erasing), apebs = apebs0, vtblpnum0 = m, wlar = wlar0, m < # wlar0, bflipset-cons(bflipset, wlar0), ubi-io-inv(apebs0), unique-sqns(apebs0), valid-ebatbl(apebs0, wlar0, vols, vtblpnum), valid-eraseq(q0 + eq-entry(m, lref) ' + q1), valid-eraseq(wlar0, q0 + eq-entry(m, lref) ' + q1), valid-eraseq(apebs0, q0 + eq-entry(m, lref) ' + q1), valid-global-sqn(apebs0, sqnum), valid-vtbl(apebs0, vols, wlar0, vtblpnum), valid-wl(apebs0, wlar0) ⊦ ⟪err := EIO; let vtblpnum = 0 in {while err ≠ ESUCCESS ∧ vtblpnum ≤ UBI_ERASE_RETRIES do {wlar[vtblpnum0].ec := wlar[vtblpnum0].ec + 1; aubi_io_sync_erase#(vtblpnum0; apebs; err); if err = ESUCCESS then aubi_io_write_echdr#(vtblpnum0, aechdr(wlar[vtblpnum0].ec); apebs; err) else debug#("ubi: erase of PEB " + vtblpnum0.toString + " failed"); vtblpnum := vtblpnum + 1}; if err = ESUCCESS then wlar[vtblpnum0].status := free else {aubi_io_markbad#(vtblpnum0; apebs; err); if err = ESUCCESS then wlar[vtblpnum0].status := erroneous else debug#("ubi: marking PEB " + vtblpnum0.toString + " as bad failed")}}⟫ ( ( err = ESUCCESS → # apebs = # wlar ∧ unique-sqns(apebs) ∧ valid-global-sqn(apebs, sqnum) ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(wlar, q0 + q1) ∧ valid-eraseq(apebs, q0 + q1) ∧ bflipset-cons(bflipset, wlar) ∧ valid-ebatbl(apebs, wlar, vols, vtblpnum) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum)) ∧ ( err ≠ ESUCCESS → # apebs = # wlar ∧ unique-sqns(apebs) ∧ valid-global-sqn(apebs, sqnum) ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(wlar, q0 + eq-entry(m, lref) ' + q1) ∧ valid-eraseq(apebs, q0 + eq-entry(m, lref) ' + q1) ∧ bflipset-cons(bflipset, wlar) ∧ valid-ebatbl(apebs, wlar, vols, vtblpnum) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum)) ∧ ubi-io-inv(apebs) ∧ wlar[m].status ≠ used ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ id○(wlar, wlar0, m) ∧ id○(apebs, apebs0, m) ∧ id(apebs, apebs0, mapped-pebs(vols))), vtblpnum = m, vtblpnum ∈ q1, vtblpnum ∈ q0, VTBL_VOLID ∈ vols |
# apebs0 = # wlar0, wlar0[m] = wl-entry(m0, erasing), apebs = apebs0, vtblpnum0 = m, wlar = wlar0, m < # wlar0, bflipset-cons(bflipset, wlar0), ubi-io-inv(apebs0), unique-sqns(apebs0), valid-ebatbl(apebs0, wlar0, vols, vtblpnum), valid-eraseq(apebs0, q0 + eq-entry(m, lref) ' + q1), valid-eraseq(wlar0, q0 + eq-entry(m, lref) ' + q1), valid-eraseq(q0 + eq-entry(m, lref) ' + q1), valid-global-sqn(apebs0, sqnum), valid-vtbl(apebs0, vols, wlar0, vtblpnum), valid-wl(apebs0, wlar0) ⊦ ⟪let vtblpnum = 0 in {err := EIO; while err ≠ ESUCCESS ∧ vtblpnum ≤ UBI_ERASE_RETRIES do {wlar[vtblpnum0].ec := wlar[vtblpnum0].ec + 1; aubi_io_sync_erase#(vtblpnum0; apebs; err); if err = ESUCCESS then aubi_io_write_echdr#(vtblpnum0, aechdr(wlar[vtblpnum0].ec); apebs; err) else debug#("ubi: erase of PEB " + vtblpnum0.toString + " failed"); vtblpnum := vtblpnum + 1}; if err = ESUCCESS then wlar[vtblpnum0].status := free else {aubi_io_markbad#(vtblpnum0; apebs; err); if err = ESUCCESS then wlar[vtblpnum0].status := erroneous else debug#("ubi: marking PEB " + vtblpnum0.toString + " as bad failed")}}⟫ ( ( err = ESUCCESS → # apebs = # wlar ∧ unique-sqns(apebs) ∧ valid-global-sqn(apebs, sqnum) ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(wlar, q0 + q1) ∧ valid-eraseq(apebs, q0 + q1) ∧ bflipset-cons(bflipset, wlar) ∧ valid-ebatbl(apebs, wlar, vols, vtblpnum) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum)) ∧ ( err ≠ ESUCCESS → # apebs = # wlar ∧ unique-sqns(apebs) ∧ valid-global-sqn(apebs, sqnum) ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(wlar, q0 + eq-entry(m, lref) ' + q1) ∧ valid-eraseq(apebs, q0 + eq-entry(m, lref) ' + q1) ∧ bflipset-cons(bflipset, wlar) ∧ valid-ebatbl(apebs, wlar, vols, vtblpnum) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum)) ∧ ubi-io-inv(apebs) ∧ wlar[m].status ≠ used ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ id○(wlar, wlar0, m) ∧ id○(apebs, apebs0, m) ∧ id(apebs, apebs0, mapped-pebs(vols))), vtblpnum = m, VTBL_VOLID ∈ vols, vtblpnum ∈ q0, vtblpnum ∈ q1