diff options
author | Vincent Laviron <vincent.laviron@gmail.com> | 2018-08-03 13:26:57 +0200 |
---|---|---|
committer | Vincent Laviron <vincent.laviron@gmail.com> | 2019-02-19 17:00:38 +0100 |
commit | 98654c77de966ef1851c5c9d3c1607c31d253a4b (patch) | |
tree | e5cd79ea9124ea71c1a869cd14c3f41df382c09b /asmcomp/printmach.ml | |
parent | f7cf156e196546bb2bbfd99c99e9acc1390150f6 (diff) | |
download | ocaml-98654c77de966ef1851c5c9d3c1607c31d253a4b.tar.gz |
Remove loop constructors in Cmm and Mach
Diffstat (limited to 'asmcomp/printmach.ml')
-rw-r--r-- | asmcomp/printmach.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/asmcomp/printmach.ml b/asmcomp/printmach.ml index 6ef11ce346..d90e302d53 100644 --- a/asmcomp/printmach.ml +++ b/asmcomp/printmach.ml @@ -207,8 +207,6 @@ let rec instr ppf i = fprintf ppf "@]@,%a@]" instr cases.(i) done; fprintf ppf "@,endswitch" - | Iloop(body) -> - fprintf ppf "@[<v 2>loop@,%a@;<0 -2>endloop@]" instr body | Icatch(flag, handlers, body) -> fprintf ppf "@[<v 2>catch%a@,%a@;<0 -2>with" Printcmm.rec_flag flag instr body; |