Commit 060d0e69 authored by hugues.jerome's avatar hugues.jerome Committed by yoogx

* Add traces for user code


git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@962 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent f82df7b9
......@@ -80,8 +80,9 @@ package body PolyORB_HI.Periodic_Task is
"Periodic Task " & Entity_Image (Entity) & ": New Cycle"));
-- Execute the task's job
Put_Line (Normal, "Enterying job for " & Entity_Image (Entity));
Error := Job;
Put_Line (Normal, "Leaving job for " & Entity_Image (Entity));
if Error /= Error_None then
Recover_Entrypoint;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment