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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [ia64/] [opc-b.pl] - Blame information for rev 832

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius 
@ph = ( "", ".few", ".many" );
2 
@bwh = ( ".sptk", ".spnt", ".dptk", ".dpnt" );
3 
@dh = ( "", ".clr" );
4 
 
5 
@iprel = ( ".cond", ".wexit", ".wtop", ".cloop", ".cexit", ".ctop", ".call" );
6 
@indir = ( ".cond", ".ia", ".ret", ".call" );
7 
%noqual = ( ".ia", 1, ".cloop", 1, ".ctop", 1, ".cexit", 1 );
8 
%slottwo = ( ".cloop", 1, ".ctop", 1, ".cexit", 1, ".wtop", 1, ".wexit", 1 );
9 
 
10 
print ".L0:\n\n";
11 
 
12 
foreach $i (@iprel) {
13 
  $call = ($i eq ".call" ? "b0 = " : "");
14 
  foreach $b (@bwh) {
15 
    foreach $p (@ph) {
16 
      foreach $d (@dh) {
17 
        if ($slottwo{$i}) {
18 
          if (!$noqual{$i}) {
19 
            print ("\t{ .bbb; (p2) br${i}${b}${p}${d} ${call}.L1 ;; }\n");
20 
          }
21 
          print ("\t{ .bbb; br${i}${b}${p}${d} ${call}.L1 ;; }\n");
22 
        } else {
23 
          print ("\t{ .bbb; nop.b 0\n");
24 
          if (!$noqual{$i}) {
25 
            print ("(p2)\tbr${i}${b}${p}${d} ${call}.L1\n");
26 
          } else {
27 
            print ("\tnop.b 0\n");
28 
          }
29 
          print ("\tbr${i}${b}${p}${d} ${call}.L0\n");
30 
          print ("\t;; }\n");
31 
        }
32 
      }
33 
    }
34 
  }
35 
  print "\n";
36 
}
37 
 
38 
foreach $i (@indir) {
39 
  $call = ($i eq ".call" ? "b0 = " : "");
40 
  foreach $b (@bwh) {
41 
    foreach $p (@ph) {
42 
      foreach $d (@dh) {
43 
        print ("\t{ .bbb; nop.b 0;\n");
44 
        if (!$noqual{$i}) {
45 
          print ("(p2)\tbr${i}${b}${p}${d} ${call}b2\n");
46 
        } else {
47 
          print ("\tnop.b 0\n");
48 
        }
49 
        print ("\tbr${i}${b}${p}${d} ${call}b2\n");
50 
        print ("\t;; }\n");
51 
      }
52 
    }
53 
  }
54 
  print "\n";
55 
}
56 
 
57 
@ih = ( "", ".imp" );
58 
@ipwh = ( ".sptk", ".loop", ".dptk", ".exit" );
59 
@indwh = ( ".sptk", ".dptk" );
60 
 
61 
$CTR = 2;
62 
 
63 
foreach $w (@ipwh) {
64 
  foreach $i (@ih) {
65 
    print ("\t{ .bbb; break.b 0; nop.b 0\n");
66 
    print ("\tbrp${w}${i} .L0, .L${CTR}\n");
67 
    print ("\t;; }\n");
68 
  }
69 
  print (".L${CTR}:\n");
70 
  ++$CTR;
71 
}
72 
 
73 
print "\n";
74 
 
75 
foreach $b ("", ".ret") {
76 
  foreach $w (@indwh) {
77 
    foreach $i (@ih) {
78 
      print ("\t{ .bbb; break.b 0; nop.b 0\n");
79 
      print ("\tbrp${b}${w}${i} b3, .L${CTR}\n");
80 
      print ("\t;; }\n");
81 
    }
82 
    print (".L${CTR}:\n");
83 
    ++$CTR;
84 
  }
85 
  print "\n";
86 
}
87 
 
88 
print ".space 5888\n";
89 
 
90 
@last = ( "cover", "clrrrb", "clrrrb.pr", "rfi", "bsw.0", "bsw.1", "epc" );
91 
foreach $i (@last) {
92 
  print "\t{ .bbb; nop.b 0; nop.b 0; $i ;; }\n";
93 
}
94 
 
95 
print "\n.L1:\n";

powered by: WebSVN 2.1.0

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