
  FUNCTION [INLINE] osp$called_by_system_code
    (    caller_id: ost$caller_identifier): boolean;

{   This function utilizes the system privilege bit map to determine whether
{ or not the caller of this function was called by system code.

    osp$called_by_system_code := osv$system_privilege_map [caller_id.segnum];
  FUNCEND osp$called_by_system_code;

*copyc ost$caller_identifier
*copyc osv$system_privilege_map
