OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.target/] [i386/] [vperm.pl] - Blame information for rev 318

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 318 jeremybenn
#!/usr/bin/perl
2
 
3
$nelt = int($ARGV[0]);
4
$leng = int($ARGV[1]);
5
 
6
print "/* This file auto-generated with ./vperm.pl $nelt $leng.  */\n\n";
7
 
8
for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
9
$ncheck = 0;
10
 
11
for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
12
{
13
  if ($i % 128 == 0)
14
  {
15
    print "}\n\n" if $ncheck > 0;
16
    print "void check$ncheck(void)\n{\n";
17
    ++$ncheck;
18
  }
19
 
20
  print "  TEST (";
21
  for ($j = 0; $j < $nelt; ++$j)
22
  {
23
    print $perm[$j];
24
    print ", " if $j < $nelt - 1;
25
  }
26
  print ")\n";
27
 
28
  INCR: for ($j = 0; $j < $nelt; ++$j)
29
  {
30
    last INCR if ++$perm[$j] < $leng * $nelt;
31
    $perm[$j] = 0;
32
  }
33
}
34
print "}\n\n";
35
 
36
print "void check(void)\n{\n";
37
for ($i = 0; $i < $ncheck; ++$i)
38
{
39
  print "  check$i ();\n";
40
}
41
print "}\n\n";

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.