| persistence_create_freelist#(LPT; FREELIST) {FREELIST := []; let N = 0 in while N < # LPT do {/* (prepost-create-freelist: invariant N ≤ # LPT ∧ freelist-cons(subarray(LPT, 0, N), FREELIST) wfbound # LPT - N) */; if LPT[N].flags = LP_FREE then FREELIST := FREELIST + N; N := N + 1} } |