[NF] Fix Expression.mapFoldShallow for BOX.

OpenModelica · Jun 18, 2020 · ae03612 · ae03612
1 parent 97bd8e7
commit ae03612
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/OMCompiler/Compiler/NFFrontEnd/NFExpression.mo b/OMCompiler/Compiler/NFFrontEnd/NFExpression.mo
@@ -3189,6 +3189,12 @@ public
         then
           if referenceEq(exp.recordExp, e1) then exp else RECORD_ELEMENT(e1, exp.index, exp.fieldName, exp.ty);
 
+      case BOX()
+        algorithm
+          (e1, arg) := func(exp.exp, arg);
+        then
+          if referenceEq(exp.exp, e1) then exp else BOX(e1);
+
       case MUTABLE()
         algorithm
           (e1, arg) := func(Mutable.access(exp.exp), arg);