
  PROCEDURE [XREF] clp$push_function_block
    (    caller_ring: ost$valid_ring;
         function_name: ost$name;
         function_source: clt$command_or_function_source;
         parameter_list_parse: clt$parse_state;
         expected_result_type: ^clt$type_description;
     VAR function_block: ^clt$block);

?? PUSH (LISTEXT := ON) ??
*copyc clt$block
*copyc clt$command_or_function_source
*copyc clt$parse_state
*copyc clt$type_description
*copyc osd$virtual_address
*copyc ost$name
?? POP ??
