Remove cvt_emit

.gitignore

@@ -362,9 +362,6 @@ ocaml/primitives.new
 /tools/dumpobj.opt
 /tools/ocamlobjinfo
 /tools/ocamlobjinfo.opt
-/tools/cvt_emit
-/tools/cvt_emit.opt
-/tools/cvt_emit.ml
 /tools/ocamlcp
 /tools/ocamlcp.opt
 /tools/ocamloptp

.vscode/settings.json

@@ -4,7 +4,6 @@
                 "switch": "4.14.1"
         },
         "files.associations": {
-                "*.mlp": "ocaml",
                 "smmintrin.h": "c",
                 "tmmintrin.h": "c",
                 "pmmintrin.h": "c",

backend/amd64/emit.ml

@@ -37,7 +37,7 @@ module String = Misc.Stdlib.String
 module Int = Numbers.Int
 
 (* [Branch_relaxation] is not used in this file, but is required by
-   emit.mlp files for certain other targets; the reference here ensures
+   emit.ml files for certain other targets; the reference here ensures
    that when releases are being prepared the .depend files are correct
    for all targets. *)
 [@@@ocaml.warning "-66"]

backend/amd64/proc.ml

@@ -475,7 +475,7 @@ let destroyed_at_c_call_unix =
 
 let destroyed_at_c_call =
   (* C calling conventions preserve rbx, but it is clobbered
-     by the code sequence used for C calls in emit.mlp, so it
+     by the code sequence used for C calls in emit.ml, so it
      is marked as destroyed. *)
   if win64 then destroyed_at_c_call_win64 else destroyed_at_c_call_unix
 

backend/arm64_ast.mli

@@ -261,7 +261,7 @@ module DSL : sig
   val mem_literal : string -> Operand.t
 
   (* CR gyorsh: [print_*] functions below are exposed temporarily to use DSL for
-     some but not all instructions in [emit.mlp]. They can eventually*)
+     some but not all instructions in [emit.ml]. They can eventually*)
   val print_ins : Instruction_name.t -> Operand.t array -> string
 
   val print_ins_cond :

middle_end/flambda2/terms/code_size.ml

@@ -468,7 +468,7 @@ let apply apply =
 let apply_cont apply_cont =
   let size =
     match Apply_cont_expr.trap_action apply_cont with
-    (* Current rough estimates are from amd64/emit.mlp *)
+    (* Current rough estimates are from amd64/emit.ml *)
     | None -> 0
     | Some (Push _) -> 4
     | Some (Pop _) -> 2

tools/Makefile

@@ -175,19 +175,6 @@ else
 	done
 endif
 
-# The preprocessor for asm generators
-
-cvt_emit := cvt_emit$(EXE)
-
-$(eval $(call PROGRAM_SYNONYM,cvt_emit))
-
-$(cvt_emit): cvt_emit.cmo
-	$(CAMLC) $(LINKFLAGS) -o $@ $^
-
-clean::
-	rm -f cvt_emit.ml cvt_emit cvt_emit.exe
-
-beforedepend:: cvt_emit.ml
 
 # Reading cmt files
 

tools/dune

@@ -26,16 +26,13 @@
  (package ocaml))
 
 (executables
- (names   make_opcodes cvt_emit)
- (modules make_opcodes cvt_emit))
+ (names   make_opcodes)
+ (modules make_opcodes))
 
 (ocamllex
  (modules make_opcodes)
  (mode    fallback))
 
-(ocamllex
- (modules cvt_emit)
- (mode    fallback))
 
 (executable
   (name ocamldep)