  PROCEDURE [INLINE] dfp$clear_read_lock
    (VAR read_write_lock: {Input, Output} dft$read_write_lock);

    VAR
      already_zero: boolean,
      new_value: integer;

    osp$decrement_locked_variable (read_write_lock.reader_count,
          { Best guess = } 1, new_value, already_zero);
    IF already_zero THEN
      osp$system_error (' SERVER READ LOCK ALREADY ZERO ', NIL);
    IFEND;
    osp$end_system_activity;

  PROCEND dfp$clear_read_lock;
?? PUSH (LISTEXT := ON) ??
*copyc dft$read_write_lock
*copyc osp$decrement_locked_variable
*copyc osp$end_system_activity
*copyc osp$system_error
?? POP ??
