feat: add profileitM to compiler new entry point

src/Lean/Compiler/Main.lean

@@ -35,7 +35,7 @@ def checkpoint (step : Name) (decls : Array Decl) (cfg : Check.Config := {}): Co
       trace[Compiler.step] "{decl.name} := {decl.value}"
       decl.check cfg
 
-def compile (declNames : Array Name) : CoreM Unit := do
+def compile (declNames : Array Name) : CoreM Unit := do profileitM Exception "compiler new" (← getOptions) do
   let declNames ← declNames.filterM shouldGenerateCode
   let decls ← declNames.mapM toDecl
   checkpoint `init decls { terminalCasesOnly := false }

tests/lean/run/lcnf1.lean

@@ -47,5 +47,6 @@ def Vec.head : Vec α (n+1) → α
 
 #eval Compiler.compile #[``Lean.Elab.Term.synthesizeSyntheticMVars]
 
+set_option profiler true
 set_option trace.Compiler.step true
 #eval Compiler.compile #[``Lean.Meta.isExprDefEqAuxImpl]