microbit_examples_0.1.0_a926cc69/text_scrolling/obj/b__main.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
pragma Warnings (Off);
pragma Ada_95;
pragma Restrictions (No_Exception_Propagation);
with System;
with System.Parameters;
with System.Secondary_Stack;
package ada_main is


   GNAT_Version : constant String :=
                    "GNAT Version: Community 2018 (20180524-73)" & ASCII.NUL;
   pragma Export (C, GNAT_Version, "__gnat_version");

   Ada_Main_Program_Name : constant String := "_ada_main" & ASCII.NUL;
   pragma Export (C, Ada_Main_Program_Name, "__gnat_ada_main_program_name");

   procedure adainit;
   pragma Export (C, adainit, "adainit");

   procedure main;
   pragma Export (C, main, "main");

   --  BEGIN ELABORATION ORDER
   --  ada%s
   --  interfaces%s
   --  system%s
   --  ada.exceptions%s
   --  ada.exceptions%b
   --  interfaces.nrf51%s
   --  system.img_int%s
   --  system.img_int%b
   --  system.img_lli%s
   --  system.img_lli%b
   --  system.parameters%s
   --  system.storage_elements%s
   --  system.storage_elements%b
   --  system.secondary_stack%s
   --  system.secondary_stack%b
   --  ada.tags%s
   --  ada.tags%b
   --  system.unsigned_types%s
   --  interfaces.nrf51.uart%s
   --  system.text_io%s
   --  system.text_io%b
   --  ada.text_io%s
   --  ada.text_io%b
   --  system.assertions%s
   --  system.assertions%b
   --  hal%s
   --  adl_config%s
   --  command_line%s
   --  command_line%b
   --  filesystem%s
   --  hal.block_drivers%s
   --  hal.filesystem%s
   --  filesystem.fat%s
   --  filesystem.fat.files%s
   --  filesystem.fat.directories%s
   --  filesystem.fat.directories%b
   --  filesystem.fat.files%b
   --  filesystem.fat%b
   --  file_io%s
   --  filesystem.mbr%s
   --  file_io%b
   --  filesystem.mbr%b
   --  command_line.filesystem%s
   --  command_line.filesystem.touch%s
   --  command_line.filesystem.touch%b
   --  command_line.filesystem.remove_directory%s
   --  command_line.filesystem.remove_directory%b
   --  command_line.filesystem.list_directory%s
   --  command_line.filesystem.list_directory%b
   --  command_line.filesystem.cat%s
   --  command_line.filesystem.cat%b
   --  command_line.filesystem%b
   --  main%b
   --  END ELABORATION ORDER

end ada_main;