jason/complete-system
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bulk data dump

Browse Source 
Amiga 1000 complete system demonstration
This commit is contained in:
Jason Bou-Samra
2024-04-22 19:55:27 +10:00
committed by GitHub
parent 0c805ccfc0
commit d2545cf26d
12 changed files with 1869 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
b__main.adb
+385
View File
@@ -0,0 +1,385 @@
pragma Warnings (Off);
pragma Ada_95;
pragma Source_File_Name (ada_main, Spec_File_Name => "b__main.ads");
pragma Source_File_Name (ada_main, Body_File_Name => "b__main.adb");
pragma Suppress (Overflow_Check);
with Ada.Exceptions;
package body ada_main is
E081 : Short_Integer; pragma Import (Ada, E081, "system__os_lib_E");
E011 : Short_Integer; pragma Import (Ada, E011, "ada__exceptions_E");
E015 : Short_Integer; pragma Import (Ada, E015, "system__soft_links_E");
E025 : Short_Integer; pragma Import (Ada, E025, "system__exception_table_E");
E048 : Short_Integer; pragma Import (Ada, E048, "ada__containers_E");
E076 : Short_Integer; pragma Import (Ada, E076, "ada__io_exceptions_E");
E032 : Short_Integer; pragma Import (Ada, E032, "ada__numerics_E");
E063 : Short_Integer; pragma Import (Ada, E063, "ada__strings_E");
E065 : Short_Integer; pragma Import (Ada, E065, "ada__strings__maps_E");
E068 : Short_Integer; pragma Import (Ada, E068, "ada__strings__maps__constants_E");
E053 : Short_Integer; pragma Import (Ada, E053, "interfaces__c_E");
E026 : Short_Integer; pragma Import (Ada, E026, "system__exceptions_E");
E090 : Short_Integer; pragma Import (Ada, E090, "system__object_reader_E");
E058 : Short_Integer; pragma Import (Ada, E058, "system__dwarf_lines_E");
E017 : Short_Integer; pragma Import (Ada, E017, "system__soft_links__initialize_E");
E047 : Short_Integer; pragma Import (Ada, E047, "system__traceback__symbolic_E");
E031 : Short_Integer; pragma Import (Ada, E031, "system__img_int_E");
E071 : Short_Integer; pragma Import (Ada, E071, "system__img_uns_E");
E157 : Short_Integer; pragma Import (Ada, E157, "ada__assertions_E");
E106 : Short_Integer; pragma Import (Ada, E106, "ada__strings__utf_encoding_E");
E114 : Short_Integer; pragma Import (Ada, E114, "ada__tags_E");
E104 : Short_Integer; pragma Import (Ada, E104, "ada__strings__text_buffers_E");
E140 : Short_Integer; pragma Import (Ada, E140, "interfaces__c__strings_E");
E122 : Short_Integer; pragma Import (Ada, E122, "ada__streams_E");
E134 : Short_Integer; pragma Import (Ada, E134, "system__file_control_block_E");
E133 : Short_Integer; pragma Import (Ada, E133, "system__finalization_root_E");
E131 : Short_Integer; pragma Import (Ada, E131, "ada__finalization_E");
E130 : Short_Integer; pragma Import (Ada, E130, "system__file_io_E");
E161 : Short_Integer; pragma Import (Ada, E161, "system__storage_pools_E");
E159 : Short_Integer; pragma Import (Ada, E159, "system__finalization_masters_E");
E163 : Short_Integer; pragma Import (Ada, E163, "system__storage_pools__subpools_E");
E120 : Short_Integer; pragma Import (Ada, E120, "ada__text_io_E");
E174 : Short_Integer; pragma Import (Ada, E174, "system__pool_global_E");
E197 : Short_Integer; pragma Import (Ada, E197, "sdl__rwops_E");
E151 : Short_Integer; pragma Import (Ada, E151, "sdl__video_E");
E172 : Short_Integer; pragma Import (Ada, E172, "sdl__video__palettes_E");
E170 : Short_Integer; pragma Import (Ada, E170, "sdl__video__pixel_formats_E");
E202 : Short_Integer; pragma Import (Ada, E202, "sdl__video__pixels_E");
E178 : Short_Integer; pragma Import (Ada, E178, "sdl__video__rectangles_E");
E180 : Short_Integer; pragma Import (Ada, E180, "sdl__video__surfaces_E");
E201 : Short_Integer; pragma Import (Ada, E201, "sdl__video__textures_E");
E153 : Short_Integer; pragma Import (Ada, E153, "sdl__video__windows_E");
E143 : Short_Integer; pragma Import (Ada, E143, "sdl__events__events_E");
E199 : Short_Integer; pragma Import (Ada, E199, "sdl__video__renderers_E");
E193 : Short_Integer; pragma Import (Ada, E193, "sdl__images_E");
E195 : Short_Integer; pragma Import (Ada, E195, "sdl__images__io_E");
Sec_Default_Sized_Stacks : array (1 .. 1) of aliased System.Secondary_Stack.SS_Stack (System.Parameters.Runtime_Default_Sec_Stack_Size);
Local_Priority_Specific_Dispatching : constant String := "";
Local_Interrupt_States : constant String := "";
Is_Elaborated : Boolean := False;
procedure finalize_library is
begin
E199 := E199 - 1;
declare
procedure F1;
pragma Import (Ada, F1, "sdl__video__renderers__finalize_spec");
begin
F1;
end;
E153 := E153 - 1;
declare
procedure F2;
pragma Import (Ada, F2, "sdl__video__windows__finalize_spec");
begin
F2;
end;
E201 := E201 - 1;
declare
procedure F3;
pragma Import (Ada, F3, "sdl__video__textures__finalize_spec");
begin
F3;
end;
E180 := E180 - 1;
declare
procedure F4;
pragma Import (Ada, F4, "sdl__video__surfaces__finalize_spec");
begin
F4;
end;
declare
procedure F5;
pragma Import (Ada, F5, "sdl__video__palettes__finalize_body");
begin
E172 := E172 - 1;
F5;
end;
declare
procedure F6;
pragma Import (Ada, F6, "sdl__video__palettes__finalize_spec");
begin
F6;
end;
E174 := E174 - 1;
declare
procedure F7;
pragma Import (Ada, F7, "system__pool_global__finalize_spec");
begin
F7;
end;
E120 := E120 - 1;
declare
procedure F8;
pragma Import (Ada, F8, "ada__text_io__finalize_spec");
begin
F8;
end;
E163 := E163 - 1;
declare
procedure F9;
pragma Import (Ada, F9, "system__storage_pools__subpools__finalize_spec");
begin
F9;
end;
E159 := E159 - 1;
declare
procedure F10;
pragma Import (Ada, F10, "system__finalization_masters__finalize_spec");
begin
F10;
end;
declare
procedure F11;
pragma Import (Ada, F11, "system__file_io__finalize_body");
begin
E130 := E130 - 1;
F11;
end;
declare
procedure Reraise_Library_Exception_If_Any;
pragma Import (Ada, Reraise_Library_Exception_If_Any, "__gnat_reraise_library_exception_if_any");
begin
Reraise_Library_Exception_If_Any;
end;
end finalize_library;
procedure adafinal is
procedure s_stalib_adafinal;
pragma Import (Ada, s_stalib_adafinal, "system__standard_library__adafinal");
procedure Runtime_Finalize;
pragma Import (C, Runtime_Finalize, "__gnat_runtime_finalize");
begin
if not Is_Elaborated then
return;
end if;
Is_Elaborated := False;
Runtime_Finalize;
s_stalib_adafinal;
end adafinal;
type No_Param_Proc is access procedure;
pragma Favor_Top_Level (No_Param_Proc);
procedure adainit is
Main_Priority : Integer;
pragma Import (C, Main_Priority, "__gl_main_priority");
Time_Slice_Value : Integer;
pragma Import (C, Time_Slice_Value, "__gl_time_slice_val");
WC_Encoding : Character;
pragma Import (C, WC_Encoding, "__gl_wc_encoding");
Locking_Policy : Character;
pragma Import (C, Locking_Policy, "__gl_locking_policy");
Queuing_Policy : Character;
pragma Import (C, Queuing_Policy, "__gl_queuing_policy");
Task_Dispatching_Policy : Character;
pragma Import (C, Task_Dispatching_Policy, "__gl_task_dispatching_policy");
Priority_Specific_Dispatching : System.Address;
pragma Import (C, Priority_Specific_Dispatching, "__gl_priority_specific_dispatching");
Num_Specific_Dispatching : Integer;
pragma Import (C, Num_Specific_Dispatching, "__gl_num_specific_dispatching");
Main_CPU : Integer;
pragma Import (C, Main_CPU, "__gl_main_cpu");
Interrupt_States : System.Address;
pragma Import (C, Interrupt_States, "__gl_interrupt_states");
Num_Interrupt_States : Integer;
pragma Import (C, Num_Interrupt_States, "__gl_num_interrupt_states");
Unreserve_All_Interrupts : Integer;
pragma Import (C, Unreserve_All_Interrupts, "__gl_unreserve_all_interrupts");
Detect_Blocking : Integer;
pragma Import (C, Detect_Blocking, "__gl_detect_blocking");
Default_Stack_Size : Integer;
pragma Import (C, Default_Stack_Size, "__gl_default_stack_size");
Default_Secondary_Stack_Size : System.Parameters.Size_Type;
pragma Import (C, Default_Secondary_Stack_Size, "__gnat_default_ss_size");
Bind_Env_Addr : System.Address;
pragma Import (C, Bind_Env_Addr, "__gl_bind_env_addr");
procedure Runtime_Initialize (Install_Handler : Integer);
pragma Import (C, Runtime_Initialize, "__gnat_runtime_initialize");
Finalize_Library_Objects : No_Param_Proc;
pragma Import (C, Finalize_Library_Objects, "__gnat_finalize_library_objects");
Binder_Sec_Stacks_Count : Natural;
pragma Import (Ada, Binder_Sec_Stacks_Count, "__gnat_binder_ss_count");
Default_Sized_SS_Pool : System.Address;
pragma Import (Ada, Default_Sized_SS_Pool, "__gnat_default_ss_pool");
begin
if Is_Elaborated then
return;
end if;
Is_Elaborated := True;
Main_Priority := -1;
Time_Slice_Value := -1;
WC_Encoding := 'b';
Locking_Policy := ' ';
Queuing_Policy := ' ';
Task_Dispatching_Policy := ' ';
Priority_Specific_Dispatching :=
Local_Priority_Specific_Dispatching'Address;
Num_Specific_Dispatching := 0;
Main_CPU := -1;
Interrupt_States := Local_Interrupt_States'Address;
Num_Interrupt_States := 0;
Unreserve_All_Interrupts := 0;
Detect_Blocking := 0;
Default_Stack_Size := -1;
ada_main'Elab_Body;
Default_Secondary_Stack_Size := System.Parameters.Runtime_Default_Sec_Stack_Size;
Binder_Sec_Stacks_Count := 1;
Default_Sized_SS_Pool := Sec_Default_Sized_Stacks'Address;
Runtime_Initialize (1);
Finalize_Library_Objects := finalize_library'access;
Ada.Exceptions'Elab_Spec;
System.Soft_Links'Elab_Spec;
System.Exception_Table'Elab_Body;
E025 := E025 + 1;
Ada.Containers'Elab_Spec;
E048 := E048 + 1;
Ada.Io_Exceptions'Elab_Spec;
E076 := E076 + 1;
Ada.Numerics'Elab_Spec;
E032 := E032 + 1;
Ada.Strings'Elab_Spec;
E063 := E063 + 1;
Ada.Strings.Maps'Elab_Spec;
E065 := E065 + 1;
Ada.Strings.Maps.Constants'Elab_Spec;
E068 := E068 + 1;
Interfaces.C'Elab_Spec;
E053 := E053 + 1;
System.Exceptions'Elab_Spec;
E026 := E026 + 1;
System.Object_Reader'Elab_Spec;
E090 := E090 + 1;
System.Dwarf_Lines'Elab_Spec;
System.Os_Lib'Elab_Body;
E081 := E081 + 1;
System.Soft_Links.Initialize'Elab_Body;
E017 := E017 + 1;
E015 := E015 + 1;
System.Traceback.Symbolic'Elab_Body;
E047 := E047 + 1;
System.Img_Int'Elab_Spec;
E031 := E031 + 1;
E011 := E011 + 1;
System.Img_Uns'Elab_Spec;
E071 := E071 + 1;
E058 := E058 + 1;
Ada.Assertions'Elab_Spec;
E157 := E157 + 1;
Ada.Strings.Utf_Encoding'Elab_Spec;
E106 := E106 + 1;
Ada.Tags'Elab_Spec;
Ada.Tags'Elab_Body;
E114 := E114 + 1;
Ada.Strings.Text_Buffers'Elab_Spec;
E104 := E104 + 1;
Interfaces.C.Strings'Elab_Spec;
E140 := E140 + 1;
Ada.Streams'Elab_Spec;
E122 := E122 + 1;
System.File_Control_Block'Elab_Spec;
E134 := E134 + 1;
System.Finalization_Root'Elab_Spec;
E133 := E133 + 1;
Ada.Finalization'Elab_Spec;
E131 := E131 + 1;
System.File_Io'Elab_Body;
E130 := E130 + 1;
System.Storage_Pools'Elab_Spec;
E161 := E161 + 1;
System.Finalization_Masters'Elab_Spec;
System.Finalization_Masters'Elab_Body;
E159 := E159 + 1;
System.Storage_Pools.Subpools'Elab_Spec;
E163 := E163 + 1;
Ada.Text_Io'Elab_Spec;
Ada.Text_Io'Elab_Body;
E120 := E120 + 1;
System.Pool_Global'Elab_Spec;
E174 := E174 + 1;
SDL.RWOPS'ELAB_SPEC;
E197 := E197 + 1;
SDL.VIDEO'ELAB_SPEC;
E151 := E151 + 1;
SDL.VIDEO.PALETTES'ELAB_SPEC;
SDL.VIDEO.PALETTES'ELAB_BODY;
E172 := E172 + 1;
SDL.VIDEO.PIXEL_FORMATS'ELAB_SPEC;
E170 := E170 + 1;
SDL.VIDEO.PIXELS'ELAB_SPEC;
E202 := E202 + 1;
SDL.VIDEO.RECTANGLES'ELAB_SPEC;
E178 := E178 + 1;
SDL.VIDEO.SURFACES'ELAB_SPEC;
E180 := E180 + 1;
SDL.VIDEO.TEXTURES'ELAB_SPEC;
E201 := E201 + 1;
SDL.VIDEO.WINDOWS'ELAB_SPEC;
E153 := E153 + 1;
SDL.EVENTS.EVENTS'ELAB_SPEC;
E143 := E143 + 1;
SDL.VIDEO.RENDERERS'ELAB_SPEC;
E199 := E199 + 1;
SDL.IMAGES'ELAB_SPEC;
E193 := E193 + 1;
E195 := E195 + 1;
end adainit;
procedure Ada_Main_Program;
pragma Import (Ada, Ada_Main_Program, "_ada_main");
function main
(argc : Integer;
argv : System.Address;
envp : System.Address)
return Integer
is
procedure Initialize (Addr : System.Address);
pragma Import (C, Initialize, "__gnat_initialize");
procedure Finalize;
pragma Import (C, Finalize, "__gnat_finalize");
SEH : aliased array (1 .. 2) of Integer;
Ensure_Reference : aliased System.Address := Ada_Main_Program_Name'Address;
pragma Volatile (Ensure_Reference);
begin
if gnat_argc = 0 then
gnat_argc := argc;
gnat_argv := argv;
end if;
gnat_envp := envp;
Initialize (SEH'Address);
adainit;
Ada_Main_Program;
adafinal;
Finalize;
return (gnat_exit_status);
end;
-- BEGIN Object file/option list
-- /home/jason/Desktop/complete system/main.o
-- -L/home/jason/Desktop/complete system/
-- -L/home/jason/Desktop/complete system/
-- -L/home/jason/opt/sdlada/lib/sdlada.release/
-- -L/usr/lib/gcc/x86_64-redhat-linux/13/adalib/
-- -static
-- -lgnat
-- -ldl
-- END Object file/option list
end ada_main;
b__main.ads
+683
View File
@@ -0,0 +1,683 @@
pragma Warnings (Off);
pragma Ada_95;
with System;
with System.Parameters;
with System.Secondary_Stack;
package ada_main is
gnat_argc : Integer;
gnat_argv : System.Address;
gnat_envp : System.Address;
pragma Import (C, gnat_argc);
pragma Import (C, gnat_argv);
pragma Import (C, gnat_envp);
gnat_exit_status : Integer;
pragma Import (C, gnat_exit_status);
GNAT_Version : constant String :=
"GNAT Version: 13.2.1 20240316 (Red Hat 13.2.1-7)" & ASCII.NUL;
pragma Export (C, GNAT_Version, "__gnat_version");
GNAT_Version_Address : constant System.Address := GNAT_Version'Address;
pragma Export (C, GNAT_Version_Address, "__gnat_version_address");
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 adafinal;
pragma Export (C, adafinal, "adafinal");
function main
(argc : Integer;
argv : System.Address;
envp : System.Address)
return Integer;
pragma Export (C, main, "main");
type Version_32 is mod 2 ** 32;
u00001 : constant Version_32 := 16#97cbc870#;
pragma Export (C, u00001, "mainB");
u00002 : constant Version_32 := 16#7320ff5f#;
pragma Export (C, u00002, "system__standard_libraryB");
u00003 : constant Version_32 := 16#50630821#;
pragma Export (C, u00003, "system__standard_libraryS");
u00004 : constant Version_32 := 16#76789da1#;
pragma Export (C, u00004, "adaS");
u00005 : constant Version_32 := 16#4b91ffca#;
pragma Export (C, u00005, "ada__command_lineB");
u00006 : constant Version_32 := 16#3cdef8c9#;
pragma Export (C, u00006, "ada__command_lineS");
u00007 : constant Version_32 := 16#426dafb8#;
pragma Export (C, u00007, "systemS");
u00008 : constant Version_32 := 16#d4c699bf#;
pragma Export (C, u00008, "system__secondary_stackB");
u00009 : constant Version_32 := 16#6a2f1a0f#;
pragma Export (C, u00009, "system__secondary_stackS");
u00010 : constant Version_32 := 16#e9d77c55#;
pragma Export (C, u00010, "ada__exceptionsB");
u00011 : constant Version_32 := 16#1e7524b5#;
pragma Export (C, u00011, "ada__exceptionsS");
u00012 : constant Version_32 := 16#0740df23#;
pragma Export (C, u00012, "ada__exceptions__last_chance_handlerB");
u00013 : constant Version_32 := 16#6dc27684#;
pragma Export (C, u00013, "ada__exceptions__last_chance_handlerS");
u00014 : constant Version_32 := 16#fd5f5f4c#;
pragma Export (C, u00014, "system__soft_linksB");
u00015 : constant Version_32 := 16#3ff0395b#;
pragma Export (C, u00015, "system__soft_linksS");
u00016 : constant Version_32 := 16#0286ce9f#;
pragma Export (C, u00016, "system__soft_links__initializeB");
u00017 : constant Version_32 := 16#2ed17187#;
pragma Export (C, u00017, "system__soft_links__initializeS");
u00018 : constant Version_32 := 16#821dff88#;
pragma Export (C, u00018, "system__parametersB");
u00019 : constant Version_32 := 16#96f90b1e#;
pragma Export (C, u00019, "system__parametersS");
u00020 : constant Version_32 := 16#8599b27b#;
pragma Export (C, u00020, "system__stack_checkingB");
u00021 : constant Version_32 := 16#e2b806a2#;
pragma Export (C, u00021, "system__stack_checkingS");
u00022 : constant Version_32 := 16#2a95d23d#;
pragma Export (C, u00022, "system__storage_elementsB");
u00023 : constant Version_32 := 16#e939c75c#;
pragma Export (C, u00023, "system__storage_elementsS");
u00024 : constant Version_32 := 16#c71e6c8a#;
pragma Export (C, u00024, "system__exception_tableB");
u00025 : constant Version_32 := 16#cf46d9a1#;
pragma Export (C, u00025, "system__exception_tableS");
u00026 : constant Version_32 := 16#70c8108a#;
pragma Export (C, u00026, "system__exceptionsS");
u00027 : constant Version_32 := 16#69416224#;
pragma Export (C, u00027, "system__exceptions__machineB");
u00028 : constant Version_32 := 16#8bdfdbe3#;
pragma Export (C, u00028, "system__exceptions__machineS");
u00029 : constant Version_32 := 16#7706238d#;
pragma Export (C, u00029, "system__exceptions_debugB");
u00030 : constant Version_32 := 16#7263f7eb#;
pragma Export (C, u00030, "system__exceptions_debugS");
u00031 : constant Version_32 := 16#32ee70d0#;
pragma Export (C, u00031, "system__img_intS");
u00032 : constant Version_32 := 16#f2c63a02#;
pragma Export (C, u00032, "ada__numericsS");
u00033 : constant Version_32 := 16#174f5472#;
pragma Export (C, u00033, "ada__numerics__big_numbersS");
u00034 : constant Version_32 := 16#b847d0e1#;
pragma Export (C, u00034, "system__unsigned_typesS");
u00035 : constant Version_32 := 16#5e8f37b6#;
pragma Export (C, u00035, "system__val_intS");
u00036 : constant Version_32 := 16#48912782#;
pragma Export (C, u00036, "system__val_unsS");
u00037 : constant Version_32 := 16#96e09402#;
pragma Export (C, u00037, "system__val_utilB");
u00038 : constant Version_32 := 16#71a87b35#;
pragma Export (C, u00038, "system__val_utilS");
u00039 : constant Version_32 := 16#b98923bf#;
pragma Export (C, u00039, "system__case_utilB");
u00040 : constant Version_32 := 16#8d7e78ed#;
pragma Export (C, u00040, "system__case_utilS");
u00041 : constant Version_32 := 16#8d029d03#;
pragma Export (C, u00041, "system__wid_unsS");
u00042 : constant Version_32 := 16#5c7d9c20#;
pragma Export (C, u00042, "system__tracebackB");
u00043 : constant Version_32 := 16#c4f75b05#;
pragma Export (C, u00043, "system__tracebackS");
u00044 : constant Version_32 := 16#5f6b6486#;
pragma Export (C, u00044, "system__traceback_entriesB");
u00045 : constant Version_32 := 16#8a711034#;
pragma Export (C, u00045, "system__traceback_entriesS");
u00046 : constant Version_32 := 16#b5f8ae26#;
pragma Export (C, u00046, "system__traceback__symbolicB");
u00047 : constant Version_32 := 16#d9e66ad1#;
pragma Export (C, u00047, "system__traceback__symbolicS");
u00048 : constant Version_32 := 16#179d7d28#;
pragma Export (C, u00048, "ada__containersS");
u00049 : constant Version_32 := 16#701f9d88#;
pragma Export (C, u00049, "ada__exceptions__tracebackB");
u00050 : constant Version_32 := 16#eb07882c#;
pragma Export (C, u00050, "ada__exceptions__tracebackS");
u00051 : constant Version_32 := 16#15f799c2#;
pragma Export (C, u00051, "interfacesS");
u00052 : constant Version_32 := 16#545fe66d#;
pragma Export (C, u00052, "interfaces__cB");
u00053 : constant Version_32 := 16#9d395173#;
pragma Export (C, u00053, "interfaces__cS");
u00054 : constant Version_32 := 16#6ef2c461#;
pragma Export (C, u00054, "system__bounded_stringsB");
u00055 : constant Version_32 := 16#35908ea1#;
pragma Export (C, u00055, "system__bounded_stringsS");
u00056 : constant Version_32 := 16#1cff99e6#;
pragma Export (C, u00056, "system__crtlS");
u00057 : constant Version_32 := 16#9f199b4a#;
pragma Export (C, u00057, "system__dwarf_linesB");
u00058 : constant Version_32 := 16#a5cb9aae#;
pragma Export (C, u00058, "system__dwarf_linesS");
u00059 : constant Version_32 := 16#5b4659fa#;
pragma Export (C, u00059, "ada__charactersS");
u00060 : constant Version_32 := 16#f70a517e#;
pragma Export (C, u00060, "ada__characters__handlingB");
u00061 : constant Version_32 := 16#ea6baced#;
pragma Export (C, u00061, "ada__characters__handlingS");
u00062 : constant Version_32 := 16#cde9ea2d#;
pragma Export (C, u00062, "ada__characters__latin_1S");
u00063 : constant Version_32 := 16#e6d4fa36#;
pragma Export (C, u00063, "ada__stringsS");
u00064 : constant Version_32 := 16#16f45e54#;
pragma Export (C, u00064, "ada__strings__mapsB");
u00065 : constant Version_32 := 16#9df1863a#;
pragma Export (C, u00065, "ada__strings__mapsS");
u00066 : constant Version_32 := 16#96b40646#;
pragma Export (C, u00066, "system__bit_opsB");
u00067 : constant Version_32 := 16#8f9e0384#;
pragma Export (C, u00067, "system__bit_opsS");
u00068 : constant Version_32 := 16#4642cba6#;
pragma Export (C, u00068, "ada__strings__maps__constantsS");
u00069 : constant Version_32 := 16#a0d3d22b#;
pragma Export (C, u00069, "system__address_imageB");
u00070 : constant Version_32 := 16#e3813282#;
pragma Export (C, u00070, "system__address_imageS");
u00071 : constant Version_32 := 16#cdf7317a#;
pragma Export (C, u00071, "system__img_unsS");
u00072 : constant Version_32 := 16#20ec7aa3#;
pragma Export (C, u00072, "system__ioB");
u00073 : constant Version_32 := 16#dc2f58f7#;
pragma Export (C, u00073, "system__ioS");
u00074 : constant Version_32 := 16#754b4bb8#;
pragma Export (C, u00074, "system__mmapB");
u00075 : constant Version_32 := 16#7a46ab42#;
pragma Export (C, u00075, "system__mmapS");
u00076 : constant Version_32 := 16#367911c4#;
pragma Export (C, u00076, "ada__io_exceptionsS");
u00077 : constant Version_32 := 16#dd82c35a#;
pragma Export (C, u00077, "system__mmap__os_interfaceB");
u00078 : constant Version_32 := 16#37fd3b64#;
pragma Export (C, u00078, "system__mmap__os_interfaceS");
u00079 : constant Version_32 := 16#3e3920c1#;
pragma Export (C, u00079, "system__mmap__unixS");
u00080 : constant Version_32 := 16#1d7382c4#;
pragma Export (C, u00080, "system__os_libB");
u00081 : constant Version_32 := 16#b8017fe7#;
pragma Export (C, u00081, "system__os_libS");
u00082 : constant Version_32 := 16#6e5d049a#;
pragma Export (C, u00082, "system__atomic_operations__test_and_setB");
u00083 : constant Version_32 := 16#57acee8e#;
pragma Export (C, u00083, "system__atomic_operations__test_and_setS");
u00084 : constant Version_32 := 16#850ed59d#;
pragma Export (C, u00084, "system__atomic_operationsS");
u00085 : constant Version_32 := 16#29cc6115#;
pragma Export (C, u00085, "system__atomic_primitivesB");
u00086 : constant Version_32 := 16#0524e799#;
pragma Export (C, u00086, "system__atomic_primitivesS");
u00087 : constant Version_32 := 16#256dbbe5#;
pragma Export (C, u00087, "system__stringsB");
u00088 : constant Version_32 := 16#d9efafa0#;
pragma Export (C, u00088, "system__stringsS");
u00089 : constant Version_32 := 16#2fdbc40e#;
pragma Export (C, u00089, "system__object_readerB");
u00090 : constant Version_32 := 16#55f4bbb3#;
pragma Export (C, u00090, "system__object_readerS");
u00091 : constant Version_32 := 16#d7e08022#;
pragma Export (C, u00091, "system__val_lliS");
u00092 : constant Version_32 := 16#6a5ef568#;
pragma Export (C, u00092, "system__val_lluS");
u00093 : constant Version_32 := 16#bad10b33#;
pragma Export (C, u00093, "system__exception_tracesB");
u00094 : constant Version_32 := 16#aef5c6de#;
pragma Export (C, u00094, "system__exception_tracesS");
u00095 : constant Version_32 := 16#fd158a37#;
pragma Export (C, u00095, "system__wch_conB");
u00096 : constant Version_32 := 16#9b6e8cdb#;
pragma Export (C, u00096, "system__wch_conS");
u00097 : constant Version_32 := 16#5c289972#;
pragma Export (C, u00097, "system__wch_stwB");
u00098 : constant Version_32 := 16#b67fa0da#;
pragma Export (C, u00098, "system__wch_stwS");
u00099 : constant Version_32 := 16#f8305de6#;
pragma Export (C, u00099, "system__wch_cnvB");
u00100 : constant Version_32 := 16#9dae46ab#;
pragma Export (C, u00100, "system__wch_cnvS");
u00101 : constant Version_32 := 16#e538de43#;
pragma Export (C, u00101, "system__wch_jisB");
u00102 : constant Version_32 := 16#28192481#;
pragma Export (C, u00102, "system__wch_jisS");
u00103 : constant Version_32 := 16#a201b8c5#;
pragma Export (C, u00103, "ada__strings__text_buffersB");
u00104 : constant Version_32 := 16#a7cfd09b#;
pragma Export (C, u00104, "ada__strings__text_buffersS");
u00105 : constant Version_32 := 16#8b7604c4#;
pragma Export (C, u00105, "ada__strings__utf_encodingB");
u00106 : constant Version_32 := 16#4d0e0994#;
pragma Export (C, u00106, "ada__strings__utf_encodingS");
u00107 : constant Version_32 := 16#bb780f45#;
pragma Export (C, u00107, "ada__strings__utf_encoding__stringsB");
u00108 : constant Version_32 := 16#b85ff4b6#;
pragma Export (C, u00108, "ada__strings__utf_encoding__stringsS");
u00109 : constant Version_32 := 16#d1d1ed0b#;
pragma Export (C, u00109, "ada__strings__utf_encoding__wide_stringsB");
u00110 : constant Version_32 := 16#5678478f#;
pragma Export (C, u00110, "ada__strings__utf_encoding__wide_stringsS");
u00111 : constant Version_32 := 16#c2b98963#;
pragma Export (C, u00111, "ada__strings__utf_encoding__wide_wide_stringsB");
u00112 : constant Version_32 := 16#d7af3358#;
pragma Export (C, u00112, "ada__strings__utf_encoding__wide_wide_stringsS");
u00113 : constant Version_32 := 16#f38d604a#;
pragma Export (C, u00113, "ada__tagsB");
u00114 : constant Version_32 := 16#4d1deaec#;
pragma Export (C, u00114, "ada__tagsS");
u00115 : constant Version_32 := 16#3548d972#;
pragma Export (C, u00115, "system__htableB");
u00116 : constant Version_32 := 16#c3b4f753#;
pragma Export (C, u00116, "system__htableS");
u00117 : constant Version_32 := 16#1f1abe38#;
pragma Export (C, u00117, "system__string_hashB");
u00118 : constant Version_32 := 16#64f1772c#;
pragma Export (C, u00118, "system__string_hashS");
u00119 : constant Version_32 := 16#67eb6d5a#;
pragma Export (C, u00119, "ada__text_ioB");
u00120 : constant Version_32 := 16#3cf1122b#;
pragma Export (C, u00120, "ada__text_ioS");
u00121 : constant Version_32 := 16#b4f41810#;
pragma Export (C, u00121, "ada__streamsB");
u00122 : constant Version_32 := 16#67e31212#;
pragma Export (C, u00122, "ada__streamsS");
u00123 : constant Version_32 := 16#abd3c34b#;
pragma Export (C, u00123, "system__put_imagesB");
u00124 : constant Version_32 := 16#5ec3a8a7#;
pragma Export (C, u00124, "system__put_imagesS");
u00125 : constant Version_32 := 16#22b9eb9f#;
pragma Export (C, u00125, "ada__strings__text_buffers__utilsB");
u00126 : constant Version_32 := 16#89062ac3#;
pragma Export (C, u00126, "ada__strings__text_buffers__utilsS");
u00127 : constant Version_32 := 16#73d2d764#;
pragma Export (C, u00127, "interfaces__c_streamsB");
u00128 : constant Version_32 := 16#7acc80b4#;
pragma Export (C, u00128, "interfaces__c_streamsS");
u00129 : constant Version_32 := 16#1aa716c1#;
pragma Export (C, u00129, "system__file_ioB");
u00130 : constant Version_32 := 16#3ecf6aed#;
pragma Export (C, u00130, "system__file_ioS");
u00131 : constant Version_32 := 16#86c56e5a#;
pragma Export (C, u00131, "ada__finalizationS");
u00132 : constant Version_32 := 16#95817ed8#;
pragma Export (C, u00132, "system__finalization_rootB");
u00133 : constant Version_32 := 16#0d9fdc28#;
pragma Export (C, u00133, "system__finalization_rootS");
u00134 : constant Version_32 := 16#e09c58a9#;
pragma Export (C, u00134, "system__file_control_blockS");
u00135 : constant Version_32 := 16#1eeacd0c#;
pragma Export (C, u00135, "sdlB");
u00136 : constant Version_32 := 16#6e262465#;
pragma Export (C, u00136, "sdlS");
u00137 : constant Version_32 := 16#9f72c855#;
pragma Export (C, u00137, "sdl__errorB");
u00138 : constant Version_32 := 16#fbacc442#;
pragma Export (C, u00138, "sdl__errorS");
u00139 : constant Version_32 := 16#40f98252#;
pragma Export (C, u00139, "interfaces__c__stringsB");
u00140 : constant Version_32 := 16#a856e1a3#;
pragma Export (C, u00140, "interfaces__c__stringsS");
u00141 : constant Version_32 := 16#07acaf42#;
pragma Export (C, u00141, "sdl__eventsS");
u00142 : constant Version_32 := 16#5948638f#;
pragma Export (C, u00142, "sdl__events__eventsB");
u00143 : constant Version_32 := 16#5e73368b#;
pragma Export (C, u00143, "sdl__events__eventsS");
u00144 : constant Version_32 := 16#f5c36f20#;
pragma Export (C, u00144, "sdl__events__controllersS");
u00145 : constant Version_32 := 16#ae71a01b#;
pragma Export (C, u00145, "sdl__events__joysticksB");
u00146 : constant Version_32 := 16#e7c77fad#;
pragma Export (C, u00146, "sdl__events__joysticksS");
u00147 : constant Version_32 := 16#b782aba3#;
pragma Export (C, u00147, "sdl__events__filesS");
u00148 : constant Version_32 := 16#1d599977#;
pragma Export (C, u00148, "sdl__events__keyboardsB");
u00149 : constant Version_32 := 16#9106f4b1#;
pragma Export (C, u00149, "sdl__events__keyboardsS");
u00150 : constant Version_32 := 16#dff8c4d8#;
pragma Export (C, u00150, "sdl__videoB");
u00151 : constant Version_32 := 16#8ca03ec1#;
pragma Export (C, u00151, "sdl__videoS");
u00152 : constant Version_32 := 16#c55fea3f#;
pragma Export (C, u00152, "sdl__video__windowsB");
u00153 : constant Version_32 := 16#900f1f7d#;
pragma Export (C, u00153, "sdl__video__windowsS");
u00154 : constant Version_32 := 16#2fb34529#;
pragma Export (C, u00154, "system__assertionsB");
u00155 : constant Version_32 := 16#646ed023#;
pragma Export (C, u00155, "system__assertionsS");
u00156 : constant Version_32 := 16#8b2c6428#;
pragma Export (C, u00156, "ada__assertionsB");
u00157 : constant Version_32 := 16#cc3ec2fd#;
pragma Export (C, u00157, "ada__assertionsS");
u00158 : constant Version_32 := 16#28888d98#;
pragma Export (C, u00158, "system__finalization_mastersB");
u00159 : constant Version_32 := 16#02e4eddb#;
pragma Export (C, u00159, "system__finalization_mastersS");
u00160 : constant Version_32 := 16#35d6ef80#;
pragma Export (C, u00160, "system__storage_poolsB");
u00161 : constant Version_32 := 16#bf8c6aef#;
pragma Export (C, u00161, "system__storage_poolsS");
u00162 : constant Version_32 := 16#b49a0e5d#;
pragma Export (C, u00162, "system__storage_pools__subpoolsB");
u00163 : constant Version_32 := 16#a2d8d50c#;
pragma Export (C, u00163, "system__storage_pools__subpoolsS");
u00164 : constant Version_32 := 16#b0df1928#;
pragma Export (C, u00164, "system__storage_pools__subpools__finalizationB");
u00165 : constant Version_32 := 16#562129f7#;
pragma Export (C, u00165, "system__storage_pools__subpools__finalizationS");
u00166 : constant Version_32 := 16#59a9ef65#;
pragma Export (C, u00166, "sdl__c_pointersS");
u00167 : constant Version_32 := 16#dd7f75da#;
pragma Export (C, u00167, "sdl__video__displaysB");
u00168 : constant Version_32 := 16#c9623aca#;
pragma Export (C, u00168, "sdl__video__displaysS");
u00169 : constant Version_32 := 16#3f16a661#;
pragma Export (C, u00169, "sdl__video__pixel_formatsB");
u00170 : constant Version_32 := 16#cad5b75b#;
pragma Export (C, u00170, "sdl__video__pixel_formatsS");
u00171 : constant Version_32 := 16#5aa0c2ac#;
pragma Export (C, u00171, "sdl__video__palettesB");
u00172 : constant Version_32 := 16#02a22597#;
pragma Export (C, u00172, "sdl__video__palettesS");
u00173 : constant Version_32 := 16#7c78c3c5#;
pragma Export (C, u00173, "system__pool_globalB");
u00174 : constant Version_32 := 16#91b367a5#;
pragma Export (C, u00174, "system__pool_globalS");
u00175 : constant Version_32 := 16#1982dcd0#;
pragma Export (C, u00175, "system__memoryB");
u00176 : constant Version_32 := 16#19e99d68#;
pragma Export (C, u00176, "system__memoryS");
u00177 : constant Version_32 := 16#ef09c5ab#;
pragma Export (C, u00177, "sdl__video__rectanglesB");
u00178 : constant Version_32 := 16#773e1129#;
pragma Export (C, u00178, "sdl__video__rectanglesS");
u00179 : constant Version_32 := 16#b19e3a91#;
pragma Export (C, u00179, "sdl__video__surfacesB");
u00180 : constant Version_32 := 16#888c8957#;
pragma Export (C, u00180, "sdl__video__surfacesS");
u00181 : constant Version_32 := 16#e652c197#;
pragma Export (C, u00181, "system__return_stackS");
u00182 : constant Version_32 := 16#d50f3cfb#;
pragma Export (C, u00182, "system__stream_attributesB");
u00183 : constant Version_32 := 16#5e0388d4#;
pragma Export (C, u00183, "system__stream_attributesS");
u00184 : constant Version_32 := 16#3aecdcda#;
pragma Export (C, u00184, "system__stream_attributes__xdrB");
u00185 : constant Version_32 := 16#42985e70#;
pragma Export (C, u00185, "system__stream_attributes__xdrS");
u00186 : constant Version_32 := 16#815f70d4#;
pragma Export (C, u00186, "system__fat_fltS");
u00187 : constant Version_32 := 16#a76d79d9#;
pragma Export (C, u00187, "system__fat_lfltS");
u00188 : constant Version_32 := 16#ddbdd733#;
pragma Export (C, u00188, "system__fat_llfS");
u00189 : constant Version_32 := 16#66035241#;
pragma Export (C, u00189, "sdl__events__miceS");
u00190 : constant Version_32 := 16#446ed451#;
pragma Export (C, u00190, "sdl__events__touchesS");
u00191 : constant Version_32 := 16#713bfc83#;
pragma Export (C, u00191, "sdl__events__windowsS");
u00192 : constant Version_32 := 16#48176494#;
pragma Export (C, u00192, "sdl__imagesB");
u00193 : constant Version_32 := 16#530d5180#;
pragma Export (C, u00193, "sdl__imagesS");
u00194 : constant Version_32 := 16#34c5a405#;
pragma Export (C, u00194, "sdl__images__ioB");
u00195 : constant Version_32 := 16#9a728871#;
pragma Export (C, u00195, "sdl__images__ioS");
u00196 : constant Version_32 := 16#ebda439b#;
pragma Export (C, u00196, "sdl__rwopsB");
u00197 : constant Version_32 := 16#82fbb5ae#;
pragma Export (C, u00197, "sdl__rwopsS");
u00198 : constant Version_32 := 16#f5f567e3#;
pragma Export (C, u00198, "sdl__video__renderersB");
u00199 : constant Version_32 := 16#a0ad70f6#;
pragma Export (C, u00199, "sdl__video__renderersS");
u00200 : constant Version_32 := 16#580ccfdc#;
pragma Export (C, u00200, "sdl__video__texturesB");
u00201 : constant Version_32 := 16#abea9c79#;
pragma Export (C, u00201, "sdl__video__texturesS");
u00202 : constant Version_32 := 16#71581158#;
pragma Export (C, u00202, "sdl__video__pixelsS");
u00203 : constant Version_32 := 16#010b3ca4#;
pragma Export (C, u00203, "sdl__video__renderers__makersB");
u00204 : constant Version_32 := 16#9b55209d#;
pragma Export (C, u00204, "sdl__video__renderers__makersS");
u00205 : constant Version_32 := 16#1aa788ac#;
pragma Export (C, u00205, "sdl__video__surfaces__makersB");
u00206 : constant Version_32 := 16#7aec1d50#;
pragma Export (C, u00206, "sdl__video__surfaces__makersS");
u00207 : constant Version_32 := 16#6b6cf7a1#;
pragma Export (C, u00207, "sdl__video__textures__makersB");
u00208 : constant Version_32 := 16#bee99f6d#;
pragma Export (C, u00208, "sdl__video__textures__makersS");
u00209 : constant Version_32 := 16#6a50b071#;
pragma Export (C, u00209, "sdl__video__windows__makersB");
u00210 : constant Version_32 := 16#49567878#;
pragma Export (C, u00210, "sdl__video__windows__makersS");
u00211 : constant Version_32 := 16#ca878138#;
pragma Export (C, u00211, "system__concat_2B");
u00212 : constant Version_32 := 16#f796dc4f#;
pragma Export (C, u00212, "system__concat_2S");
-- BEGIN ELABORATION ORDER
-- ada%s
-- ada.characters%s
-- ada.characters.latin_1%s
-- interfaces%s
-- system%s
-- system.atomic_operations%s
-- system.io%s
-- system.io%b
-- system.parameters%s
-- system.parameters%b
-- system.crtl%s
-- interfaces.c_streams%s
-- interfaces.c_streams%b
-- system.storage_elements%s
-- system.storage_elements%b
-- system.return_stack%s
-- system.stack_checking%s
-- system.stack_checking%b
-- system.string_hash%s
-- system.string_hash%b
-- system.htable%s
-- system.htable%b
-- system.strings%s
-- system.strings%b
-- system.traceback_entries%s
-- system.traceback_entries%b
-- system.unsigned_types%s
-- system.wch_con%s
-- system.wch_con%b
-- system.wch_jis%s
-- system.wch_jis%b
-- system.wch_cnv%s
-- system.wch_cnv%b
-- system.concat_2%s
-- system.concat_2%b
-- system.traceback%s
-- system.traceback%b
-- ada.characters.handling%s
-- system.atomic_operations.test_and_set%s
-- system.case_util%s
-- system.os_lib%s
-- system.secondary_stack%s
-- system.standard_library%s
-- ada.exceptions%s
-- system.exceptions_debug%s
-- system.exceptions_debug%b
-- system.soft_links%s
-- system.val_llu%s
-- system.val_lli%s
-- system.val_uns%s
-- system.val_int%s
-- system.val_util%s
-- system.val_util%b
-- system.wch_stw%s
-- system.wch_stw%b
-- ada.exceptions.last_chance_handler%s
-- ada.exceptions.last_chance_handler%b
-- ada.exceptions.traceback%s
-- ada.exceptions.traceback%b
-- system.address_image%s
-- system.address_image%b
-- system.bit_ops%s
-- system.bit_ops%b
-- system.bounded_strings%s
-- system.bounded_strings%b
-- system.case_util%b
-- system.exception_table%s
-- system.exception_table%b
-- ada.containers%s
-- ada.io_exceptions%s
-- ada.numerics%s
-- ada.numerics.big_numbers%s
-- ada.strings%s
-- ada.strings.maps%s
-- ada.strings.maps%b
-- ada.strings.maps.constants%s
-- interfaces.c%s
-- interfaces.c%b
-- system.atomic_primitives%s
-- system.atomic_primitives%b
-- system.exceptions%s
-- system.exceptions.machine%s
-- system.exceptions.machine%b
-- ada.characters.handling%b
-- system.atomic_operations.test_and_set%b
-- system.exception_traces%s
-- system.exception_traces%b
-- system.memory%s
-- system.memory%b
-- system.mmap%s
-- system.mmap.os_interface%s
-- system.mmap%b
-- system.mmap.unix%s
-- system.mmap.os_interface%b
-- system.object_reader%s
-- system.object_reader%b
-- system.dwarf_lines%s
-- system.os_lib%b
-- system.secondary_stack%b
-- system.soft_links.initialize%s
-- system.soft_links.initialize%b
-- system.soft_links%b
-- system.standard_library%b
-- system.traceback.symbolic%s
-- system.traceback.symbolic%b
-- system.wid_uns%s
-- system.img_int%s
-- ada.exceptions%b
-- system.img_uns%s
-- system.dwarf_lines%b
-- ada.assertions%s
-- ada.assertions%b
-- ada.command_line%s
-- ada.command_line%b
-- ada.strings.utf_encoding%s
-- ada.strings.utf_encoding%b
-- ada.strings.utf_encoding.strings%s
-- ada.strings.utf_encoding.strings%b
-- ada.strings.utf_encoding.wide_strings%s
-- ada.strings.utf_encoding.wide_strings%b
-- ada.strings.utf_encoding.wide_wide_strings%s
-- ada.strings.utf_encoding.wide_wide_strings%b
-- ada.tags%s
-- ada.tags%b
-- ada.strings.text_buffers%s
-- ada.strings.text_buffers%b
-- ada.strings.text_buffers.utils%s
-- ada.strings.text_buffers.utils%b
-- interfaces.c.strings%s
-- interfaces.c.strings%b
-- system.fat_flt%s
-- system.fat_lflt%s
-- system.fat_llf%s
-- system.put_images%s
-- system.put_images%b
-- ada.streams%s
-- ada.streams%b
-- system.file_control_block%s
-- system.finalization_root%s
-- system.finalization_root%b
-- ada.finalization%s
-- system.file_io%s
-- system.file_io%b
-- system.storage_pools%s
-- system.storage_pools%b
-- system.finalization_masters%s
-- system.finalization_masters%b
-- system.storage_pools.subpools%s
-- system.storage_pools.subpools.finalization%s
-- system.storage_pools.subpools.finalization%b
-- system.storage_pools.subpools%b
-- system.stream_attributes%s
-- system.stream_attributes.xdr%s
-- system.stream_attributes.xdr%b
-- system.stream_attributes%b
-- ada.text_io%s
-- ada.text_io%b
-- system.assertions%s
-- system.assertions%b
-- system.pool_global%s
-- system.pool_global%b
-- sdl%s
-- sdl%b
-- sdl.c_pointers%s
-- sdl.error%s
-- sdl.error%b
-- sdl.events%s
-- sdl.events.files%s
-- sdl.events.joysticks%s
-- sdl.events.joysticks%b
-- sdl.events.controllers%s
-- sdl.events.touches%s
-- sdl.rwops%s
-- sdl.rwops%b
-- sdl.video%s
-- sdl.video%b
-- sdl.video.palettes%s
-- sdl.video.palettes%b
-- sdl.video.pixel_formats%s
-- sdl.video.pixel_formats%b
-- sdl.video.pixels%s
-- sdl.video.rectangles%s
-- sdl.video.rectangles%b
-- sdl.video.displays%s
-- sdl.video.displays%b
-- sdl.video.surfaces%s
-- sdl.video.surfaces%b
-- sdl.video.surfaces.makers%s
-- sdl.video.surfaces.makers%b
-- sdl.video.textures%s
-- sdl.video.textures%b
-- sdl.video.windows%s
-- sdl.video.windows%b
-- sdl.events.keyboards%s
-- sdl.events.keyboards%b
-- sdl.events.mice%s
-- sdl.events.windows%s
-- sdl.events.events%s
-- sdl.events.events%b
-- sdl.video.renderers%s
-- sdl.video.renderers%b
-- sdl.video.renderers.makers%s
-- sdl.video.renderers.makers%b
-- sdl.video.textures.makers%s
-- sdl.video.textures.makers%b
-- sdl.video.windows.makers%s
-- sdl.video.windows.makers%b
-- sdl.images%s
-- sdl.images%b
-- sdl.images.io%s
-- sdl.images.io%b
-- main%b
-- END ELABORATION ORDER
end ada_main;
b__main.ali
+407
View File
@@ -0,0 +1,407 @@
V "GNAT Lib v13"
A -gnatA
A -gnatA
A -gnatWb
A -gnatiw
A -gnatws
A -mtune=generic
A -march=x86-64
P ZX
RN
RV NO_ACCESS_SUBPROGRAMS
RV NO_STANDARD_STORAGE_POOLS
RV NO_DEFAULT_INITIALIZATION
RV NO_IMPLEMENTATION_ATTRIBUTES
RV NO_IMPLEMENTATION_PRAGMAS
RV NO_IMPLICIT_LOOPS
RV NO_ELABORATION_CODE
RV NO_OBSOLESCENT_FEATURES
U ada_main%b b__main.adb 38784531 OO PK IL
W ada%s ada.ads ada.ali
W ada.exceptions%s a-except.adb a-except.ali
Z system%s system.ads system.ali
U ada_main%s b__main.ads d2f11bda EE NE OO PK IL
W system%s system.ads system.ali
W system.parameters%s s-parame.adb s-parame.ali
W system.secondary_stack%s s-secsta.adb s-secsta.ali
D ada.ads 20240316000000 76789da1 ada%s
D a-except.ads 20240316000000 2a7d8d70 ada.exceptions%s
D a-unccon.ads 20240316000000 0e9b276f ada.unchecked_conversion%s
D b__main.ads 20240422095341 138a6931 ada_main%s
D b__main.adb 20240422095341 018fa170 ada_main%b
D system.ads 20240316000000 426dafb8 system%s
D s-parame.ads 20240316000000 d494a4a6 system.parameters%s
D s-secsta.ads 20240316000000 578279f5 system.secondary_stack%s
D s-stalib.ads 20240316000000 1c9580f6 system.standard_library%s
D s-stoele.ads 20240316000000 ab5468e4 system.storage_elements%s
D s-traent.ads 20240316000000 c81cbf8c system.traceback_entries%s
G a e
G c Z s b [adainit ada_main 29 14 none]
G c Z s b [adafinal ada_main 32 14 none]
G c Z s b [main ada_main 35 13 none]
G c Z b b [Tsec_default_sized_stacksBIP ada_main 57 4 none]
G c Z b b [finalize_library ada_main 64 14 none]
G c Z b b [ada_main_program ada_main 340 14 none]
X 1 ada.ads
16K9*Ada 20e8 5|6r6
X 2 a-except.ads
44K13*Exceptions 295e19 5|6w10
X 4 b__main.ads
6K9*ada_main 683l5 683e13 5|8b14 385l5 385t13
8i4*gnat_argc{integer} 12m22 12r22 5|360r10 361m10
9m4*gnat_argv{6|67M9} 13m22 13r22 5|362m10
10m4*gnat_envp{6|67M9} 14m22 14r22 5|364m7
16i4*gnat_exit_status{integer} 17m22 17r22 5|371r15
19a4*GNAT_Version{string} 21r22 23r54
23m4*GNAT_Version_Address{6|67M9} 24r22
26a4*Ada_Main_Program_Name{string} 27r22 5|356r52
29U14*adainit 30i<c,adainit>22 5|169b14 338l8 338t15 367s7
32U14*adafinal 33i<c,adafinal>22 5|150b14 164l8 164t16 369s7
35V13*main{integer} 36>7 37>7 38>7 40i<c,main>22 5|343b13 372t7
36i7 argc{integer} 5|344b7 361r23
37m7 argv{6|67M9} 5|345b7 362r23
38m7 envp{6|67M9} 5|346b7 364r20
42M9*Version_32 43r22 45r22 47r22 49r22 51r22 53r22 55r22 57r22 59r22 61r22
. 63r22 65r22 67r22 69r22 71r22 73r22 75r22 77r22 79r22 81r22 83r22 85r22
. 87r22 89r22 91r22 93r22 95r22 97r22 99r22 101r22 103r22 105r22 107r22 109r22
. 111r22 113r22 115r22 117r22 119r22 121r22 123r22 125r22 127r22 129r22 131r22
. 133r22 135r22 137r22 139r22 141r22 143r22 145r22 147r22 149r22 151r22 153r22
. 155r22 157r22 159r22 161r22 163r22 165r22 167r22 169r22 171r22 173r22 175r22
. 177r22 179r22 181r22 183r22 185r22 187r22 189r22 191r22 193r22 195r22 197r22
. 199r22 201r22 203r22 205r22 207r22 209r22 211r22 213r22 215r22 217r22 219r22
. 221r22 223r22 225r22 227r22 229r22 231r22 233r22 235r22 237r22 239r22 241r22
. 243r22 245r22 247r22 249r22 251r22 253r22 255r22 257r22 259r22 261r22 263r22
. 265r22 267r22 269r22 271r22 273r22 275r22 277r22 279r22 281r22 283r22 285r22
. 287r22 289r22 291r22 293r22 295r22 297r22 299r22 301r22 303r22 305r22 307r22
. 309r22 311r22 313r22 315r22 317r22 319r22 321r22 323r22 325r22 327r22 329r22
. 331r22 333r22 335r22 337r22 339r22 341r22 343r22 345r22 347r22 349r22 351r22
. 353r22 355r22 357r22 359r22 361r22 363r22 365r22 367r22 369r22 371r22 373r22
. 375r22 377r22 379r22 381r22 383r22 385r22 387r22 389r22 391r22 393r22 395r22
. 397r22 399r22 401r22 403r22 405r22 407r22 409r22 411r22 413r22 415r22 417r22
. 419r22 421r22 423r22 425r22 427r22 429r22 431r22 433r22 435r22 437r22 439r22
. 441r22 443r22 445r22 447r22 449r22 451r22 453r22 455r22 457r22 459r22 461r22
. 463r22 465r22
43m4*u00001{42M9} 44r22
45m4*u00002{42M9} 46r22
47m4*u00003{42M9} 48r22
49m4*u00004{42M9} 50r22
51m4*u00005{42M9} 52r22
53m4*u00006{42M9} 54r22
55m4*u00007{42M9} 56r22
57m4*u00008{42M9} 58r22
59m4*u00009{42M9} 60r22
61m4*u00010{42M9} 62r22
63m4*u00011{42M9} 64r22
65m4*u00012{42M9} 66r22
67m4*u00013{42M9} 68r22
69m4*u00014{42M9} 70r22
71m4*u00015{42M9} 72r22
73m4*u00016{42M9} 74r22
75m4*u00017{42M9} 76r22
77m4*u00018{42M9} 78r22
79m4*u00019{42M9} 80r22
81m4*u00020{42M9} 82r22
83m4*u00021{42M9} 84r22
85m4*u00022{42M9} 86r22
87m4*u00023{42M9} 88r22
89m4*u00024{42M9} 90r22
91m4*u00025{42M9} 92r22
93m4*u00026{42M9} 94r22
95m4*u00027{42M9} 96r22
97m4*u00028{42M9} 98r22
99m4*u00029{42M9} 100r22
101m4*u00030{42M9} 102r22
103m4*u00031{42M9} 104r22
105m4*u00032{42M9} 106r22
107m4*u00033{42M9} 108r22
109m4*u00034{42M9} 110r22
111m4*u00035{42M9} 112r22
113m4*u00036{42M9} 114r22
115m4*u00037{42M9} 116r22
117m4*u00038{42M9} 118r22
119m4*u00039{42M9} 120r22
121m4*u00040{42M9} 122r22
123m4*u00041{42M9} 124r22
125m4*u00042{42M9} 126r22
127m4*u00043{42M9} 128r22
129m4*u00044{42M9} 130r22
131m4*u00045{42M9} 132r22
133m4*u00046{42M9} 134r22
135m4*u00047{42M9} 136r22
137m4*u00048{42M9} 138r22
139m4*u00049{42M9} 140r22
141m4*u00050{42M9} 142r22
143m4*u00051{42M9} 144r22
145m4*u00052{42M9} 146r22
147m4*u00053{42M9} 148r22
149m4*u00054{42M9} 150r22
151m4*u00055{42M9} 152r22
153m4*u00056{42M9} 154r22
155m4*u00057{42M9} 156r22
157m4*u00058{42M9} 158r22
159m4*u00059{42M9} 160r22
161m4*u00060{42M9} 162r22
163m4*u00061{42M9} 164r22
165m4*u00062{42M9} 166r22
167m4*u00063{42M9} 168r22
169m4*u00064{42M9} 170r22
171m4*u00065{42M9} 172r22
173m4*u00066{42M9} 174r22
175m4*u00067{42M9} 176r22
177m4*u00068{42M9} 178r22
179m4*u00069{42M9} 180r22
181m4*u00070{42M9} 182r22
183m4*u00071{42M9} 184r22
185m4*u00072{42M9} 186r22
187m4*u00073{42M9} 188r22
189m4*u00074{42M9} 190r22
191m4*u00075{42M9} 192r22
193m4*u00076{42M9} 194r22
195m4*u00077{42M9} 196r22
197m4*u00078{42M9} 198r22
199m4*u00079{42M9} 200r22
201m4*u00080{42M9} 202r22
203m4*u00081{42M9} 204r22
205m4*u00082{42M9} 206r22
207m4*u00083{42M9} 208r22
209m4*u00084{42M9} 210r22
211m4*u00085{42M9} 212r22
213m4*u00086{42M9} 214r22
215m4*u00087{42M9} 216r22
217m4*u00088{42M9} 218r22
219m4*u00089{42M9} 220r22
221m4*u00090{42M9} 222r22
223m4*u00091{42M9} 224r22
225m4*u00092{42M9} 226r22
227m4*u00093{42M9} 228r22
229m4*u00094{42M9} 230r22
231m4*u00095{42M9} 232r22
233m4*u00096{42M9} 234r22
235m4*u00097{42M9} 236r22
237m4*u00098{42M9} 238r22
239m4*u00099{42M9} 240r22
241m4*u00100{42M9} 242r22
243m4*u00101{42M9} 244r22
245m4*u00102{42M9} 246r22
247m4*u00103{42M9} 248r22
249m4*u00104{42M9} 250r22
251m4*u00105{42M9} 252r22
253m4*u00106{42M9} 254r22
255m4*u00107{42M9} 256r22
257m4*u00108{42M9} 258r22
259m4*u00109{42M9} 260r22
261m4*u00110{42M9} 262r22
263m4*u00111{42M9} 264r22
265m4*u00112{42M9} 266r22
267m4*u00113{42M9} 268r22
269m4*u00114{42M9} 270r22
271m4*u00115{42M9} 272r22
273m4*u00116{42M9} 274r22
275m4*u00117{42M9} 276r22
277m4*u00118{42M9} 278r22
279m4*u00119{42M9} 280r22
281m4*u00120{42M9} 282r22
283m4*u00121{42M9} 284r22
285m4*u00122{42M9} 286r22
287m4*u00123{42M9} 288r22
289m4*u00124{42M9} 290r22
291m4*u00125{42M9} 292r22
293m4*u00126{42M9} 294r22
295m4*u00127{42M9} 296r22
297m4*u00128{42M9} 298r22
299m4*u00129{42M9} 300r22
301m4*u00130{42M9} 302r22
303m4*u00131{42M9} 304r22
305m4*u00132{42M9} 306r22
307m4*u00133{42M9} 308r22
309m4*u00134{42M9} 310r22
311m4*u00135{42M9} 312r22
313m4*u00136{42M9} 314r22
315m4*u00137{42M9} 316r22
317m4*u00138{42M9} 318r22
319m4*u00139{42M9} 320r22
321m4*u00140{42M9} 322r22
323m4*u00141{42M9} 324r22
325m4*u00142{42M9} 326r22
327m4*u00143{42M9} 328r22
329m4*u00144{42M9} 330r22
331m4*u00145{42M9} 332r22
333m4*u00146{42M9} 334r22
335m4*u00147{42M9} 336r22
337m4*u00148{42M9} 338r22
339m4*u00149{42M9} 340r22
341m4*u00150{42M9} 342r22
343m4*u00151{42M9} 344r22
345m4*u00152{42M9} 346r22
347m4*u00153{42M9} 348r22
349m4*u00154{42M9} 350r22
351m4*u00155{42M9} 352r22
353m4*u00156{42M9} 354r22
355m4*u00157{42M9} 356r22
357m4*u00158{42M9} 358r22
359m4*u00159{42M9} 360r22
361m4*u00160{42M9} 362r22
363m4*u00161{42M9} 364r22
365m4*u00162{42M9} 366r22
367m4*u00163{42M9} 368r22
369m4*u00164{42M9} 370r22
371m4*u00165{42M9} 372r22
373m4*u00166{42M9} 374r22
375m4*u00167{42M9} 376r22
377m4*u00168{42M9} 378r22
379m4*u00169{42M9} 380r22
381m4*u00170{42M9} 382r22
383m4*u00171{42M9} 384r22
385m4*u00172{42M9} 386r22
387m4*u00173{42M9} 388r22
389m4*u00174{42M9} 390r22
391m4*u00175{42M9} 392r22
393m4*u00176{42M9} 394r22
395m4*u00177{42M9} 396r22
397m4*u00178{42M9} 398r22
399m4*u00179{42M9} 400r22
401m4*u00180{42M9} 402r22
403m4*u00181{42M9} 404r22
405m4*u00182{42M9} 406r22
407m4*u00183{42M9} 408r22
409m4*u00184{42M9} 410r22
411m4*u00185{42M9} 412r22
413m4*u00186{42M9} 414r22
415m4*u00187{42M9} 416r22
417m4*u00188{42M9} 418r22
419m4*u00189{42M9} 420r22
421m4*u00190{42M9} 422r22
423m4*u00191{42M9} 424r22
425m4*u00192{42M9} 426r22
427m4*u00193{42M9} 428r22
429m4*u00194{42M9} 430r22
431m4*u00195{42M9} 432r22
433m4*u00196{42M9} 434r22
435m4*u00197{42M9} 436r22
437m4*u00198{42M9} 438r22
439m4*u00199{42M9} 440r22
441m4*u00200{42M9} 442r22
443m4*u00201{42M9} 444r22
445m4*u00202{42M9} 446r22
447m4*u00203{42M9} 448r22
449m4*u00204{42M9} 450r22
451m4*u00205{42M9} 452r22
453m4*u00206{42M9} 454r22
455m4*u00207{42M9} 456r22
457m4*u00208{42M9} 458r22
459m4*u00209{42M9} 460r22
461m4*u00210{42M9} 462r22
463m4*u00211{42M9} 464r22
465m4*u00212{42M9} 466r22
X 5 b__main.adb
10i4 E081{short_integer} 10m46 10r46 267m7 267r15
11i4 E011{short_integer} 11m46 11r46 275m7 275r15
12i4 E015{short_integer} 12m46 12r46 270m7 270r15
13i4 E025{short_integer} 13m46 13r46 246m7 246r15
14i4 E048{short_integer} 14m46 14r46 248m7 248r15
15i4 E076{short_integer} 15m46 15r46 250m7 250r15
16i4 E032{short_integer} 16m46 16r46 252m7 252r15
17i4 E063{short_integer} 17m46 17r46 254m7 254r15
18i4 E065{short_integer} 18m46 18r46 256m7 256r15
19i4 E068{short_integer} 19m46 19r46 258m7 258r15
20i4 E053{short_integer} 20m46 20r46 260m7 260r15
21i4 E026{short_integer} 21m46 21r46 262m7 262r15
22i4 E090{short_integer} 22m46 22r46 264m7 264r15
23i4 E058{short_integer} 23m46 23r46 278m7 278r15
24i4 E017{short_integer} 24m46 24r46 269m7 269r15
25i4 E047{short_integer} 25m46 25r46 272m7 272r15
26i4 E031{short_integer} 26m46 26r46 274m7 274r15
27i4 E071{short_integer} 27m46 27r46 277m7 277r15
28i4 E157{short_integer} 28m46 28r46 280m7 280r15
29i4 E106{short_integer} 29m46 29r46 282m7 282r15
30i4 E114{short_integer} 30m46 30r46 285m7 285r15
31i4 E104{short_integer} 31m46 31r46 287m7 287r15
32i4 E140{short_integer} 32m46 32r46 289m7 289r15
33i4 E122{short_integer} 33m46 33r46 291m7 291r15
34i4 E134{short_integer} 34m46 34r46 293m7 293r15
35i4 E133{short_integer} 35m46 35r46 295m7 295r15
36i4 E131{short_integer} 36m46 36r46 297m7 297r15
37i4 E130{short_integer} 37m46 37r46 139m10 139r18 299m7 299r15
38i4 E161{short_integer} 38m46 38r46 301m7 301r15
39i4 E159{short_integer} 39m46 39r46 128m7 128r15 304m7 304r15
40i4 E163{short_integer} 40m46 40r46 121m7 121r15 306m7 306r15
41i4 E120{short_integer} 41m46 41r46 114m7 114r15 309m7 309r15
42i4 E174{short_integer} 42m46 42r46 107m7 107r15 311m7 311r15
43i4 E197{short_integer} 43m46 43r46 313m7 313r15
44i4 E151{short_integer} 44m46 44r46 315m7 315r15
45i4 E172{short_integer} 45m46 45r46 98m10 98r18 318m7 318r15
46i4 E170{short_integer} 46m46 46r46 320m7 320r15
47i4 E202{short_integer} 47m46 47r46 322m7 322r15
48i4 E178{short_integer} 48m46 48r46 324m7 324r15
49i4 E180{short_integer} 49m46 49r46 87m7 87r15 326m7 326r15
50i4 E201{short_integer} 50m46 50r46 80m7 80r15 328m7 328r15
51i4 E153{short_integer} 51m46 51r46 73m7 73r15 330m7 330r15
52i4 E143{short_integer} 52m46 52r46 332m7 332r15
53i4 E199{short_integer} 53m46 53r46 66m7 66r15 334m7 334r15
54i4 E193{short_integer} 54m46 54r46 336m7 336r15
55i4 E195{short_integer} 55m46 55r46 337m7 337r15
57a4 Sec_Default_Sized_Stacks(8|43R9) 237m32 237r32
59a4 Local_Priority_Specific_Dispatching{string} 225r9
60a4 Local_Interrupt_States{string} 228r27
62b4 Is_Elaborated{boolean} 158r14 161m7 214r10 217m7
64U14 finalize_library 64b14 148l8 148t24 241r35
68U20*F1 69b<ada,sdl__video__renderers__finalize_spec>30 71s10
75U20*F2 76b<ada,sdl__video__windows__finalize_spec>30 78s10
82U20*F3 83b<ada,sdl__video__textures__finalize_spec>30 85s10
89U20*F4 90b<ada,sdl__video__surfaces__finalize_spec>30 92s10
95U20*F5 96b<ada,sdl__video__palettes__finalize_body>30 99s10
102U20*F6 103b<ada,sdl__video__palettes__finalize_spec>30 105s10
109U20*F7 110b<ada,system__pool_global__finalize_spec>30 112s10
116U20*F8 117b<ada,ada__text_io__finalize_spec>30 119s10
123U20*F9 124b<ada,system__storage_pools__subpools__finalize_spec>30 126s10
130U20*F10 131b<ada,system__finalization_masters__finalize_spec>30 133s10
136U20*F11 137b<ada,system__file_io__finalize_body>30 140s10
143U20*Reraise_Library_Exception_If_Any 144b<ada,__gnat_reraise_library_exception_if_any>33
. 146s10
151U17*s_stalib_adafinal 152b<ada,system__standard_library__adafinal>27 163s7
154U17*Runtime_Finalize 155b<c,__gnat_runtime_finalize>25 162s7
166P9 No_Param_Proc 167r28 206r34
170i7*Main_Priority{integer} 171m25 171r25 218m7
172i7*Time_Slice_Value{integer} 173m25 173r25 219m7
174e7*WC_Encoding{character} 175m25 175r25 220m7
176e7*Locking_Policy{character} 177m25 177r25 221m7
178e7*Queuing_Policy{character} 179m25 179r25 222m7
180e7*Task_Dispatching_Policy{character} 181m25 181r25 223m7
182m7*Priority_Specific_Dispatching{6|67M9} 183m25 183r25 224m7
184i7*Num_Specific_Dispatching{integer} 185m25 185r25 226m7
186i7*Main_CPU{integer} 187m25 187r25 227m7
188m7*Interrupt_States{6|67M9} 189m25 189r25 228m7
190i7*Num_Interrupt_States{integer} 191m25 191r25 229m7
192i7*Unreserve_All_Interrupts{integer} 193m25 193r25 230m7
194i7*Detect_Blocking{integer} 195m25 195r25 231m7
196i7*Default_Stack_Size{integer} 197m25 197r25 232m7
198i7*Default_Secondary_Stack_Size{7|56I9} 199m25 199r25 235m7
200m7*Bind_Env_Addr{6|67M9} 201m25 201r25
203U17*Runtime_Initialize 203>37 204b<c,__gnat_runtime_initialize>25 239s7
203i37 Install_Handler{integer}
206p7*Finalize_Library_Objects{166P9} 207m25 207r25 241m7
208i7*Binder_Sec_Stacks_Count{natural} 209m27 209r27 236m7
210m7*Default_Sized_SS_Pool{6|67M9} 211m27 211r27 237m7
340U14 Ada_Main_Program 341b<ada,_ada_main>24 368s7
349U17*Initialize 349>29 350b<c,__gnat_initialize>25 366s7
349m29 Addr{6|67M9}
352U17*Finalize 353b<c,__gnat_finalize>25 370s7
354a7 SEH(integer) 366m19 366r19
356m7 Ensure_Reference{6|67M9} 357r24
X 6 system.ads
37K9*System 4|3w6 4r6 5r6 9r16 10r16 23r36 37r14 38r14 5|57r57 57r90 182r39
. 188r26 198r38 200r23 210r31 235r39 345r14 346r14 349r36 356r34 6|153e11
67M9*Address 4|9r23 10r23 23r43 37r21 38r21 5|182r46 188r33 200r30 210r38
. 345r21 346r21 349r43 356r41
X 7 s-parame.ads
49K16*Parameters 4|4w13 5|57r97 198r45 235r46 7|190e22
56I9*Size_Type<long_integer> 5|198r56
93i4*Runtime_Default_Sec_Stack_Size{56I9} 5|57r108 235r57
X 8 s-secsta.ads
35K16*Secondary_Stack 4|5w13 5|57r64 8|429e27
43R9*SS_Stack 5|57r80 8|329e14
b__main.o
BIN
View File
Binary file not shown.
main
BIN
View File
Binary file not shown.
main.adb
+103
View File
@@ -0,0 +1,103 @@
-----------------------
-- Jason Bou-Samra --
-- Paragon 02/23 --
-----------------------
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Command_Line; use Ada.Text_IO;
with SDL.Video.Windows.Makers;
with SDL.Video.Renderers.Makers;
with SDL.Video.Surfaces.Makers;
with SDL.Video.Textures.Makers;
with SDL.Images.IO;
with SDL.Events.Events;
with SDL.Error;
use SDL.C;
procedure Main is
Window_Title : constant String := "Amiga Complete System";
Image_Name : constant String := "./img/AmigaSys.ilbm.png";
quit : Boolean := FALSE;
use SDL.Video;
use type Windows.Window_Flags;
use type Renderers.Renderer_flags;
use type SDL.Events.Event_Types;
Win : Windows.Window;
Ren : Renderers.Renderer;
Bmp : Surfaces.Surface;
Tex : Textures.Texture;
Event : SDL.Events.Events.Events;
Dummy : Boolean;
begin
-- Initialise SDL
if not SDL.Initialise or not SDL.Images.Initialise then
Ada.Text_IO.Put_Line (Ada.Text_IO.Standard_Error,
"SDL.Initialize error: " & SDL.Error.Get);
Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
return;
end if;
-- Create window
Windows.Makers.Create (Win,
Title => Window_Title,
Position => (100, 100),
Size => (640, 400),
Flags => Windows.Shown);
-- Create renderer
Renderers.Makers.Create (Rend => Ren,
Window => Win,
Flags => (Renderers.Accelerated or
Renderers.Present_V_Sync));
-- Create image
SDL.Images.IO.Create (Surface => Bmp,
File_Name => Image_Name);
-- Create texture
Textures.Makers.Create (Tex => Tex,
Renderer => Ren,
Surface => Bmp);
-- Present texture
Ren.Clear;
Ren.Copy (Copy_From => Tex);
Ren.Present;
-- Event loop
-- Exit after 2 seconds
-- for I in 1 ..10200 loop
-- Dummy := SDL.Events.Events.Poll (Event);
-- exit when Event.Common.Event_Type = SDL.Events.Quit;
-- delay 0.01;
-- end loop;
-- my code
Main : loop
while SDL.Events.Events.Poll (Event) loop
if Event.Common.Event_Type = SDL.Events.Quit then
exit Main;
end if;
-- Renderer.Clear;
-- Renderer.Copy (Texture);
-- Renderer.Present;
end loop;
end loop Main;
-- end my code
-- Not really needed since these will soon go out of scope
Tex.Finalize; -- textire
Ren.Finalize; -- renderer
Win.Finalize; -- window
SDL.Finalise; -- SDL
end Main;
main.adb.stderr
View File
main.adb.stdout
View File
main.ali
+265
View File
@@ -0,0 +1,265 @@
V "GNAT Lib v13"
M P W=b
A -gnatA
A -mtune=generic
A -march=x86-64
P SS ZX
RN
RV NO_DIRECT_BOOLEAN_OPERATORS
RV NO_EXCEPTION_HANDLERS
RV NO_EXCEPTIONS
RV NO_IO
RV NO_IMPLICIT_CONDITIONALS
RV NO_LOCAL_ALLOCATORS
RV NO_NESTED_FINALIZATION
RV NO_SECONDARY_STACK
RV NO_STANDARD_STORAGE_POOLS
RV NO_DEFAULT_INITIALIZATION
RV NO_DYNAMIC_SIZED_OBJECTS
RV NO_IMPLEMENTATION_PRAGMAS
U main%b main.adb 97cbc870 NE OO SU
W ada%s ada.ads ada.ali
W ada.command_line%s a-comlin.adb a-comlin.ali
Z ada.exceptions%s a-except.adb a-except.ali
Z ada.strings.text_buffers%s a-sttebu.adb a-sttebu.ali
W ada.text_io%s a-textio.adb a-textio.ali
W sdl%s sdl.adb sdl.ali
W sdl.error%s sdl-error.adb sdl-error.ali
W sdl.events%s sdl-events.ads sdl-events.ali
W sdl.events.events%s sdl-events-events.adb sdl-events-events.ali
W sdl.images%s sdl-images.adb sdl-images.ali
W sdl.images.io%s sdl-images-io.adb sdl-images-io.ali
W sdl.video%s sdl-video.adb sdl-video.ali
W sdl.video.renderers%s sdl-video-renderers.adb sdl-video-renderers.ali
W sdl.video.renderers.makers%s sdl-video-renderers-makers.adb sdl-video-renderers-makers.ali
W sdl.video.surfaces%s sdl-video-surfaces.adb sdl-video-surfaces.ali
W sdl.video.surfaces.makers%s sdl-video-surfaces-makers.adb sdl-video-surfaces-makers.ali
W sdl.video.textures%s sdl-video-textures.adb sdl-video-textures.ali
W sdl.video.textures.makers%s sdl-video-textures-makers.adb sdl-video-textures-makers.ali
W sdl.video.windows%s sdl-video-windows.adb sdl-video-windows.ali
W sdl.video.windows.makers%s sdl-video-windows-makers.adb sdl-video-windows-makers.ali
Z system.concat_2%s s-conca2.adb s-conca2.ali
Z system.secondary_stack%s s-secsta.adb s-secsta.ali
Z system.soft_links%s s-soflin.adb s-soflin.ali
Z system.standard_library%s s-stalib.adb s-stalib.ali
D ada.ads 20240316000000 76789da1 ada%s
D a-charac.ads 20240316000000 2d3ec45b ada.characters%s
D a-chlat1.ads 20240316000000 e0d72e76 ada.characters.latin_1%s
D a-comlin.ads 20240316000000 4aa66568 ada.command_line%s
D a-except.ads 20240316000000 2a7d8d70 ada.exceptions%s
D a-finali.ads 20240316000000 bf4f806b ada.finalization%s
D a-ioexce.ads 20240316000000 40018c65 ada.io_exceptions%s
D a-iteint.ads 20240316000000 49a8bee2 ada.iterator_interfaces%s
D a-stream.ads 20240316000000 119b8fb3 ada.streams%s
D a-string.ads 20240316000000 90ac6797 ada.strings%s
D a-sttebu.ads 20240316000000 f1ad67a2 ada.strings.text_buffers%s
D a-stuten.ads 20240316000000 c6ced0ae ada.strings.utf_encoding%s
D a-tags.ads 20240316000000 9eaa38c6 ada.tags%s
D a-textio.ads 20240316000000 5c2c6153 ada.text_io%s
D a-unccon.ads 20240316000000 0e9b276f ada.unchecked_conversion%s
D interfac.ads 20240316000000 15f799c2 interfaces%s
D i-c.ads 20240316000000 5c5a6c17 interfaces.c%s
D i-cpoint.ads 20240316000000 ee8a93ec interfaces.c.pointers%s
D i-cstrin.ads 20240316000000 f40c8db4 interfaces.c.strings%s
D i-cstrea.ads 20240316000000 e53d8b8e interfaces.c_streams%s
D main.adb 20240422095136 04d72558 main%b
D sdl.ads 20230506025106 327c4872 sdl%s
D sdl-c_pointers.ads 20230506025106 6bd5a717 sdl.c_pointers%s
D sdl-error.ads 20230506025106 c9d08c30 sdl.error%s
D sdl-events.ads 20230506025106 3b4bc05f sdl.events%s
D sdl-events-controllers.ads 20230506025106 1204108d sdl.events.controllers%s
D sdl-events-events.ads 20230506025106 8e3f142f sdl.events.events%s
D sdl-events-files.ads 20230506025106 3aa849f0 sdl.events.files%s
D sdl-events-joysticks.ads 20230506025106 dc8cbff2 sdl.events.joysticks%s
D sdl-events-keyboards.ads 20230506025220 300c6c02 sdl.events.keyboards%s
D sdl-events-mice.ads 20230506025106 dc65745f sdl.events.mice%s
D sdl-events-touches.ads 20230506025106 237f7819 sdl.events.touches%s
D sdl-events-windows.ads 20230506025106 d0316430 sdl.events.windows%s
D sdl-images.ads 20230506025106 3d2b75e5 sdl.images%s
D sdl-images-io.ads 20230506025106 c01195b2 sdl.images.io%s
D sdl-rwops.ads 20230506025106 687eeedd sdl.rwops%s
D sdl-video.ads 20230506025106 e2861aa4 sdl.video%s
D sdl-video-displays.ads 20230506025106 3485c755 sdl.video.displays%s
D sdl-video-palettes.ads 20230506025106 4706123d sdl.video.palettes%s
D sdl-video-pixel_formats.ads 20230506025106 c8b4430e sdl.video.pixel_formats%s
D sdl-video-pixels.ads 20230506025106 73ff7ff8 sdl.video.pixels%s
D sdl-video-rectangles.ads 20230506025106 c9e2679a sdl.video.rectangles%s
D sdl-video-renderers.ads 20230506025106 2a4d8895 sdl.video.renderers%s
D sdl-video-renderers-makers.ads 20230506025106 3c3a4e96 sdl.video.renderers.makers%s
D sdl-video-surfaces.ads 20230506025106 8d22e69e sdl.video.surfaces%s
D sdl-video-surfaces-makers.ads 20230506025106 5c9a932a sdl.video.surfaces.makers%s
D sdl-video-textures.ads 20230506025106 a859e8f0 sdl.video.textures%s
D sdl-video-textures-makers.ads 20230506025106 b1df1996 sdl.video.textures.makers%s
D sdl-video-windows.ads 20230506025106 9a4158ec sdl.video.windows%s
D sdl-video-windows-makers.ads 20230506025106 d3172094 sdl.video.windows.makers%s
D system.ads 20240316000000 426dafb8 system%s
D s-atacco.ads 20240316000000 903317eb system.address_to_access_conversions%s
D s-conca2.ads 20240316000000 b5fb73f7 system.concat_2%s
D s-crtl.ads 20240316000000 8a0692f8 system.crtl%s
D s-exctab.ads 20240316000000 91bef6ef system.exception_table%s
D s-ficobl.ads 20240316000000 dc5161d4 system.file_control_block%s
D s-finmas.ads 20240316000000 bd688734 system.finalization_masters%s
D s-finroo.ads 20240316000000 4ff27390 system.finalization_root%s
D s-linux.ads 20240316000000 34850a8c system.linux%s
D s-memory.ads 20240316000000 5b8432d0 system.memory%s
D s-multip.ads 20240316000000 38ac9f73 system.multiprocessors%s
D s-oscons.ads 20240316000000 7c53a909 system.os_constants%s
D s-osinte.ads 20240316000000 e4f53740 system.os_interface%s
D s-parame.ads 20240316000000 d494a4a6 system.parameters%s
D s-pooglo.ads 20240316000000 91708d21 system.pool_global%s
D s-putima.ads 20240316000000 17291fe4 system.put_images%s
D s-retsta.ads 20240316000000 0f6b06cb system.return_stack%s
D s-secsta.ads 20240316000000 578279f5 system.secondary_stack%s
D s-soflin.ads 20240316000000 df77073e system.soft_links%s
D s-stache.ads 20240316000000 0b81c1fe system.stack_checking%s
D s-stausa.ads 20240316000000 5be75682 system.stack_usage%s
D s-stalib.ads 20240316000000 1c9580f6 system.standard_library%s
D s-stalib.adb 20240316000000 eb464a47 system.standard_library%b
D s-stoele.ads 20240316000000 ab5468e4 system.storage_elements%s
D s-stoele.adb 20240316000000 8f5a9db6 system.storage_elements%b
D s-stopoo.ads 20240316000000 e9fa2dd8 system.storage_pools%s
D s-stposu.ads 20240316000000 e251976f system.storage_pools.subpools%s
D s-stratt.ads 20240316000000 f7dfd786 system.stream_attributes%s
D s-tasinf.ads 20240316000000 528dde74 system.task_info%s
D s-taspri.ads 20240316000000 4ec891e7 system.task_primitives%s
D s-taskin.ads 20240316000000 0ec7ab0b system.tasking%s
D s-traent.ads 20240316000000 c81cbf8c system.traceback_entries%s
D s-unstyp.ads 20240316000000 fa2a7f59 system.unsigned_types%s
D s-wchcon.ads 20240316000000 d9032363 system.wch_con%s
G a e
G c Z b b [main standard 18 11 none]
G r s window [main standard 18 11 none] [windowIP sdl__video__windows 190 9 none]
G r s renderer [main standard 18 11 none] [rendererIP sdl__video__renderers 132 9 none]
G r s surface [main standard 18 11 none] [surfaceIP sdl__video__surfaces 233 9 none]
G r s texture [main standard 18 11 none] [textureIP sdl__video__textures 112 9 none]
G r s events [main standard 18 11 none] [eventsIP sdl__events__events 60 9 none]
G r c none [main standard 18 11 none] [initialise sdl 102 13 none]
G r c none [main standard 18 11 none] [initialise sdl__images 45 13 none]
G r c none [main standard 18 11 none] [get sdl__error 37 13 none]
G r c none [main standard 18 11 none] [create sdl__video__windows__makers 34 14 none]
G r c none [main standard 18 11 none] [create sdl__video__renderers__makers 39 14 none]
G r c none [main standard 18 11 none] [create sdl__images__io 35 14 none]
G r c none [main standard 18 11 none] [create sdl__video__textures__makers 40 14 none]
G r c none [main standard 18 11 none] [clear sdl__video__renderers 74 14 none]
G r c none [main standard 18 11 none] [copy sdl__video__renderers 76 14 none]
G r c none [main standard 18 11 none] [present sdl__video__renderers 122 14 none]
G r c none [main standard 18 11 none] [poll sdl__events__events 135 13 none]
G r e texture [main standard 18 11 none] [finalize sdl__video__textures 122 14 none]
G r e renderer [main standard 18 11 none] [finalize sdl__video__renderers 64 14 none]
G r e window [main standard 18 11 none] [finalize sdl__video__windows 96 14 none]
G r c none [main standard 18 11 none] [finalise sdl 104 14 none]
X 1 ada.ads
16K9*Ada 20e8 21|5r6 5r29 6r6 6r29 42r7 42r29 44r7 44r41
X 4 a-comlin.ads
36K13*Command_Line 144e21 21|6w10 44r11 44r45
70I9*Exit_Status<integer>
73i4*Failure{70I9} 21|44r58
75U14*Set_Exit_Status 21|44s24
X 12 a-stuten.ads
59A12*UTF_8_String{string}<integer>
X 14 a-textio.ads
58K13*Text_IO 787e16 21|5w10 5r33 6r33 42r11 42r33
66P9*File_Type
188V13*Standard_Error{66P9} 21|42s41
555U14*Put_Line 21|42s19
X 21 main.adb
18U11*Main 18b11 103l5 103t9
20a4 Window_Title{string} 50r39
21a4 Image_Name{string} 63r39
22b4 quit{boolean}
30r4 Win{49|89R9} 49m27 49r27 57m39 57r39 100m4 100r4
31r4 Ren{43|59R9} 56m39 56r39 67r40 71m4 71r4 72m4 72r4 73r4 99m4 99r4
32r4 Bmp{45|56R9} 62m39 62r39 68r40
33r4 Tex{47|43R9} 66m40 66r40 72r27 98m4 98r4
35r4 Event{27|60R9} 85m40 85r40 86r16
36b4 Dummy{boolean}
84l7 Main 87r21 94l16 94e20
X 22 sdl.ads
29K9*SDL 21|8r6 9r6 10r6 11r6 13r6 14r6 15r6 16r5 25r8 28r13 35r12 41r11
. 41r33 43r56 62r4 85r16 86r42 101r4 22|139e8
32K12*C=32:33 21|16r9
102V13*Initialise{boolean} 21|41s15
104U14*Finalise 21|101s8
X 24 sdl-error.ads
27K13*Error 21|15w10 43r60 24|38e14
37V13*Get{string} 21|43s66
X 25 sdl-events.ads
33K13*Events 21|14r10 28r17 35r16 85r20 86r46 25|136e15
36M9*Event_Types 21|28r24
52m4*Quit{36M9} 21|86r53
85m10*Event_Type{36M9} 21|86r29
X 27 sdl-events-events.ads
36K20*Events 21|14w17 35r23 85r27 27|144e22
60R9*Events 21|35r30 27|123e18
121r16*Common{25|83R9} 21|86r22
135V13*Poll{boolean} 21|85s34
X 34 sdl-images.ads
29K13*Images 21|13r10 41r37 62r8 34|57e15
45V13*Initialise{boolean}<22|102p13> 21|41s44
X 35 sdl-images-io.ads
32K20*IO 21|13w17 62r15 35|52e18
35U14*Create 21|62s18
35r22 Surface{45|56R9} 21|62r26
35a63 File_Name{string} 21|63r26
X 37 sdl-video.ads
29K13*Video 21|8r10 9r10 10r10 11r10 25r12 37|74e14
X 43 sdl-video-renderers.ads
34K19*Renderers 21|9r16 27r13 31r10 56r4 58r40 59r42 43|145e24
41M9*Renderer_Flags 21|27r23
46m4*Accelerated{41M9} 21|58r50
47m4*Present_V_Sync{41M9} 21|59r52
59R9*Renderer<6|50R9> 21|31r20 43|136e17
64U14*Finalize<6|54p14> 21|99s8
74U14*Clear 21|71s8
76U14*Copy 21|72s8
78r7 Copy_From{47|43R9} 21|72r14
122U14*Present 21|73s8
X 44 sdl-video-renderers-makers.ads
29K29*Makers 21|9w26 56r14 44|50e31
39U14*Create 21|56s21
40r7 Rend{43|59R9} 21|56r29
41r7 Window{49|89R9} 21|57r29
42m7 Flags{43|41M9} 21|58r29
X 45 sdl-video-surfaces.ads
36K19*Surfaces 21|10r16 32r10 45|242e23
56R9*Surface<6|43R9> 21|32r19 45|237e17
X 46 sdl-video-surfaces-makers.ads
29K28*Makers 21|10w25 46|83e30
X 47 sdl-video-textures.ads
34K19*Textures 21|11r16 33r10 66r4 47|134e23
43R9*Texture<6|50R9> 21|33r19 47|119e17
122U14 Finalize<6|54p14> 21|98s8
X 48 sdl-video-textures-makers.ads
30K28*Makers 21|11w25 66r13 48|44e30
40U14*Create 21|66s20
41r7 Tex{47|43R9} 21|66r28
42r7 Renderer{43|59R9} 21|67r28
43r7 Surface{45|56R9} 21|68r28
X 49 sdl-video-windows.ads
36K19*Windows 21|8r16 26r13 30r10 49r4 53r39 49|208e22
52M9*Window_Flags 21|26r21
58m4*Shown{52M9} 21|53r47
89R9*Window<6|50R9> 21|30r18 49|194e17
96U14*Finalize<6|54p14> 21|100s8
X 50 sdl-video-windows-makers.ads
27K27*Makers 21|8w24 49r12 50|56e29
34U14*Create 21|49s19
36a7 Title{12|59A12} 21|50r27
37r7 Position{22|68R12} 21|51r27
38r7 Size{22|93R12} 21|52r27
39m7 Flags{49|52M9} 21|53r27
X 51 system.ads
67M9*Address
X 60 s-memory.ads
51V13*Alloc{51|67M9} 101i<c,__gnat_malloc>22
66U14*Free 102i<c,__gnat_free>22
74V13*Realloc{51|67M9} 103i<c,__gnat_realloc>22
X 71 s-stausa.ads
207U14*Initialize 208i<c,__gnat_stack_usage_initialize>22
272U14*Output_Results 276i<c,__gnat_stack_usage_output_results>22
X 73 s-stalib.adb
87U14 Break_Start 88i<c,__gnat_break_start>22
main.bexch
+21
View File
@@ -0,0 +1,21 @@
[GENERATED OBJECT FILE]
b__main.o
[PROJECT FILES]
/home/jason/Desktop/complete system/main.gpr
20240422095333 7ecc19f446c8bb6eef48da0d214d6ddb
/home/jason/opt/sdlada/share/gpr/sdlada.gpr
20230506025901 c5b24deeb12cd5609c5c728ca025c42e
[BOUND OBJECT FILES]
/home/jason/Desktop/complete system/main.o
[GENERATED SOURCE FILES]
b__main.ads
b__main.adb
b__main.ali
[RESULTING OPTIONS]
-L/home/jason/Desktop/complete system/
-L/home/jason/Desktop/complete system/
-L/home/jason/opt/sdlada/lib/sdlada.release/
-L/usr/lib/gcc/x86_64-redhat-linux/13/adalib/
-static
-lgnat
-ldl
main.gpr
+5
View File
@@ -0,0 +1,5 @@
with "/home/jason/opt/sdlada/share/gpr/sdlada.gpr";
project main is
for Main use ("main.adb");
end main;
main.o
BIN
View File
Binary file not shown.