From d4ee7c678a15880e56abdf562358cb281e0ddc37 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Wed, 24 Apr 2024 12:43:15 +1000 Subject: [PATCH] gel.terrain: Add qualifier in unchecked conversion of the 'height_Map_view'. --- 4-high/gel/source/terrain/gel-terrain.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/4-high/gel/source/terrain/gel-terrain.adb b/4-high/gel/source/terrain/gel-terrain.adb index 75288c6..f5e4392 100644 --- 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,