diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 1999-11-08 17:06:33 +0000 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 1999-11-08 17:06:33 +0000 |
commit | a048d42b10feaffe3e5ee8e891e15e8b59407e56 (patch) | |
tree | 54ee79580060b51bc44d39f513ce63d9b8f3c4c4 /asmcomp/liveness.ml | |
parent | bad71c148081a820604b9901300a5b8e2b730a95 (diff) | |
download | ocaml-a048d42b10feaffe3e5ee8e891e15e8b59407e56.tar.gz |
Ajout du module Formatmsg pour rediriger les messages du systeme vers stdout ou stderr suivant le contexte
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2486 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmcomp/liveness.ml')
-rw-r--r-- | asmcomp/liveness.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/liveness.ml b/asmcomp/liveness.ml index 0a25ddc607..4019b1c802 100644 --- a/asmcomp/liveness.ml +++ b/asmcomp/liveness.ml @@ -106,6 +106,6 @@ let fundecl f = (* Sanity check: only function parameters can be live at entrypoint *) let wrong_live = Reg.Set.diff initially_live (Reg.set_of_array f.fun_args) in if not (Reg.Set.is_empty wrong_live) then begin - Printmach.regset wrong_live; Format.print_newline(); + Printmach.regset wrong_live; Formatmsg.print_newline(); Misc.fatal_error "Liveness.fundecl" end |