
  TYPE
    clt$env_object_pop_reason = (clc$eo_pop_requested, clc$eo_pop_for_block,
          clc$eo_pop_for_task, clc$eo_pop_for_cleanup);

