Mercurial > pygar

     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);
author	punk
date	Tue, 04 May 2010 19:27:38 -0400
parents	90197e3375e2
children