Changeset b4f223e in OpenModelica

Timestamp:

2016-04-04T14:06:29+02:00 (8 years ago)

Author:

hudson <openmodelica@…>

Branches:

Added-citation-metadata, maintenance/v1.14, maintenance/v1.15, maintenance/v1.16, maintenance/v1.17, maintenance/v1.18, maintenance/v1.19, maintenance/v1.20, maintenance/v1.21, maintenance/v1.22, maintenance/v1.23, master, omlib-staging

Children:

4f671af

Parents:

18c51d6e

git-author:

Martin Sjölund <martin.sjolund@…> (04/03/16 16:07:51)

git-committer:

hudson <openmodelica@…> (04/04/16 14:06:29)

Message:

Handle listReverse of 1 element as a special case

File:

• SimulationRuntime/c/meta/meta_modelica_builtin.c (modified) (1 diff)

SimulationRuntime/c/meta/meta_modelica_builtin.c

@@ -395 +395 @@
 {
   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;
 }