gel.terrain: Add qualifier in unchecked conversion of the 'height_Map_view'.

2024-04-24 12:43:15 +10:00
parent b9d9930a93
commit d4ee7c678a
1 changed files with 2 additions and 1 deletions
--- a/4-high/gel/source/terrain/gel-terrain.adb
+++ b/4-high/gel/source/terrain/gel-terrain.adb
@@ -163,7 +163,8 @@ is
                                                         Tiling        => Tiling);

                  function to_Physics is new ada.unchecked_Conversion (height_Map_view,
-                                                                       Heightfield_view);
+                                                                       physics.Model.Heightfield_view);
+                                                                       --  Heightfield_view);

                  the_ground_physics_Model : constant physics.Model.view
                    := new physics.Model.item' (Id          => physics.null_model_Id,