From: Tom Stellard Date: Wed, 9 May 2012 15:50:02 +0000 (-0400) Subject: radeon/llvm: Remove AMDGPUConstants.pm X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=788fd04dacb9eb1e32010050c57cd2f49779311b;p=mesa.git radeon/llvm: Remove AMDGPUConstants.pm --- diff --git a/src/gallium/drivers/radeon/AMDGPUConstants.pm b/src/gallium/drivers/radeon/AMDGPUConstants.pm deleted file mode 100644 index b64ff49c187..00000000000 --- a/src/gallium/drivers/radeon/AMDGPUConstants.pm +++ /dev/null @@ -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; diff --git a/src/gallium/drivers/radeon/R600GenRegisterInfo.pl b/src/gallium/drivers/radeon/R600GenRegisterInfo.pl index 409e34548df..a7f6ce1c9a7 100644 --- a/src/gallium/drivers/radeon/R600GenRegisterInfo.pl +++ b/src/gallium/drivers/radeon/R600GenRegisterInfo.pl @@ -14,7 +14,8 @@ use strict; use warnings; -use AMDGPUConstants; +use constant CONST_REG_COUNT => 256; +use constant TEMP_REG_COUNT => 128; my $CREG_MAX = CONST_REG_COUNT - 1; my $TREG_MAX = TEMP_REG_COUNT - 1; @@ -170,3 +171,24 @@ sub print_reg_defs { 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"); + } +}