diff options
Diffstat (limited to 'scheduling/RTLpathLivegenaux.ml')
| -rw-r--r-- | scheduling/RTLpathLivegenaux.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scheduling/RTLpathLivegenaux.ml b/scheduling/RTLpathLivegenaux.ml index dd971db8..765aa55f 100644 --- a/scheduling/RTLpathLivegenaux.ml +++ b/scheduling/RTLpathLivegenaux.ml @@ -9,10 +9,12 @@ open Lattice let debug_flag = ref false -let dprintf fmt = let open Printf in +let dprintf fmt = let open Printf in begin + flush stdout; match !debug_flag with | true -> printf fmt | false -> ifprintf stdout fmt +end let get_some = function | None -> failwith "Got None instead of Some _" |