all: Fix unconstrained_Conversion's whose types have different sizes.

2025-09-21 13:16:24 +10:00
parent b02c1a92f7
commit 9469acaf91
7 changed files with 22 additions and 64 deletions
--- a/4-high/gel/source/world/gel-world.adb
+++ b/4-high/gel/source/world/gel-world.adb
@@ -1082,8 +1082,8 @@ is
      function to_Hash is new ada.unchecked_Conversion (impact_Filter,   ada.Containers.Hash_type);
      function to_Hash is new ada.unchecked_Conversion (impact_Response, ada.Containers.Hash_type);
   begin
-      return   to_Hash (Self.Filter)
-             + to_Hash (Self.Response);
+      return   to_Hash (Self.Filter)   / 2
+             + to_Hash (Self.Response) / 2;
   end Hash;