summaryrefslogtreecommitdiff
path: root/gas/testsuite/gas/ia64/opc-b.pl
diff options
context:
space:
mode:
Diffstat (limited to 'gas/testsuite/gas/ia64/opc-b.pl')
-rw-r--r--gas/testsuite/gas/ia64/opc-b.pl95
1 files changed, 0 insertions, 95 deletions
diff --git a/gas/testsuite/gas/ia64/opc-b.pl b/gas/testsuite/gas/ia64/opc-b.pl
deleted file mode 100644
index bdfdd36e65..0000000000
--- a/gas/testsuite/gas/ia64/opc-b.pl
+++ /dev/null
@@ -1,95 +0,0 @@
-@ph = ( "", ".few", ".many" );
-@bwh = ( ".sptk", ".spnt", ".dptk", ".dpnt" );
-@dh = ( "", ".clr" );
-
-@iprel = ( ".cond", ".wexit", ".wtop", ".cloop", ".cexit", ".ctop", ".call" );
-@indir = ( ".cond", ".ia", ".ret", ".call" );
-%noqual = ( ".ia", 1, ".cloop", 1, ".ctop", 1, ".cexit", 1 );
-%slottwo = ( ".cloop", 1, ".ctop", 1, ".cexit", 1, ".wtop", 1, ".wexit", 1 );
-
-print ".L0:\n\n";
-
-foreach $i (@iprel) {
- $call = ($i eq ".call" ? "b0 = " : "");
- foreach $b (@bwh) {
- foreach $p (@ph) {
- foreach $d (@dh) {
- if ($slottwo{$i}) {
- if (!$noqual{$i}) {
- print ("\t{ .bbb; (p2) br${i}${b}${p}${d} ${call}.L1 ;; }\n");
- }
- print ("\t{ .bbb; br${i}${b}${p}${d} ${call}.L1 ;; }\n");
- } else {
- print ("\t{ .bbb; nop.b 0\n");
- if (!$noqual{$i}) {
- print ("(p2)\tbr${i}${b}${p}${d} ${call}.L1\n");
- } else {
- print ("\tnop.b 0\n");
- }
- print ("\tbr${i}${b}${p}${d} ${call}.L0\n");
- print ("\t;; }\n");
- }
- }
- }
- }
- print "\n";
-}
-
-foreach $i (@indir) {
- $call = ($i eq ".call" ? "b0 = " : "");
- foreach $b (@bwh) {
- foreach $p (@ph) {
- foreach $d (@dh) {
- print ("\t{ .bbb; nop.b 0;\n");
- if (!$noqual{$i}) {
- print ("(p2)\tbr${i}${b}${p}${d} ${call}b2\n");
- } else {
- print ("\tnop.b 0\n");
- }
- print ("\tbr${i}${b}${p}${d} ${call}b2\n");
- print ("\t;; }\n");
- }
- }
- }
- print "\n";
-}
-
-@ih = ( "", ".imp" );
-@ipwh = ( ".sptk", ".loop", ".dptk", ".exit" );
-@indwh = ( ".sptk", ".dptk" );
-
-$CTR = 2;
-
-foreach $w (@ipwh) {
- foreach $i (@ih) {
- print ("\t{ .bbb; break.b 0; nop.b 0\n");
- print ("\tbrp${w}${i} .L0, .L${CTR}\n");
- print ("\t;; }\n");
- }
- print (".L${CTR}:\n");
- ++$CTR;
-}
-
-print "\n";
-
-foreach $b ("", ".ret") {
- foreach $w (@indwh) {
- foreach $i (@ih) {
- print ("\t{ .bbb; break.b 0; nop.b 0\n");
- print ("\tbrp${b}${w}${i} b3, .L${CTR}\n");
- print ("\t;; }\n");
- }
- print (".L${CTR}:\n");
- ++$CTR;
- }
- print "\n";
-}
-
-print ".space 5888\n";
-
-@last = ( "cover", "clrrrb", "clrrrb.pr", "rfi", "bsw.0", "bsw.1", "epc" );
-foreach $i (@last) {
- print "\t{ .bbb; nop.b 0; nop.b 0; $i ;; }\n";
-}
-
-print "\n.L1:\n";