let fold_calls process ff acc =
    let fm = ff.T.ff_marks in
    CallInfo.fold_calls process ff (get_marks fm) acc