Skip to content

Instantly share code, notes, and snippets.

@Lucretia
Created November 29, 2016 21:08
Show Gist options
  • Save Lucretia/326a08e89b5ec805eb67bb52e2ffdc34 to your computer and use it in GitHub Desktop.
Save Lucretia/326a08e89b5ec805eb67bb52e2ffdc34 to your computer and use it in GitHub Desktop.
pragma Ada_95;
pragma Restrictions (No_Exception_Propagation);
with System;
package ada_main is
pragma Warnings (Off);
GNAT_Version : constant String :=
"GNAT Version: 4.9.3" & ASCII.NUL;
pragma Export (C, GNAT_Version, "__gnat_version");
Ada_Main_Program_Name : constant String := "_ada_led_shifter" & ASCII.NUL;
pragma Export (C, Ada_Main_Program_Name, "__gnat_ada_main_program_name");
procedure adainit;
pragma Export (C, adainit, "adainit");
procedure main;
pragma No_Return (main);
pragma Export (C, main, "main");
type Version_32 is mod 2 ** 32;
u00001 : constant Version_32 := 16#0738ba01#;
pragma Export (C, u00001, "led_shifterB");
u00002 : constant Version_32 := 16#91391aa5#;
pragma Export (C, u00002, "ada__calendar__delaysS");
u00003 : constant Version_32 := 16#13c4ef93#;
pragma Export (C, u00003, "ada__calendarS");
u00004 : constant Version_32 := 16#3ffc8e18#;
pragma Export (C, u00004, "adaS");
u00005 : constant Version_32 := 16#79c9d4cf#;
pragma Export (C, u00005, "interfacesS");
u00006 : constant Version_32 := 16#ea903ba5#;
pragma Export (C, u00006, "avrB");
u00007 : constant Version_32 := 16#a0e48464#;
pragma Export (C, u00007, "avrS");
u00008 : constant Version_32 := 16#3738e3e0#;
pragma Export (C, u00008, "system__unsigned_typesS");
u00009 : constant Version_32 := 16#5178a803#;
pragma Export (C, u00009, "systemS");
u00010 : constant Version_32 := 16#2cdeab82#;
pragma Export (C, u00010, "avr__mcuS");
u00011 : constant Version_32 := 16#70e3e68a#;
pragma Export (C, u00011, "avr__atmega328pS");
u00012 : constant Version_32 := 16#4b50d95c#;
pragma Export (C, u00012, "avr__real_timeB");
u00013 : constant Version_32 := 16#abe4a3eb#;
pragma Export (C, u00013, "avr__real_timeS");
u00014 : constant Version_32 := 16#e47076b8#;
pragma Export (C, u00014, "avr__int_imgB");
u00015 : constant Version_32 := 16#bf7030cc#;
pragma Export (C, u00015, "avr__int_imgS");
u00016 : constant Version_32 := 16#c3a01803#;
pragma Export (C, u00016, "avr__stringsS");
u00017 : constant Version_32 := 16#40fc3ec7#;
pragma Export (C, u00017, "avr__real_time__clockB");
u00018 : constant Version_32 := 16#604ee8a8#;
pragma Export (C, u00018, "avr__real_time__clockS");
u00019 : constant Version_32 := 16#02ea9314#;
pragma Export (C, u00019, "avr__real_time__clock_implB");
u00020 : constant Version_32 := 16#85540fd3#;
pragma Export (C, u00020, "avr__real_time__clock_implS");
u00021 : constant Version_32 := 16#80aa7db4#;
pragma Export (C, u00021, "avr__configS");
u00022 : constant Version_32 := 16#a7504ddc#;
pragma Export (C, u00022, "avr__interruptsB");
u00023 : constant Version_32 := 16#a7a1b728#;
pragma Export (C, u00023, "avr__interruptsS");
u00024 : constant Version_32 := 16#63d0c3ff#;
pragma Export (C, u00024, "avr__timer0B");
u00025 : constant Version_32 := 16#dcaaec0b#;
pragma Export (C, u00025, "avr__timer0S");
u00026 : constant Version_32 := 16#10aa2dfb#;
pragma Export (C, u00026, "ada__exceptionsB");
u00027 : constant Version_32 := 16#35db2934#;
pragma Export (C, u00027, "ada__exceptionsS");
-- BEGIN ELABORATION ORDER
-- ada%s
-- ada.calendar%s
-- interfaces%s
-- system%s
-- ada.exceptions%s
-- ada.exceptions%b
-- system.unsigned_types%s
-- ada.calendar.delays%s
-- avr%s
-- avr%b
-- avr.atmega328p%s
-- avr.config%s
-- avr.interrupts%s
-- avr.interrupts%b
-- avr.mcu%s
-- avr.strings%s
-- avr.int_img%s
-- avr.int_img%b
-- avr.real_time%s
-- avr.real_time%b
-- avr.timer0%s
-- avr.timer0%b
-- avr.real_time.clock%s
-- led_shifter%b
-- avr.real_time.clock_impl%s
-- avr.real_time.clock_impl%b
-- avr.real_time.clock%b
-- END ELABORATION ORDER
end ada_main;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment