Optimizing IR copying

engine/runtime-compiler/src/main/java/org/enso/compiler/pass/analyse/PrivateConstructorAnalysis.java

@@ -70,14 +70,16 @@ public Module runModule(Module ir, ModuleContext moduleContext) {
                   }
                   return binding;
                 });
-    return ir.copy(
-        ir.imports(),
-        ir.exports(),
-        newBindings,
-        ir.location(),
-        ir.passData(),
-        ir.diagnostics(),
-        ir.id());
+    if (newBindings != ir.bindings())
+      return ir.copy(
+          ir.imports(),
+          ir.exports(),
+          newBindings,
+          ir.location(),
+          ir.passData(),
+          ir.diagnostics(),
+          ir.id());
+    else return ir;
   }
 
   /** Not supported on a single expression. */

engine/runtime-compiler/src/main/java/org/enso/compiler/pass/analyse/PrivateModuleAnalysis.java

@@ -131,14 +131,16 @@ public Module runModule(Module moduleIr, ModuleContext moduleContext) {
             ? moduleIr.exports()
             : CollectionConverters.asScala(exportErrors).toList();
 
-    return moduleIr.copy(
-        convertedImports,
-        convertedExports,
-        moduleIr.bindings(),
-        moduleIr.location(),
-        moduleIr.passData(),
-        moduleIr.diagnostics(),
-        moduleIr.id());
+    if (convertedImports != moduleIr.imports() || convertedExports != moduleIr.exports())
+      return moduleIr.copy(
+          convertedImports,
+          convertedExports,
+          moduleIr.bindings(),
+          moduleIr.location(),
+          moduleIr.passData(),
+          moduleIr.diagnostics(),
+          moduleIr.id());
+    else return moduleIr;
   }
 
   @Override

engine/runtime-compiler/src/main/java/org/enso/compiler/pass/analyse/PrivateSymbolsAnalysis.java

@@ -71,14 +71,16 @@ public Module runModule(Module ir, ModuleContext moduleContext) {
     var newBindings =
         ir.bindings()
             .map(binding -> binding.mapExpressions(expr -> processExpression(expr, bindingsMap)));
-    return ir.copy(
-        ir.imports(),
-        ir.exports(),
-        newBindings,
-        ir.location(),
-        ir.passData(),
-        ir.diagnostics(),
-        ir.id());
+    if (newBindings != ir.bindings())
+      return ir.copy(
+          ir.imports(),
+          ir.exports(),
+          newBindings,
+          ir.location(),
+          ir.passData(),
+          ir.diagnostics(),
+          ir.id());
+    else return ir;
   }
 
   /** Not supported for expressions. */
@@ -94,32 +96,35 @@ private Expression processExpression(Expression expr, BindingsMap bindingsMap) {
         var newBranches =
             caseExpr.branches().map(branch -> processCaseBranch(branch, bindingsMap)).toSeq();
         var newScrutinee = processExpression(caseExpr.scrutinee(), bindingsMap);
-        yield caseExpr.copy(
-            newScrutinee,
-            newBranches,
-            caseExpr.isNested(),
-            caseExpr.location(),
-            caseExpr.passData(),
-            caseExpr.diagnostics(),
-            caseExpr.id());
+        if (newBranches != caseExpr.branches() || newScrutinee != caseExpr.scrutinee())
+          yield caseExpr.copy(
+              newScrutinee,
+              newBranches,
+              caseExpr.isNested(),
+              caseExpr.location(),
+              caseExpr.passData(),
+              caseExpr.diagnostics(),
+              caseExpr.id());
+        else yield expr;
       }
       case Name name -> processName(name, bindingsMap);
       default -> expr.mapExpressions(e -> processExpression(e, bindingsMap));
     };
   }
 
   private Branch processCaseBranch(Branch branch, BindingsMap bindingsMap) {
-    var pat = branch.pattern();
-    var newPat = processCasePattern(pat, bindingsMap);
+    var newPat = processCasePattern(branch.pattern(), bindingsMap);
     var newExpr = processExpression(branch.expression(), bindingsMap);
-    return branch.copy(
-        newPat,
-        newExpr,
-        branch.terminalBranch(),
-        branch.location(),
-        branch.passData(),
-        branch.diagnostics(),
-        branch.id());
+    if (newPat != branch.pattern() || newExpr != branch.expression())
+      return branch.copy(
+          newPat,
+          newExpr,
+          branch.terminalBranch(),
+          branch.location(),
+          branch.passData(),
+          branch.diagnostics(),
+          branch.id());
+    else return branch;
   }
 
   private Pattern processCasePattern(Pattern pattern, BindingsMap bindingsMap) {