URL
https://opencores.org/ocsvn/wb_builder/wb_builder/trunk
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 11 |
Rev 12 |
| Line 162... |
Line 162... |
if($1 eq "master") {
|
if($1 eq "master") {
|
master_init($3);
|
master_init($3);
|
};
|
};
|
$a = <FILE>;
|
$a = <FILE>;
|
until ($a =~ /^(end master)($*)/) {
|
until ($a =~ /^(end master)($*)/) {
|
if ($a =~ /^( *)(dat_size|adr_o_hi|adr_o_lo|lock_o|err_i|rty_i|tga_o|tgc_o|priority)( *)(=)( *)(0x)?([0-9a-fA-F]+)(;?)($*)/) {
|
if ($a =~ /^( *)(dat_size|adr_o_hi|adr_o_lo|lock_o|err_i|rty_i|tga_o|tgc_o|priority)( *)(=)( *)(0x)?([0-9a-fA-F])+(;?)($*)/) {
|
$master[$masters]{"$2"}=$7;
|
$master[$masters]{"$2"}=$7;
|
if (($2 eq "rty_i") && ($7 eq 1)) {
|
if (($2 eq "rty_i") && ($7 eq 1)) {
|
$rty_i++; };
|
$rty_i++; };
|
if (($2 eq "err_i") && ($7 eq 1)) {
|
if (($2 eq "err_i") && ($7 eq 1)) {
|
$err_i++; };
|
$err_i++; };
|
if (($2 eq "tgc_o") && ($7 eq 1)) {
|
if (($2 eq "tgc_o") && ($7 eq 1)) {
|
$tgc_o++; };
|
$tgc_o++; };
|
if (($2 eq "tga_o") && ($7 eq 1)) {
|
if (($2 eq "tga_o") && ($7 eq 1)) {
|
$tga_o++; };
|
$tga_o++; };
|
|
# priority for shared bus system
|
|
if ($2 eq "priority") {
|
|
$priority += $7; };
|
}; #end if
|
}; #end if
|
if ($a =~ /^( *)(type)( *)(=)( *)(ro|wo|rw)(;?)($*)/) {
|
if ($a =~ /^( *)(type)( *)(=)( *)(ro|wo|rw)(;?)($*)/) {
|
$master[$masters]{"$2"}=$6; };
|
$master[$masters]{"$2"}=$6; };
|
# priority for crossbarswitch
|
# priority for crossbarswitch
|
if ($a =~ /^( *)(priority)(_)([0-9a-zA-Z_]*)( *)(=)( *)([0-9]*)(;?)($*)/) {
|
if ($a =~ /^( *)(priority)(_)([0-9a-zA-Z_]*)( *)(=)( *)([0-9]*)(;?)($*)/) {
|
$master[$masters]{("priority_"."$4")}=$8; };
|
$master[$masters]{("priority_"."$4")}=$8; };
|
# priority for shared bus
|
|
if ($a =~ /^( *)(priority)( *)(=)( *)([0-9]*)(;?)($*)/) {
|
|
$priority += $6; };
|
|
$a = <FILE>;
|
$a = <FILE>;
|
};
|
};
|
};
|
};
|
|
|
# slave port setup
|
# slave port setup
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.