
  PROCEDURE [INLINE] clp$delete_expandable_string
    (VAR expandable_string {input,output} : clt$expandable_string);

?? PUSH (LISTEXT := ON) ??

    IF expandable_string.area <> NIL THEN
      FREE expandable_string.area IN osv$task_shared_heap^;
    IFEND;

  PROCEND clp$delete_expandable_string;

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