diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-03-12 23:34:15 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-03-12 23:37:39 +0100 |
commit | cd4851f8be071b85d2189832801736d77085b51a (patch) | |
tree | 2f09b0060bc38c91cdceb0722a6333ebe757233e /stm/spawned.ml | |
parent | 8dbfee5c5f897af8186cb1bdfb04fd4f88eca677 (diff) |
Fixing bug #4055.
When lauching ideslave without configuring the communication channels,
instead of raising an anomaly which is never caught by the main loop, we
rather exit the process with a relevant error message.
Diffstat (limited to 'stm/spawned.ml')
-rw-r--r-- | stm/spawned.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/stm/spawned.ml b/stm/spawned.ml index 18159288d..a8372195d 100644 --- a/stm/spawned.ml +++ b/stm/spawned.ml @@ -81,6 +81,7 @@ let init_channels () = let get_channels () = match !channels with - | None -> Errors.anomaly(Pp.str "init_channels not called") + | None -> + Printf.eprintf "Fatal error: ideslave communication channels not set.\n"; + exit 1 | Some(ic, oc) -> ic, oc - |