Mercurial > pygar

view config/bm/Pygar/processor_test/mips.cfx @ 76:8bd0e4d37ad2 pygar svn.77 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r77] I don't know why my last change didn't go through grumble grumble....
author rlm
date Wed, 12 May 2010 08:58:23 -0400
parents 90197e3375e2
children
line wrap: on
line source
     1 : # -*-Perl-*-



     2 eval 'exec perl -w "$0" ${1+"$@"}'



     3    if 0;



     4 



     5 use Asim;



     6 use strict;



     7 



     8 ##



     9 ## Generate cfg files for 6.375 tests and benchmarks.



    10 ##



    11 



    12 my $gcfg = Asim::GenCFG->new();



    13 



    14 my @tests = ("smipsv1_simple",



    15 	      "smipsv1_addiu",



    16 	      "smipsv1_bne",



    17 	      "smipsv1_lw",



    18 	      "smipsv1_sw",



    19 	      "smipsv2_addiu",



    20 	      "smipsv2_addu",



    21 	      "smipsv2_andi",



    22 	      "smipsv2_and",



    23 	      "smipsv2_beq",



    24 	      "smipsv2_bgez",



    25 	      "smipsv2_bgtz",



    26 	      "smipsv2_blez",



    27 	      "smipsv2_bltz",



    28 	      "smipsv2_bne",



    29 	      "smipsv2_jalr",



    30 	      "smipsv2_jal",



    31 	      "smipsv2_jr",



    32 	      "smipsv2_j",



    33 	      "smipsv2_lui",



    34 	      "smipsv2_lw",



    35 	      "smipsv2_nor",



    36 	      "smipsv2_ori",



    37 	      "smipsv2_or",



    38 	      "smipsv2_simple",



    39 	      "smipsv2_sll",



    40 	      "smipsv2_sllv",



    41 	      "smipsv2_slti",



    42 	      "smipsv2_sltiu",



    43 	      "smipsv2_slt",



    44 	      "smipsv2_sltu",



    45 	      "smipsv2_sra",



    46 	      "smipsv2_srav",



    47 	      "smipsv2_srl",



    48 	      "smipsv2_srlv",



    49 	      "smipsv2_subu",



    50 	      "smipsv2_sw",



    51 	      "smipsv2_xori",



    52 	      "smipsv2_xor");



    53 



    54 my @bmarks = ("median",



    55               "multiply",



    56 	      "towers",



    57 	      "qsort",



    58 	      "vvadd");



    59 	      



    60 foreach my $test (@tests) {



    61     $gcfg->add(name => $test,



    62                tree => [ "tests" ],



    63                setup => "scripts/setup-mit-6.375-bmark-processor --group instruction-tests --isa smips $test",



    64                feeder => "vcs",



    65                feedflags => "program.0/${test}.smips.vmh",



    66               );



    67 }



    68      



    69 foreach my $bmark (@bmarks) {



    70     $gcfg->add(name => $bmark,



    71                tree => [ "benchmarks" ],



    72                setup => "scripts/setup-mit-6.375-bmark-processor --isa smips $bmark",



    73                feeder => "vcs",



    74                feedflags => "program.0/${bmark}.smips.vmh",



    75               );



    76 }



    77 



    78 $gcfg->action(@ARGV);