
  PROCEDURE [INLINE] clp$save_collect_statement_area
    (    collected_statements: ^clt$collect_statement_area;
     VAR statement_area: ^clt$collect_statement_area);

?? PUSH (LISTEXT := ON) ??

    ALLOCATE statement_area: [[REP #SIZE (collected_statements^) OF cell]] IN
          osv$task_shared_heap^;
    RESET statement_area;
    statement_area^ := collected_statements^;

  PROCEND clp$save_collect_statement_area;

*copyc clt$collect_statement_area
?? POP ??
*copyc osv$task_shared_heap
