
  PROCEDURE [INLINE] mmp$test_for_cache_bypass (p: ^cell;
    VAR cache_bypass: boolean;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
    VAR
      sdt_p: ^mmt$segment_descriptor,
      xcb_p: ^ost$execution_control_block;

    status.normal := TRUE;
    pmp$find_executing_task_xcb (xcb_p);
    sdt_p := mmp$get_sdt_entry_p (xcb_p, #segment(p));
    cache_bypass := sdt_p^.ste.vl = osc$vl_cache_bypass;

  PROCEND mmp$test_for_cache_bypass;
*copyc mmp$get_sdt_entry_p
*copyc pmp$find_executing_task_xcb
?? POP ??
