Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

use warnings;

use strict;

package wb_addr;

sub wb_addr_new {

    # be backwards compatible with non-OO call

    my $class = ("ARRAY" eq ref $_[0]) ? "wb_addr" : shift;

    my $self;

    $self = {};

        wb_add_all_addr($self);

    bless($self,$class);

    return $self;

}

sub wb_add_all_addr{

        my $self=shift;

        wb_add_addr($self,'0xf000_0000', '0xffff_ffff ', 'Cached',    256,   'ROM');

        wb_add_addr($self,'0xb800_0000', '0xbfff_ffff', 'Uncached',  128,       'custom devices');

        wb_add_addr($self,'0xa600_0000', '0xb7ff_ffff', 'Uncached',  288,       'Reserved1');

        wb_add_addr($self,'0xa500_0000', '0xa5ff_ffff', 'Uncached',  16,        'Debug');

        wb_add_addr($self,'0xa400_0000', '0xa4ff_ffff', 'Uncached',  16,        'Digital Camera Ctrl');

        wb_add_addr($self,'0xa300_0000', '0xa3ff_ffff', 'Uncached',  16,        'I2C Controller');

        wb_add_addr($self,'0xa200_0000', '0xa2ff_ffff', 'Uncached',  16,        'TDM Controller');

        wb_add_addr($self,'0xa100_0000', '0xa1ff_ffff', 'Uncached',  16,        'HDLC Controller');

        wb_add_addr($self,'0xa000_0000', '0xa0ff_ffff', 'Uncached',  16,        'Real-Time Clock');

        wb_add_addr($self,'0x9f00_0000', '0x9fff_ffff', 'Uncached',  16,        'Firewire Controller');

        wb_add_addr($self,'0x9e00_0000', '0x9eff_ffff', 'Uncached',  16,        'IDE Controller');

        wb_add_addr($self,'0x9d00_0000', '0x9dff_ffff', 'Uncached',  16,        'Audio Controller');

        wb_add_addr($self,'0x9c00_0000', '0x9cff_ffff', 'Uncached',  16,        'USB Host Controller');

        wb_add_addr($self,'0x9b00_0000', '0x9bff_ffff', 'Uncached',  16,        'USB Func Controller');

        wb_add_addr($self,'0x9a00_0000', '0x9aff_ffff', 'Uncached',  16,        'General-Purpose DMA');

        wb_add_addr($self,'0x9900_0000', '0x99ff_ffff', 'Uncached',  16,        'PCI Controller');

        wb_add_addr($self,'0x9800_0000', '0x98ff_ffff', 'Uncached',  16,        'IrDA Controller');

        wb_add_addr($self,'0x9700_0000', '0x97ff_ffff', 'Uncached',  16,        'Graphics Controller');

        wb_add_addr($self,'0x9600_0000', '0x96ff_ffff', 'Uncached',  16,        'PWM/Timer/Counter Ctrl');

        wb_add_addr($self,'0x9500_0000', '0x95ff_ffff', 'Uncached',  16,        'Traffic COP');

        wb_add_addr($self,'0x9400_0000', '0x94ff_ffff', 'Uncached',  16,        'PS/2 Controller');

        wb_add_addr($self,'0x9300_0000', '0x93ff_ffff', 'Uncached',  16,        'Memory Controller');

        wb_add_addr($self,'0x9200_0000', '0x92ff_ffff', 'Uncached',  16,        'Ethernet Controller');

        wb_add_addr($self,'0x9100_0000', '0x91ff_ffff', 'Uncached',  16,        'General-Purpose I/O');

        wb_add_addr($self,'0x9000_0000', '0x90ff_ffff', 'Uncached',  16,        'UART16550 Controller');

        wb_add_addr($self,'0x8000_0000', '0x8fff_ffff', 'Uncached',  256,       'PCI I/O');

        wb_add_addr($self,'0x4000_0000', '0x7fff_ffff', 'Uncached',  1024,      'Reserved2');

        wb_add_addr($self,'0x0000_0000','0x3fff_ffff', 'Cached',    1024,       'RAM');

}

sub wb_add_addr{

                my($self,$start,$end,$cashed,$size,$name)=@_;

                $self->{names}{$name}={};

                $self->{names}{$name}{start}=$start;

                $self->{names}{$name}{end}=$end;

                $self->{names}{$name}{cashed}=$cashed;

                $self->{names}{$name}{size}=$size;

}

sub wb_list_names{

        my($self)=@_;

        my @names;

        foreach my $n ( keys %{$self->{names}}){

                push (@names,$n);

        }

        return @names;

}

sub wb_get_addr_info{

        my($self,$name)=@_;

        my($start,$end,$cashed,$size);

        if(exists ($self->{names}{$name})){

                 $start =$self->{names}{$name}{start};

                 $end           =$self->{names}{$name}{end};

                 $cashed        =$self->{names}{$name}{cashed};

                 $size  =$self->{names}{$name}{size};

        }

        return ($start,$end,$cashed,$size);

}

1;