| # lpt0 = # avol, # lpt = # avol, # gndx = # lax, LEB_SIZE = n0 + # buf1, LEB_SIZE = n1 + # avol[m5].data, avol[m5] = mapped(buf1), m < LEB_SIZE, m5 < # avol, abs-nodes(buf1, gndx, lax, true), awbuf-inv(avol, bleb), buf-ro-rw-mode(isbuf, bleb, lpt0, avol), bufs-log-only(bleb, log0, lpt0), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt0, lpt, log0), read-gblock-inv(m5, m, ax, gndx0, ax1, gndx2, buf1, false), # buf1 ≤ LEB_SIZE, m + NODE_HEADER_SIZE ≤ LEB_SIZE, # avol[m5].data ≤ LEB_SIZE ⊦ ⟪decode_header#(m, copy(avol[m5].data + mkempbuf(n1), 0, mkbuf(LEB_SIZE), 0, LEB_SIZE); ndhd; err); m2 := LEB_SIZE; m0 := m; if err ≠ ESUCCESS then debug#("persistence: read_gblock_nodes could not decode header in LEB " + m5.toString + " at offset " + m0.toString) else let m = 2 * NODE_HEADER_SIZE + align↑(ndhd.size, 2 * NODE_HEADER_SIZE) in {if m2 < m0 + m then {debug# ("persistence: read_gblock_nodes ignoring node of size " + m.toString + " at offset " + m0.toString + " in LEB " + m5.toString); err := ENOENT} else if ¬ range= (copy(avol[m5].data + mkempbuf(n1), 0, mkbuf(LEB_SIZE), 0, LEB_SIZE), m0 + NODE_HEADER_SIZE + align↑(ndhd.size, 2 * NODE_HEADER_SIZE), validtrailer, 0, NODE_HEADER_SIZE) then {err := ENOENT; debug#("persistence: read_gblock_nodes partial node at offset " + m0.toString + " in LEB " + m5.toString)} else if ¬ ndhd.ispadding then let gnd = ? in {decode_group_node#(m0, m, copy(avol[m5].data + mkempbuf(n1), 0, mkbuf(LEB_SIZE), 0, LEB_SIZE); gnd; err); if err ≠ ESUCCESS then debug# ("persistence: read_gblock_nodes could not decode node at offset " + m0.toString + " in LEB " + m5.toString) else {gndx0 := gndx0 + gnd '; ax := ax + @(m5, m0, m) '}}; if err = ESUCCESS then m0 := m0 + m}⟫ ( (err = ESUCCESS ∨ err = ENOENT ∨ ⌊err⌋ ) ∧ (err = ESUCCESS ∨ err = ENOENT → read-gblock-inv(m5, m0, ax, gndx0, ax1, gndx2, avol[m5].data, err = ENOENT)) ∧ (err ≠ ESUCCESS ⊃ 0;m2 - m0) < m2 - m), isempty(buf1 + mkempbuf(n0), m, NODE_HEADER_SIZE) |
# gndx = # lax, # lpt = # avol, # lpt0 = # avol, LEB_SIZE = n0 + # buf1, avol[m5] = mapped(buf1), m5 < # avol, m < LEB_SIZE, abs-nodes(buf1, gndx, lax, true), awbuf-inv(avol, bleb), buf-ro-rw-mode(isbuf, bleb, lpt0, avol), bufs-log-only(bleb, log0, lpt0), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt0, lpt, log0), read-gblock-inv(m5, m, ax, gndx0, ax1, gndx2, buf1, false), m + NODE_HEADER_SIZE ≤ LEB_SIZE, # buf1 ≤ LEB_SIZE, ¬ isempty(buf1 + mkempbuf(n0), m, NODE_HEADER_SIZE) ⊦ ⟪decode_header#(m, copy(avol[m5].data + mkempbuf(n0), 0, mkbuf(LEB_SIZE), 0, LEB_SIZE); ndhd; err); m2 := LEB_SIZE; m0 := m; if err ≠ ESUCCESS then debug#("persistence: read_gblock_nodes could not decode header in LEB " + m5.toString + " at offset " + m0.toString) else let m = 2 * NODE_HEADER_SIZE + align↑(ndhd.size, 2 * NODE_HEADER_SIZE) in {if m2 < m0 + m then {debug# ("persistence: read_gblock_nodes ignoring node of size " + m.toString + " at offset " + m0.toString + " in LEB " + m5.toString); err := ENOENT} else if ¬ range= (copy(avol[m5].data + mkempbuf(n0), 0, mkbuf(LEB_SIZE), 0, LEB_SIZE), m0 + NODE_HEADER_SIZE + align↑(ndhd.size, 2 * NODE_HEADER_SIZE), validtrailer, 0, NODE_HEADER_SIZE) then {err := ENOENT; debug#("persistence: read_gblock_nodes partial node at offset " + m0.toString + " in LEB " + m5.toString)} else if ¬ ndhd.ispadding then let gnd = ? in {decode_group_node#(m0, m, copy(avol[m5].data + mkempbuf(n0), 0, mkbuf(LEB_SIZE), 0, LEB_SIZE); gnd; err); if err ≠ ESUCCESS then debug# ("persistence: read_gblock_nodes could not decode node at offset " + m0.toString + " in LEB " + m5.toString) else {gndx0 := gndx0 + gnd '; ax := ax + @(m5, m0, m) '}}; if err = ESUCCESS then m0 := m0 + m}⟫ ( (err = ESUCCESS ∨ err = ENOENT ∨ ⌊err⌋ ) ∧ (err = ESUCCESS ∨ err = ENOENT → read-gblock-inv(m5, m0, ax, gndx0, ax1, gndx2, avol[m5].data, err = ENOENT)) ∧ (err ≠ ESUCCESS ⊃ 0;m2 - m0) < m2 - m)
Used simplifier rules: eqs: ⊦ m = n + n0 ∧ m = n + n1 → n0 = n1; (forward) from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ mapped(buf).data = buf; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic