
  PROCEDURE [INLINE] gfp$mtr_unlock_fde_p
    (    fde_p: gft$locked_file_desc_entry_p);

?? PUSH (LISTEXT := ON) ??
*if $true(gfc$monitor_interlocks)
    IF gfc$monitor_interlocks THEN
      mtp$clear_interlock (fde_p^.monitor_lock);
    IFEND;
*ifend
  PROCEND gfp$mtr_unlock_fde_p;

*if $true(gfc$monitor_interlocks)
*copyc gfc$monitor_interlocks
*copyc gft$locked_file_desc_entry_p
*copyc mtp$clear_interlock
*ifend
?? POP ??
