nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gel.world.client.is_a_mirror: Log errors detected in tasks when fetching graphics and physics models from mirrored world.

Browse Source
This commit is contained in:
Rod Kay
2024-09-15 00:05:42 +10:00
parent 2a2872495d
commit bb41976be9
1 changed files with 36 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
4-high/gel/source/world/gel-world-client.adb
View File

@@ -458,10 +458,10 @@ is
-- the_server_graphics_Models : constant remote.World.id_Map_of_graphics_model := of_World.graphics_Models; -- Fetch graphics models from the server. -- the_server_graphics_Models : constant remote.World.id_Map_of_graphics_model := of_World.graphics_Models; -- Fetch graphics models from the server.
-- the_server_physics_Models : constant remote.World.id_Map_of_physics_model := of_World. physics_Models; -- Fetch physics models from the server. -- the_server_physics_Models : constant remote.World.id_Map_of_physics_model := of_World. physics_Models; -- Fetch physics models from the server.
-- the_server_Sprites : remote.World.sprite_model_Pairs := of_World.Sprites; -- Fetch sprites from the server.
the_server_graphics_Models : remote.World.id_Map_of_graphics_model; the_server_graphics_Models : remote.World.id_Map_of_graphics_model;
the_server_physics_Models : remote.World.id_Map_of_physics_model; the_server_physics_Models : remote.World.id_Map_of_physics_model;
the_server_Sprites : remote.World.sprite_model_Pairs := of_World.Sprites;
task graphics_model_Fetcher; task graphics_model_Fetcher;
@@ -469,6 +469,14 @@ is
is is
begin begin
the_server_graphics_Models := of_World.graphics_Models; -- Fetch graphics models from the server. the_server_graphics_Models := of_World.graphics_Models; -- Fetch graphics models from the server.
exception
when E : others =>
log ("");
log ("__________________________________________________________________________");
log ("Error detected in 'graphics_model_Fetcher'.");
log (ada.Exceptions.exception_Information (E));
log ("__________________________________________________________________________");
log ("");
end graphics_model_Fetcher; end graphics_model_Fetcher;
@@ -477,21 +485,40 @@ is
is is
begin begin
the_server_physics_Models := of_World.physics_Models; -- Fetch physics models from the server. the_server_physics_Models := of_World.physics_Models; -- Fetch physics models from the server.
exception
when E : others =>
log ("");
log ("__________________________________________________________________________");
log ("Error detected in 'physics_model_Fetcher'.");
log (ada.Exceptions.exception_Information (E));
log ("__________________________________________________________________________");
log ("");
end physics_model_Fetcher; end physics_model_Fetcher;
task sprite_Fetcher; -- task sprite_Fetcher;
task body sprite_Fetcher -- task body sprite_Fetcher
is -- is
begin -- begin
the_server_Sprites := of_World.Sprites; -- Fetch sprites from the server. -- the_server_Sprites := of_World.Sprites; -- Fetch sprites from the server.
end sprite_Fetcher; -- exception
-- when E : others =>
-- log ("");
-- log ("__________________________________________________________________________");
-- log ("Error detected in 'sprite_Fetcher'.");
-- log (ada.Exceptions.exception_Information (E));
-- log ("__________________________________________________________________________");
-- log ("");
-- end sprite_Fetcher;
the_server_Sprites : remote.World.sprite_model_Pairs := of_World.Sprites;
begin begin
while not ( graphics_model_Fetcher'Terminated while not ( graphics_model_Fetcher'Terminated
and physics_model_Fetcher'Terminated and physics_model_Fetcher'Terminated)
and sprite_Fetcher'Terminated) -- and sprite_Fetcher'Terminated)
loop loop
delay 0.05; delay 0.05;
end loop; end loop;