Fix CevalScriptBackend.moveElementArgInfo (#13308)

- Add missing `else` case to `moveElementArgInfo` to handle comments.

Author: perost

OMCompiler/Compiler/Script/CevalScriptBackend.mo

@@ -5566,14 +5566,7 @@ protected function moveAnnotationInfo
   input String dstPath;
   output Absyn.Annotation outAnnotation = inAnnotation;
 algorithm
-  _ := match outAnnotation
-    case Absyn.ANNOTATION()
-      algorithm
-        outAnnotation.elementArgs := list(moveElementArgInfo(e, dstPath)
-          for e in outAnnotation.elementArgs);
-      then
-        ();
-  end match;
+  outAnnotation.elementArgs := list(moveElementArgInfo(e, dstPath) for e in outAnnotation.elementArgs);
 end moveAnnotationInfo;
 
 protected function moveElementItemInfo
@@ -5633,6 +5626,7 @@ algorithm
       then
         ();
 
+    else ();
   end match;
 end moveElementArgInfo;
 
@@ -5788,6 +5782,7 @@ algorithm
       then
         ();
 
+    else ();
   end match;
 end moveElementSpecInfo;
 
@@ -5811,29 +5806,15 @@ protected function moveComponentInfo
   input String dstPath;
   output Absyn.Component outComponent = inComponent;
 algorithm
-  _ := match outComponent
-    case Absyn.COMPONENT()
-      algorithm
-        outComponent.modification :=
-          moveModificationInfo(outComponent.modification, dstPath);
-      then
-        ();
-  end match;
+  outComponent.modification := moveModificationInfo(outComponent.modification, dstPath);
 end moveComponentInfo;
 
 protected function moveExternalDeclInfo
   input Absyn.ExternalDecl inExtDecl;
   input String dstPath;
   output Absyn.ExternalDecl outExtDecl = inExtDecl;
 algorithm
-  _ := match outExtDecl
-    case Absyn.EXTERNALDECL()
-      algorithm
-        outExtDecl.annotation_ :=
-          moveAnnotationOptInfo(outExtDecl.annotation_, dstPath);
-      then
-        ();
-  end match;
+  outExtDecl.annotation_ := moveAnnotationOptInfo(outExtDecl.annotation_, dstPath);
 end moveExternalDeclInfo;
 
 protected function buildModel "translates and builds the model by running compiler script on the generated makefile"

testsuite/openmodelica/interactive-API/CopyClass6.mos

@@ -0,0 +1,29 @@
+// name:     CopyClass6
+// keywords:
+// status:   correct
+// cflags:   -d=newInst
+//
+//
+
+loadString("
+  model M
+    Real x annotation(
+      // comment
+      Placement(visible = true));
+  end M;
+");
+
+copyClass(M, "M2");
+getErrorString();
+list(M2);
+
+// Result:
+// true
+// true
+// ""
+// "model M2
+//   Real x annotation(
+//  // comment
+//     Placement(visible = true));
+// end M2;"
+// endResult

testsuite/openmodelica/interactive-API/Makefile

@@ -29,6 +29,7 @@ CopyClass2.mos \
 CopyClass3.mos \
 CopyClass4.mos \
 CopyClass5.mos \
+CopyClass6.mos \
 CopyClassInvalid1.mos \
 CopyClassRedeclare1.mos \
 DefaultComponentName.mos \