File:  [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / fpevent / pipe_test.c
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jul 28 12:30:17 2019 UTC (7 years ago) by root
Branches: bsd, MAIN
CVS tags: v121, HEAD
Power 6/32 Unix version 1.21


#include "evt_defs.h"


/*
 ********************************************************************
 *
 *	MONITOR FOR THE FPP PIPELINED EVENTS TEST
 *
 * If evt_inst is non-zero, run the test that it specifies, otherwise
 * run all of the pipelined tests. If the print headers option is 
 * set then print the names of the tests as they are run:
 * Piped Events Tests: pipe1  pipd2  pipe3  pipe4  pipe5  pipe6  pipe7  pipe8
 *  pipe9  pipd10 pipe11 pipe12 pipe13 pipe14 pipe15
 ********************************************************************
*/
pipeline_test()
{
	if( evt_inst )	{		/* was the test specified? */
	      inst_index = evt_inst - 1;	/* get '0' based subtest # */
	      subtest = evt_inst;		/* get '1' based subtest # */
	      if( (inst_index < 0) || (inst_index >= no_pipe_tests) ) {
	           if( (prt_hdrs) && (cycle == 1) ) {  /* not a valid instr */
			writes("There is no pipeline test #");
		        writed( evt_inst );
		        writec('\n');
			error = TRUE;	/* needed for line feed control */
		   }
	      } else {
		   valid_test = TRUE;		/* a test is being run */
	           if( (prt_hdrs) && (cycle == 1) ) 
	                 writes( pipe_test_tbl[inst_index].name );
		   (*pipe_test_tbl[inst_index].test)();  /* run the test */
	      }
	} else		/* the test # wasn't specfied */
	      for(inst_index=0; inst_index < no_pipe_tests; inst_index++) {
	           if( (prt_hdrs) && (cycle == 1) ) {
			 if( (inst_index == 8) ||
			     (inst_index == 16) )
			      writes("\n                       ");
	                 writes( pipe_test_tbl[inst_index].name );
		   }
		   valid_test = TRUE;		/* a test is being run */
	           subtest = inst_index+1;	/* get '1' based subtest # */
		   (*pipe_test_tbl[inst_index].test)();  /* run the test */
	      }
}


unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.