private package Ada.Exceptions.Exception_Propagation.Unwind_Exceptions is

   type Unwinder_Caches is record
      Reserved_1 : Unwind_Word;
      Reserved_2 : Unwind_Word;
      Reserved_3 : Unwind_Word;
      Reserved_4 : Unwind_Word;
      Reserved_5 : Unwind_Word;
   end record;

   type Barrier_Caches is record
      SP          : Unwind_Word;
      Bit_Pattern : array (1 .. 5) of Unwind_Word;
   end record;

   type Cleanup_Caches is record
      Bit_Pattern : array (1 .. 4) of Unwind_Word;
   end record;

   type Unwind_EHT_Header_Access is access Unwind_Word;

   type PR_Caches is record
      Function_Start : Unwind_Word;
      EHT            : Unwind_Eht_Header_Access;
      Additional     : Unwind_Word;
      Reserved_1     : Unwind_Word;
   end record;

   type Unwind_Control_Block is record
      Class          : Exception_Class := GNAT_Exception_Class;
      Cleanup        : System.Address  := System.Null_Address;
      Unwinder_Cache : Unwinder_Caches;
      Barrier_Cache  : Barrier_Caches;
      Cleanup_Cache  : Cleanup_Caches;
      PR_Cache       : PR_Caches;
   end record;

   type Unwind_Exception renames Unwind_Control_Block;

end Ada.Exceptions.Exception_Propagation.Unwind_Exceptions;