| # lpt0 = # lpt, m8 + # lpt = # avol, sb1.log = 1, avol[m4] = mapped(buf1), avol[m5] = mapped(buf0), avol[0] = mapped(buf), m = # avol - m8, m0 = LEB_SIZE, sb = mksb(adr0, m2, m4, m5, m6, m7, m8), sb1 = ((sb.indexaddr:= adr).maxino:= m3).orphsize:= # orphans, disk-layout(mksb(adr0, m2, m4, m5, m6, m7, m8), # lpt), ebm-vol-inv(avol), is-encoded(mksb(adr0, m2, m4, m5, m6, m7, m8), buf), is-encoded(lpt0, lebs(avol, m7, lptlebs(# lpt, LEB_SIZE))), is-encoded(log, buf1), is-encoded-pad(orphans0, m6, buf0), mapped-full?(avol, m7, lptlebs(# lpt, LEB_SIZE)), # avol ≥ m8, logoff ≠ LEB_SIZE → # buf1 = logoff ⊦ ⟪sb1 := (sb1.log:= 2).orph:= 4; sb1.lpt := 5 + lptlebs(m, m0); avol1 := avol; ebm_avol_remap#(sb1.log; avol; err); ns := orphans; m1 := EB_PAGE_SIZE; if err = ESUCCESS then persistence_io_write_orphans#(sb1.orph, m1, m0; orphans, avol; err); if err = ESUCCESS then let buf = ? in {persistence_io_encode_lpt#(lpt, m0; ; buf, err); if err = ESUCCESS then persistence_io_write_lebs#(sb1.lpt, lptlebs(m, m0), buf, m0; avol; err)}; if err = ESUCCESS then ebm_avol_sync_device#(avol; ; err); if err = ESUCCESS then persistence_io_write_superblock#(sb1, m1, m0; avol; err); sb0 := mksb(adr0, m2, m4, m5, m6, m7, m8); if err = ESUCCESS then {sb0 := sb1; logoff := 0}⟫ ( (∃ lpt1, log, orphans. disk-layout(sb0, # lpt1) ∧ sb0.main + # lpt1 = # avol ∧ avol[0].mapped? ∧ is-encoded(sb0, avol[0].data) ∧ avol[sb0.orph].mapped? ∧ is-encoded-pad(orphans, sb0.orphsize, avol[sb0.orph].data) ∧ avol[sb0.log].mapped? ∧ (logoff ≠ LEB_SIZE → # avol[sb0.log].data = logoff) ∧ is-encoded(log, avol[sb0.log].data) ∧ mapped-full?(avol, sb0.lpt, lptlebs(# lpt1, LEB_SIZE)) ∧ is-encoded(lpt1, lebs(avol, sb0.lpt, lptlebs(# lpt1, LEB_SIZE)))) ∧ ebm-vol-inv(avol) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → sb0.indexaddr = adr ∧ sb0.maxino = m3 ∧ avol[sb0.log].data = mkbuf(0) ∧ is-encoded(lpt, lebs(avol, sb0.lpt, lptlebs(# avol - sb0.main, LEB_SIZE))) ∧ is-encoded-pad(ns, sb0.orphsize, avol[sb0.orph].data)) ∧ ( err ≠ ESUCCESS → sb0 = mksb(adr0, m2, m4, m5, m6, m7, sb0.main) ∧ avol[m4] = avol1[m4] ∧ avol[m5] = avol1[m5] ∧ lebs(avol, m7, lptlebs(# avol - sb0.main, LEB_SIZE)) = lebs(avol1, m7, lptlebs(# avol - sb0.main, LEB_SIZE))) ∧ sb0.main = m8 ∧ # avol = # avol1 ∧ subarray(avol, sb0.main, # avol - sb0.main) = subarray(avol1, sb0.main, # avol - sb0.main)) |
# lpt0 = # lpt, m8 + # lpt = # avol, sb1.log = 1, avol[0] = mapped(buf), avol[m5] = mapped(buf0), avol[m4] = mapped(buf1), m = # avol - m8, m0 = LEB_SIZE, sb = mksb(adr0, m2, m4, m5, m6, m7, m8), sb1 = ((sb.indexaddr:= adr).maxino:= m3).orphsize:= # orphans, disk-layout(mksb(adr0, m2, m4, m5, m6, m7, m8), # lpt), ebm-vol-inv(avol), is-encoded(log, buf1), is-encoded(lpt0, lebs(avol, m7, lptlebs(# lpt, LEB_SIZE))), is-encoded(mksb(adr0, m2, m4, m5, m6, m7, m8), buf), is-encoded-pad(orphans0, m6, buf0), mapped-full?(avol, m7, lptlebs(# lpt, LEB_SIZE)), # avol ≥ m8, logoff ≠ LEB_SIZE → # buf1 = logoff ⊦ ⟪sb1 := ((sb1.log:= 2).orph:= 4).lpt:= (5 + lptlebs(m, m0)); avol1 := avol; ebm_avol_remap#(sb1.log; avol; err); ns := orphans; m1 := EB_PAGE_SIZE; if err = ESUCCESS then persistence_io_write_orphans#(sb1.orph, m1, m0; orphans, avol; err); if err = ESUCCESS then let buf = ? in {persistence_io_encode_lpt#(lpt, m0; ; buf, err); if err = ESUCCESS then persistence_io_write_lebs#(sb1.lpt, lptlebs(m, m0), buf, m0; avol; err)}; if err = ESUCCESS then ebm_avol_sync_device#(avol; ; err); if err = ESUCCESS then persistence_io_write_superblock#(sb1, m1, m0; avol; err); sb0 := mksb(adr0, m2, m4, m5, m6, m7, m8); if err = ESUCCESS then {sb0 := sb1; logoff := 0}⟫ ( (∃ lpt1, log, orphans. disk-layout(sb0, # lpt1) ∧ sb0.main + # lpt1 = # avol ∧ avol[0].mapped? ∧ is-encoded(sb0, avol[0].data) ∧ avol[sb0.orph].mapped? ∧ is-encoded-pad(orphans, sb0.orphsize, avol[sb0.orph].data) ∧ avol[sb0.log].mapped? ∧ (logoff ≠ LEB_SIZE → # avol[sb0.log].data = logoff) ∧ is-encoded(log, avol[sb0.log].data) ∧ mapped-full?(avol, sb0.lpt, lptlebs(# lpt1, LEB_SIZE)) ∧ is-encoded(lpt1, lebs(avol, sb0.lpt, lptlebs(# lpt1, LEB_SIZE)))) ∧ ebm-vol-inv(avol) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → sb0.indexaddr = adr ∧ sb0.maxino = m3 ∧ avol[sb0.log].data = mkbuf(0) ∧ is-encoded(lpt, lebs(avol, sb0.lpt, lptlebs(# avol - sb0.main, LEB_SIZE))) ∧ is-encoded-pad(ns, sb0.orphsize, avol[sb0.orph].data)) ∧ ( err ≠ ESUCCESS → sb0 = mksb(adr0, m2, m4, m5, m6, m7, sb0.main) ∧ avol[m4] = avol1[m4] ∧ avol[m5] = avol1[m5] ∧ lebs(avol, m7, lptlebs(# avol - sb0.main, LEB_SIZE)) = lebs(avol1, m7, lptlebs(# avol - sb0.main, LEB_SIZE))) ∧ sb0.main = m8 ∧ # avol = # avol1 ∧ subarray(avol, sb0.main, # avol - sb0.main) = subarray(avol1, sb0.main, # avol - sb0.main))