arch/nios2nommu/scripts/nios2_system.h/altera_avalon_timer.pm

   1 package altera_avalon_timer;
   2
   3 use base qw(BasicModule);
   4 use strict;
   5
   6 sub required_class_name {
   7         "altera_avalon_timer";
   8 }
   9
  10 sub required_module_names {
  11         "timer0"
  12 }
  13
  14 sub print_prefix {
  15         my ($class, $system) = @_;
  16
  17         print "\n";
  18         print "#ifndef __ASSEMBLY__\n";
  19         print "#include <asm/timer_struct.h>\n";
  20         print "#endif\n";
  21         print "\n";
  22 }
  23
  24 sub base_address_cast {
  25         "np_timer"
  26 }
  27
  28 # only timers with a non-fixed-period are valid
  29 sub is_module_valid {
  30         my ($class, $system, $module_name) = @_;
  31
  32         my $module = $system->getModule ($module_name);
  33         my $fixed_period = $module->getWSAAssignment ('fixed_period');
  34
  35         if ($fixed_period eq '0') {
  36                 return 1;
  37         } else {
  38                 return 0;
  39         }
  40 }
  41
  42 sub run {
  43         altera_avalon_timer->run2 (@_);
  44 }
  45
  46 1;