| apersistence_allocate_gnd#(ROOTADR, ISTORE, ISTORE0, GSTORE0, MAXINO, OS, PSYNCED; GINVAL, GSTORE, NL, PSTATE; ERR) {if PSYNCED then if PSTATE = readonly then ERR := EROFS else {fail_or_success#(; ; ERR); if ERR = ESUCCESS then choose N with ¬ N ∈ GSTORE in GSTORE[N] := groupblock([], [], 0), NL := NL + N, GINVAL := GINVAL -- N, PSTATE := journal(N)} else abort } |