?? RIGHT := 110 ??
?? NEWTITLE := 'Inject CPU Fault' ??
MODULE mtm$system_helper;


{ PURPOSE:
{   This module contains the procedures to inject various hardware faults to aid
{   in testing the dual cpu up/down switching.
{

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc oss$job_paged_literal
?? POP ??
*copyc jmp$system_job
*copyc ost$processor_id
*copyc osp$set_status_abnormal



   VAR
     mtv$fault_injection_flag: [XREF] boolean,
     mtv$target_processor_id: [XREF] ost$processor_id;


?? OLDTITLE ??
?? NEWTITLE := 'mtp$inject_cpu_fault', EJECT ??

{ PURPOSE:
{   This procedure causes a false DUE limit.

  PROCEDURE [XDCL,#GATE] mtp$inject_cpu_fault
    (    processor_id: ost$processor_id;
         VAR status: ost$status);


      status.normal := TRUE;

      mtv$target_processor_id := processor_id;
      mtv$fault_injection_flag := TRUE;


  PROCEND mtp$inject_cpu_fault;



MODEND mtm$system_helper;

