Forum Discussion
Altera_Forum
Honored Contributor
15 years agohere the script of fifoed_avalon_uart. It seems that this script is not implemented
package fifoed_avalon_uart;
use base qw(BasicModule);
use strict;
sub required_module_names {
("uart0", "uart1", "uart2", "uart3")
}
sub required_class_name {
"fifoed_avalon_uart";
}
sub base_address_cast {
"void "
}
sub translate {
my $class = shift;
my ($system, $required_module_name, $module_name) = @_;
$class->SUPER::translate (@_);
if (defined ($fifoed_avalon_uart::default_uart)) {
print "/* The default uart is always the first one found in the PTF file */\n";
print "#define nasys_printf_uart na_$required_module_name\n\n";
$fifoed_avalon_uart::default_uart = $required_module_name;
}
}
sub run {
fifoed_avalon_uart->run2 (@_);
}
1;