
  PROCEDURE [INLINE] pmp$find_prog_options_and_libs
    (VAR prog_options_and_libraries: ^pmt$prog_options_and_libraries);

?? PUSH (LISTEXT := ON) ??

    VAR
      ignore_object_in_current_task: boolean,
      object: ^clt$environment_object_contents;


    clp$find_environment_object (clc$eo_program_attributes, object,
          ignore_object_in_current_task);

    prog_options_and_libraries := object;

  PROCEND pmp$find_prog_options_and_libs;

*copyc pmt$prog_options_and_libraries
?? POP ??
*copyc clp$find_environment_object
