rlm@23: : # -*-Perl-*-
rlm@23: eval 'exec perl -w "$0" ${1+"$@"}'
rlm@23:    if 0;
rlm@23: 
rlm@23: use Asim;
rlm@23: use strict;
rlm@23: 
rlm@23: ##
rlm@23: ## Generate cfg files for 6.375 tests and benchmarks.
rlm@23: ##
rlm@23: 
rlm@23: my $gcfg = Asim::GenCFG->new();
rlm@23: 
rlm@23: my @tests = ("smipsv1_simple",
rlm@23: 	      "smipsv1_addiu",
rlm@23: 	      "smipsv1_bne",
rlm@23: 	      "smipsv1_lw",
rlm@23: 	      "smipsv1_sw",
rlm@23: 	      "smipsv2_addiu",
rlm@23: 	      "smipsv2_addu",
rlm@23: 	      "smipsv2_andi",
rlm@23: 	      "smipsv2_and",
rlm@23: 	      "smipsv2_beq",
rlm@23: 	      "smipsv2_bgez",
rlm@23: 	      "smipsv2_bgtz",
rlm@23: 	      "smipsv2_blez",
rlm@23: 	      "smipsv2_bltz",
rlm@23: 	      "smipsv2_bne",
rlm@23: 	      "smipsv2_jalr",
rlm@23: 	      "smipsv2_jal",
rlm@23: 	      "smipsv2_jr",
rlm@23: 	      "smipsv2_j",
rlm@23: 	      "smipsv2_lui",
rlm@23: 	      "smipsv2_lw",
rlm@23: 	      "smipsv2_nor",
rlm@23: 	      "smipsv2_ori",
rlm@23: 	      "smipsv2_or",
rlm@23: 	      "smipsv2_simple",
rlm@23: 	      "smipsv2_sll",
rlm@23: 	      "smipsv2_sllv",
rlm@23: 	      "smipsv2_slti",
rlm@23: 	      "smipsv2_sltiu",
rlm@23: 	      "smipsv2_slt",
rlm@23: 	      "smipsv2_sltu",
rlm@23: 	      "smipsv2_sra",
rlm@23: 	      "smipsv2_srav",
rlm@23: 	      "smipsv2_srl",
rlm@23: 	      "smipsv2_srlv",
rlm@23: 	      "smipsv2_subu",
rlm@23: 	      "smipsv2_sw",
rlm@23: 	      "smipsv2_xori",
rlm@23: 	      "smipsv2_xor");
rlm@23: 
rlm@23: my @bmarks = ("median",
rlm@23:               "multiply",
rlm@23: 	      "towers",
rlm@23: 	      "qsort",
rlm@23: 	      "vvadd");
rlm@23: 	      
rlm@23: foreach my $test (@tests) {
rlm@23:     $gcfg->add(name => $test,
rlm@23:                tree => [ "tests" ],
rlm@23:                setup => "scripts/setup-mit-6.375-bmark-processor --group instruction-tests --isa smips $test",
rlm@23:                feeder => "vcs",
rlm@23:                feedflags => "program.0/${test}.smips.vmh",
rlm@23:               );
rlm@23: }
rlm@23:      
rlm@23: foreach my $bmark (@bmarks) {
rlm@23:     $gcfg->add(name => $bmark,
rlm@23:                tree => [ "benchmarks" ],
rlm@23:                setup => "scripts/setup-mit-6.375-bmark-processor --isa smips $bmark",
rlm@23:                feeder => "vcs",
rlm@23:                feedflags => "program.0/${bmark}.smips.vmh",
rlm@23:               );
rlm@23: }
rlm@23: 
rlm@23: $gcfg->action(@ARGV);