1 #===-- R600GenRegisterInfo.pl - Script for generating register info files --===#
3 # The LLVM Compiler Infrastructure
5 # This file is distributed under the University of Illinois Open Source
6 # License. See LICENSE.TXT for details.
8 #===------------------------------------------------------------------------===#
10 # This perl script prints to stdout .td code to be used as R600RegisterInfo.td
11 # it also generates a file called R600HwRegInfo.include, which contains helper
12 # functions for determining the hw encoding of registers.
14 #===------------------------------------------------------------------------===#
19 use constant CONST_REG_COUNT
=> 1024;
20 use constant TEMP_REG_COUNT
=> 128;
22 my $CREG_MAX = CONST_REG_COUNT
- 1;
23 my $TREG_MAX = TEMP_REG_COUNT
- 1;
27 class R600Reg <string name> : Register<name> {
28 let Namespace = "AMDGPU";
31 class R600Reg_128<string n, list<Register> subregs> : RegisterWithSubRegs<n, subregs> {
32 let Namespace = "AMDGPU";
33 let SubRegIndices = [sel_x, sel_y, sel_z, sel_w];
42 my @creg_list = print_reg_defs
(CONST_REG_COUNT
* 4, "C");
43 my @treg_list = print_reg_defs
(TEMP_REG_COUNT
* 4, "T");
47 for (my $i = 0; $i < TEMP_REG_COUNT
; $i++) {
48 my $name = "T$i\_XYZW";
49 print qq{def
$name : R600Reg_128
<"T$i.XYZW", [T
$i\_X
, T
$i\_Y
, T
$i\_Z
, T
$i\_W
] >;\n};
51 $treg_x[$i] = "T$i\_X";
54 my $treg_string = join(",", @treg_list);
55 my $creg_list = join(",", @creg_list);
56 my $t128_string = join(",", @t128reg);
57 my $treg_x_string = join(",", @treg_x);
60 class RegSet <dag s> {
64 def ZERO : R600Reg<"0.0">;
65 def HALF : R600Reg<"0.5">;
66 def ONE : R600Reg<"1.0">;
67 def ONE_INT : R600Reg<"1">;
68 def NEG_HALF : R600Reg<"-0.5">;
69 def NEG_ONE : R600Reg<"-1.0">;
70 def PV_X : R600Reg<"pv.x">;
71 def ALU_LITERAL_X : R600Reg<"literal.x">;
72 def PREDICATE_BIT : R600Reg<"PredicateBit">;
73 def PRED_SEL_OFF: R600Reg<"Pred_sel_off">;
74 def PRED_SEL_ZERO : R600Reg<"Pred_sel_zero">;
75 def PRED_SEL_ONE : R600Reg<"Pred_sel_one">;
77 def R600_CReg32 : RegisterClass <"AMDGPU", [f32, i32], 32, (add
80 def R600_TReg32 : RegisterClass <"AMDGPU", [f32, i32], 32, (add
83 def R600_TReg32_X : RegisterClass <"AMDGPU", [f32, i32], 32, (add
86 def R600_Reg32 : RegisterClass <"AMDGPU", [f32, i32], 32, (add
89 ZERO, HALF, ONE, ONE_INT, PV_X, ALU_LITERAL_X, NEG_ONE, NEG_HALF)>;
91 def R600_Predicate : RegisterClass <"AMDGPU", [i32], 32, (add
92 PRED_SEL_OFF, PRED_SEL_ZERO, PRED_SEL_ONE)>;
94 def R600_Predicate_Bit: RegisterClass <"AMDGPU", [i32], 32, (add
97 def R600_Reg128 : RegisterClass<"AMDGPU", [v4f32, v4i32], 128, (add
100 let SubRegClasses = [(R600_TReg32 sel_x, sel_y, sel_z, sel_w)];
109 for ($i = 0; $i <= $#creg_list; $i++) {
110 push(@
{$index_map{get_hw_index
($i)}}, $creg_list[$i]);
111 push(@
{$chan_map{get_chan_str
($i)}}, $creg_list[$i]);
114 for ($i = 0; $i <= $#treg_list; $i++) {
115 push(@
{$index_map{get_hw_index
($i)}}, $treg_list[$i]);
116 push(@
{$chan_map{get_chan_str
($i)}}, $treg_list[$i]);
119 for ($i = 0; $i <= $#t128reg; $i++) {
120 push(@
{$index_map{$i}}, $t128reg[$i]);
121 push(@
{$chan_map{'X'}}, $t128reg[$i]);
124 open(OUTFILE
, ">", "R600HwRegInfo.include");
126 print OUTFILE
<<STRING;
128 unsigned R600RegisterInfo::getHWRegIndexGen(unsigned reg) const
131 default: assert(!"Unknown register"); return 0;
133 foreach my $key (keys(%index_map)) {
134 foreach my $reg (@
{$index_map{$key}}) {
135 print OUTFILE
" case AMDGPU::$reg:\n";
137 print OUTFILE
" return $key;\n\n";
140 print OUTFILE
" }\n}\n\n";
142 print OUTFILE
<<STRING;
144 unsigned R600RegisterInfo::getHWRegChanGen(unsigned reg) const
147 default: assert(!"Unknown register"); return 0;
150 foreach my $key (keys(%chan_map)) {
151 foreach my $reg (@
{$chan_map{$key}}) {
152 print OUTFILE
" case AMDGPU::$reg:\n";
157 } elsif ($key eq 'Y') {
159 } elsif ($key eq 'Z') {
161 } elsif ($key eq 'W') {
164 die("Unknown chan value; $key");
166 print OUTFILE
" return $val;\n\n";
169 print OUTFILE
" }\n}\n\n";
172 my ($count, $prefix) = @_;
176 for ($i = 0; $i < $count; $i++) {
177 my $hw_index = get_hw_index
($i);
178 my $chan= get_chan_str
($i);
179 my $name = "$prefix$hw_index\_$chan";
180 print qq{def
$name : R600Reg
<"$prefix$hw_index.$chan">;\n};
181 $reg_list[$i] = $name;
189 return int($index / 4);
194 my $chan = $index % 4;
197 } elsif ($chan == 1) {
199 } elsif ($chan == 2) {
201 } elsif ($chan == 3) {
204 die("Unknown chan value: $chan");