
  PROCEDURE [INLINE] clp$find_current_block
    (VAR current_block: ^clt$block);

?? PUSH (LISTEXT := ON) ??

    VAR
      status: ^ost$status;


    IF clv$current_task_block <> NIL THEN
      current_block := clv$current_task_block^.current_block;
    ELSE
      PUSH status;
      clp$find_task_block_first_time (current_block, status^);
      IF NOT status^.normal THEN
*IF NOT $true(osv$unix)
        osp$system_error ('Unable to get pointer to SCL Task Block', status);
*ELSE
        RETURN;
*IFEND
      IFEND;
      current_block := current_block^.current_block;
    IFEND;

  PROCEND clp$find_current_block;

*copyc clt$block
*copyc ost$status
?? POP ??
*copyc clp$find_task_block_first_time
*copyc clv$current_task_block
*IF NOT $true(osv$unix)
*copyc osp$system_error
*IFEND
