Handle listReverse of 1 element as a special case

OpenModelica · Apr 4, 2016 · b4f223e · b4f223e
1 parent 18c51d6
commit b4f223e
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/SimulationRuntime/c/meta/meta_modelica_builtin.c b/SimulationRuntime/c/meta/meta_modelica_builtin.c
@@ -394,13 +394,15 @@ modelica_metatype boxptr_stringUpdateStringChar(threadData_t *threadData,metamod
 modelica_metatype listReverse(modelica_metatype lst)
 {
   modelica_metatype res = NULL;
-
+  if (MMC_NILTEST(lst) || MMC_NILTEST(MMC_CDR(lst))) {
+    // 0/1 elements are already reversed
+    return lst;
+  }
   res = mmc_mk_nil();
-  while (!MMC_NILTEST(lst))
-  {
+  do {
     res = mmc_mk_cons(MMC_CAR(lst),res);
     lst = MMC_CDR(lst);
-  }
+  } while (!MMC_NILTEST(lst));
   return res;
 }