
  PROCEDURE pfp$initialize_object_info
    (    p_object_info: {output^} ^fst$goi_object_information);

?? PUSH (LISTEXT := ON) ??

    p_object_info^.set_name := osc$null_name;
    p_object_info^.resolved_path := NIL;
    p_object_info^.object := NIL;

  PROCEND pfp$initialize_object_info;

*copyc fst$goi_object_information
*copyc ost$name
?? POP ??
