Lines Matching refs:addr
62 my $addr = hex $_[0];
64 return 0 if $addr < 0x40; # weed out status registers
65 return 0 if $addr >= 0x100 && $addr < 0xfff; # weed out configuration registers
165 my ($name, $addr) = @_;
176 return ($name, $addr, $args);
258 my ($bit, $addr) = split /\t+/;
260 $hdr_data .= sprintf "#define %-62s %s", "CCS_" . (uc ${this{name}}) ."_$bit", bit_def($addr) . "\n";
265 @a = ( { "name" => "SHIFT", "addr" => $lsb, "fmt" => "%uU", },
266 { "name" => "MASK", "addr" => (1 << ($msb + 1)) - 1 - ((1 << $lsb) - 1), "fmt" => "0x%" . join(".", ($this{"elsize"} >> 2) x 2) . "x" } );
270 $hdr_data .= sprintf "#define %-62s " . $ar->{"fmt"} . "\n", "CCS_" . (uc $this{"name"}) . (defined $this_field ? "_" . uc $this_field : "") . "_" . $ar->{"name"}, $ar->{"addr"} . "\n";
274 my ($enum, $addr) = split /\s+/;
276 $hdr_data .= sprintf "#define %-62s %s", "CCS_" . (uc ${this{name}}) . (defined $this{"field"} ? "_" . uc $this{"field"} : "") ."_$enum", $addr . ($addr =~ /0x/i ? "" : "U") . "\n";
299 my $reg_formula = "($this{addr}";
362 my ($name, $addr, @flags) = split /\t+/, $_;
367 ($name, $addr, $args) = name_split($name, $addr) if /\(.*\)/;
380 my $base_addr = $addr;
381 $addr = "($addr | $flagstring)" if $flagstring ne "";
384 $hdr_data .= sprintf "#define %-62s %s\n", "CCS_R_" . (uc $name), $addr
390 addr => $addr,