rdbg fix: the potential was not provided at silent rdbg event for internal daemons

lib/sasa/sasaRun.ml

@@ -88,7 +88,8 @@ let (make_do: string array -> SasArg.t ->
         (Sasacore.Main.get_outputs_rif_decl args pl)
     in
     let vntl_o =
-      if Register.get_potential () = None then vntl_o else ("potential", Data.Real)::vntl_o in
+      if Register.get_potential () = None then vntl_o else
+        ("potential", Data.Real)::vntl_o in
     let vntl_o = ("silent", Data.Bool)::("legitimate", Data.Bool)::vntl_o in
     let pre_enable_processes_opt = ref None in
     let sasa_env = ref e in
@@ -144,7 +145,7 @@ let (make_do: string array -> SasArg.t ->
         let silent = List.for_all (fun b -> not b) (List.flatten enab_ll) in
         let legit = compute_legitimate silent p_nl_l e in
         if silent then (
-          ("silent", Data.B silent)::("legitimate", Data.B legit)::
+          ("silent", Data.B silent)::("legitimate", Data.B legit)::pot_sl@
           (from_sasa_env p_nl_l e) @ (get_sl_out true pl enab_ll) 
         )
         else
@@ -165,8 +166,8 @@ let (make_do: string array -> SasArg.t ->
     let step_dbg sl_in ctx cont =
       let sl_out = step sl_in in 
       { ctx with
-        (*       RdbgEvent.nb = 0; *)
-        (*       RdbgEvent.step = 0; (* we are actually in the middle of the first step! *) *)
+        (* RdbgEvent.nb = 0; *)
+        (* RdbgEvent.step = 0; (* we are actually in the middle of the first step! *) *)
         RdbgEvent.depth = ctx.RdbgEvent.depth + 1;
         RdbgEvent.kind = RdbgEvent.Exit;
         RdbgEvent.lang = "sasa";