b~led_shifter.adb

pragma Ada_95;
pragma Source_File_Name (ada_main, Spec_File_Name => "b~led_shifter.ads");
pragma Source_File_Name (ada_main, Body_File_Name => "b~led_shifter.adb");

package body ada_main is
   pragma Warnings (Off);

   E18 : Short_Integer; pragma Import (Ada, E18, "avr__real_time__clock_E");
   E20 : Short_Integer; pragma Import (Ada, E20, "avr__real_time__clock_impl_E");


   procedure adainit is
   begin
      null;

      AVR.REAL_TIME.CLOCK_IMPL'ELAB_BODY;
      E20 := E20 + 1;
      E18 := E18 + 1;
   end adainit;

   procedure Ada_Main_Program;
   pragma No_Return (Ada_Main_Program);
   pragma Import (Ada, Ada_Main_Program, "_ada_led_shifter");

   procedure main is
   begin
      adainit;
      Ada_Main_Program;
   end;

--  BEGIN Object file/option list
   --   /home/laguest/opt/avr-ada/lib/gcc/avr/4.9.3/avr5/adalib/ada.o
   --   /home/laguest/opt/avr-ada/lib/gcc/avr/4.9.3/avr5/adalib/a-calend.o
   --   /home/laguest/opt/avr-ada/lib/gcc/avr/4.9.3/avr5/adalib/interfac.o
   --   /home/laguest/opt/avr-ada/lib/gcc/avr/4.9.3/avr5/adalib/system.o
   --   /home/laguest/opt/avr-ada/lib/gcc/avr/4.9.3/avr5/adalib/a-except.o
   --   /home/laguest/opt/avr-ada/lib/gcc/avr/4.9.3/avr5/adalib/s-unstyp.o
   --   /home/laguest/opt/avr-ada/lib/gcc/avr/4.9.3/avr5/adalib/a-caldel.o
   --   /home/laguest/src/mine/electronics/build/gnat/gen/.obj/led_shifter.o
   --   -L/home/laguest/src/mine/electronics/build/gnat/gen/.obj/
   --   -L/home/laguest/src/mine/electronics/build/gnat/gen/.obj/
   --   -L/home/laguest/opt/avr-ada/avr/lib/gnat/avr_lib/board-arduino_uno/lib/
   --   -L/home/laguest/opt/avr-ada/lib/gcc/avr/4.9.3/avr5/adalib/
   --   -static
   --   -lgnat
--  END Object file/option list   

end ada_main;