  PROCEDURE [XREF] pfp$update_obj_list_descriptor
    (    p_object: ^pft$physical_object;
     VAR object_list_descriptor: pft$object_list_descriptor);

?? PUSH (LISTEXT := ON) ??
*copyc pft$object_list_descriptor
*copyc pft$physical_object
?? POP ??
