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

   1 package altera_avalon_pio;
   2
   3 require PTF::SystemPTF;
   4 require PTF::SystemPTF::Module;
   5 use strict;
   6
   7 sub run {
   8         my ($system, @pio_names) = @_;
   9
  10         print "#ifndef __ASSEMBLY__\n";
  11         print "#include <asm/pio_struct.h>\n";
  12         print "#endif\n\n";
  13
  14         foreach my $pio_name (@pio_names) {
  15                 my $module = $system->getModule ($pio_name);
  16
  17                 # get all the relevant information
  18                 my $base_address = $module->getBaseAddress ();
  19                 $base_address = hex ($base_address) | 0x80000000;
  20                 my $irq = $module->getIRQ ();
  21
  22                 print "/* Casting base addresses to the appropriate structure */\n";
  23
  24                 # undefine all the old symbols first
  25                 print "#undef na_${pio_name}\n";
  26                 if (defined ($irq)) {
  27                         print "#undef na_${pio_name}_irq\n";
  28                         print "\n";
  29                 }
  30
  31                 # define base address
  32                 $base_address = sprintf ("%#010x", $base_address);
  33                 printf ("%-41s %30s\n", "#define na_${pio_name}",
  34                         "((np_pio*) ${base_address})");
  35
  36                 # define irq
  37                 if (defined ($irq)) {
  38                         printf ("%-41s %30s\n", "#define na_${pio_name}_irq",
  39                                 $irq);
  40                 }
  41
  42                 print "\n";
  43         }
  44 }
  45
  46 1;