radeon/llvm: Remove AMDGPUConstants.pm
This commit is contained in:
@@ -1,44 +0,0 @@
|
|||||||
#===-- AMDGPUConstants.pm - TODO: Add brief description -------===#
|
|
||||||
#
|
|
||||||
# The LLVM Compiler Infrastructure
|
|
||||||
#
|
|
||||||
# This file is distributed under the University of Illinois Open Source
|
|
||||||
# License. See LICENSE.TXT for details.
|
|
||||||
#
|
|
||||||
#===----------------------------------------------------------------------===#
|
|
||||||
#
|
|
||||||
# TODO: Add full description
|
|
||||||
#
|
|
||||||
#===----------------------------------------------------------------------===#
|
|
||||||
|
|
||||||
package AMDGPUConstants;
|
|
||||||
|
|
||||||
use base 'Exporter';
|
|
||||||
|
|
||||||
use constant CONST_REG_COUNT => 256;
|
|
||||||
use constant TEMP_REG_COUNT => 128;
|
|
||||||
|
|
||||||
our @EXPORT = ('TEMP_REG_COUNT', 'CONST_REG_COUNT', 'get_hw_index', 'get_chan_str');
|
|
||||||
|
|
||||||
sub get_hw_index {
|
|
||||||
my ($index) = @_;
|
|
||||||
return int($index / 4);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub get_chan_str {
|
|
||||||
my ($index) = @_;
|
|
||||||
my $chan = $index % 4;
|
|
||||||
if ($chan == 0 ) {
|
|
||||||
return 'X';
|
|
||||||
} elsif ($chan == 1) {
|
|
||||||
return 'Y';
|
|
||||||
} elsif ($chan == 2) {
|
|
||||||
return 'Z';
|
|
||||||
} elsif ($chan == 3) {
|
|
||||||
return 'W';
|
|
||||||
} else {
|
|
||||||
die("Unknown chan value: $chan");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
@@ -14,7 +14,8 @@
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use AMDGPUConstants;
|
use constant CONST_REG_COUNT => 256;
|
||||||
|
use constant TEMP_REG_COUNT => 128;
|
||||||
|
|
||||||
my $CREG_MAX = CONST_REG_COUNT - 1;
|
my $CREG_MAX = CONST_REG_COUNT - 1;
|
||||||
my $TREG_MAX = TEMP_REG_COUNT - 1;
|
my $TREG_MAX = TEMP_REG_COUNT - 1;
|
||||||
@@ -170,3 +171,24 @@ sub print_reg_defs {
|
|||||||
return @reg_list;
|
return @reg_list;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#Helper functions
|
||||||
|
sub get_hw_index {
|
||||||
|
my ($index) = @_;
|
||||||
|
return int($index / 4);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub get_chan_str {
|
||||||
|
my ($index) = @_;
|
||||||
|
my $chan = $index % 4;
|
||||||
|
if ($chan == 0 ) {
|
||||||
|
return 'X';
|
||||||
|
} elsif ($chan == 1) {
|
||||||
|
return 'Y';
|
||||||
|
} elsif ($chan == 2) {
|
||||||
|
return 'Z';
|
||||||
|
} elsif ($chan == 3) {
|
||||||
|
return 'W';
|
||||||
|
} else {
|
||||||
|
die("Unknown chan value: $chan");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Reference in New Issue
Block a user