
  FUNCTION [INLINE] pfp$system_privilege_authority
    (    system_authority: pft$system_authority;
         caller_ring: ost$ring;
         master_catalog_name: pft$name): boolean;

?? PUSH (LISTEXT := ON) ??

    pfp$system_privilege_authority := (system_authority > 0)
{ } AND (caller_ring <= osc$tsrv_ring)
{ } AND (master_catalog_name = jmc$system_user);

  FUNCEND pfp$system_privilege_authority;

*copyc jmc$system_family
*copyc osd$virtual_address
*copyc pft$name
*copyc pft$system_authority
?? POP ??
