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


?? PUSH (LISTEXT := ON) ??
    gfp$clear_signature_lock (fde_p^.job_lock);

  PROCEND gfp$unlock_fde_p;


*copyc gfp$clear_signature_lock
*copyc gft$locked_file_desc_entry_p
?? POP ??
