diff --git a/b__main.adb b/b__main.adb new file mode 100644 index 0000000..5849b85 --- /dev/null +++ b/b__main.adb @@ -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; diff --git a/b__main.ads b/b__main.ads new file mode 100644 index 0000000..8d92922 --- /dev/null +++ b/b__main.ads @@ -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; diff --git a/b__main.ali b/b__main.ali new file mode 100644 index 0000000..4b735ab --- /dev/null +++ b/b__main.ali @@ -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 30i22 5|169b14 338l8 338t15 367s7 +32U14*adafinal 33i22 5|150b14 164l8 164t16 369s7 +35V13*main{integer} 36>7 37>7 38>7 40i22 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 69b30 71s10 +75U20*F2 76b30 78s10 +82U20*F3 83b30 85s10 +89U20*F4 90b30 92s10 +95U20*F5 96b30 99s10 +102U20*F6 103b30 105s10 +109U20*F7 110b30 112s10 +116U20*F8 117b30 119s10 +123U20*F9 124b30 126s10 +130U20*F10 131b30 133s10 +136U20*F11 137b30 140s10 +143U20*Reraise_Library_Exception_If_Any 144b33 +. 146s10 +151U17*s_stalib_adafinal 152b27 163s7 +154U17*Runtime_Finalize 155b25 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 204b25 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 341b24 368s7 +349U17*Initialize 349>29 350b25 366s7 +349m29 Addr{6|67M9} +352U17*Finalize 353b25 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 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 + diff --git a/b__main.o b/b__main.o new file mode 100644 index 0000000..37a33a1 Binary files /dev/null and b/b__main.o differ diff --git a/main b/main new file mode 100644 index 0000000..12e9070 Binary files /dev/null and b/main differ diff --git a/main.adb b/main.adb new file mode 100644 index 0000000..6e46cc7 --- /dev/null +++ b/main.adb @@ -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; diff --git a/main.adb.stderr b/main.adb.stderr new file mode 100644 index 0000000..e69de29 diff --git a/main.adb.stdout b/main.adb.stdout new file mode 100644 index 0000000..e69de29 diff --git a/main.ali b/main.ali new file mode 100644 index 0000000..d41fc5e --- /dev/null +++ b/main.ali @@ -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 +73i4*Failure{70I9} 21|44r58 +75U14*Set_Exit_Status 21|44s24 +X 12 a-stuten.ads +59A12*UTF_8_String{string} +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} 101i22 +66U14*Free 102i22 +74V13*Realloc{51|67M9} 103i22 +X 71 s-stausa.ads +207U14*Initialize 208i22 +272U14*Output_Results 276i22 +X 73 s-stalib.adb +87U14 Break_Start 88i22 + diff --git a/main.bexch b/main.bexch new file mode 100644 index 0000000..f5f66ea --- /dev/null +++ b/main.bexch @@ -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 diff --git a/main.gpr b/main.gpr new file mode 100644 index 0000000..18e5024 --- /dev/null +++ b/main.gpr @@ -0,0 +1,5 @@ +with "/home/jason/opt/sdlada/share/gpr/sdlada.gpr"; + +project main is + for Main use ("main.adb"); +end main; diff --git a/main.o b/main.o new file mode 100644 index 0000000..5cc0c96 Binary files /dev/null and b/main.o differ