| # lpt = # avol, avol[m3] = mapped(buf1), m3 < # avol, awbuf-inv(avol, bleb), m0 + n ≤ LEB_SIZE, n ≤ # buf, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪err := err0; if err = ESUCCESS then buf := copy(avol[m3].data + mkempbuf(LEB_SIZE - # avol[m3].data), m0, buf, 0, n) else choose buf1 with # buf1 = # buf ∧ range=(buf1, n, buf, n, # buf - n) in buf := buf1⟫ true |
# lpt = # avol, avol[m3] = mapped(buf1), m3 < # avol, awbuf-inv(avol, bleb), n ≤ # buf, m0 + n ≤ LEB_SIZE, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪if err0 = ESUCCESS then buf := copy(avol[m3].data + mkempbuf(LEB_SIZE - # avol[m3].data), m0, buf, 0, n) else choose buf1 with # buf1 = # buf ∧ range=(buf1, n, buf, n, # buf - n) in buf := buf1⟫ true