| persistence_format# (VOLSIZE, SIZE, WMAXINO0; LPT, FREELIST, GCHEAP, WROOTADR, WMAXINO, WLOG, WVOL, WLPT, WORPHANS, WBUFLEB, AROFS, LOG, LEBSIZE; ERR) {if SIZE = LEB_SIZE then {LPT := mklparray(VOLSIZE); LPT := fill(LPT, mklp(0, 0, LP_FREE, 0)); let ADR = @(0, 0, 0) in awbuf_format#(VOLSIZE, SIZE, LPT, ADR, WMAXINO0; ; WROOTADR, WMAXINO, WLOG, WVOL, WLPT, WORPHANS, WBUFLEB, AROFS, ERR); if ERR ≠ ESUCCESS then debug#("persistence: wbuf format failed") else {awbuf_get_leb_size#(WROOTADR, WMAXINO, WLOG, WVOL, WLPT, WORPHANS, WBUFLEB, AROFS; ; LEBSIZE); LOG := []; persistence_create_freelist#(LPT; FREELIST); gc_heap_empty#(; GCHEAP)}} else abort } |