From fac788f255313517de24732370fc3a10dda1b247 Mon Sep 17 00:00:00 2001 From: Cyril SIX Date: Wed, 9 Dec 2020 13:03:42 +0100 Subject: Flushing debug output --- backend/LICMaux.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'backend/LICMaux.ml') diff --git a/backend/LICMaux.ml b/backend/LICMaux.ml index 602d078d..df98077b 100644 --- a/backend/LICMaux.ml +++ b/backend/LICMaux.ml @@ -23,7 +23,7 @@ type reg = P.t;; let debug_flag = ref false let debug fmt = - if !debug_flag then Printf.eprintf fmt + if !debug_flag then (flush stderr; Printf.eprintf fmt) else Printf.ifprintf stderr fmt type vstate = Unvisited | Processed | Visited -- cgit