
  FUNCTION [INLINE] osp$is_caller_system_privileged: boolean;

?? PUSH (LISTEXT := ON) ??
    VAR
      caller_id: ost$caller_identifier;

{ Get the callers segment number.

    #CALLER_ID (caller_id);

{ If it is a special segment the caller is system privileged.

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

*copyc ost$caller_identifier
*copyc osv$system_privilege_map
?? POP ??
