Special case for list intersection

OpenModelica · Apr 10, 2016 · a10e5cd · a10e5cd
1 parent e64e95f
commit a10e5cd
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/Compiler/Util/List.mo b/Compiler/Util/List.mo
@@ -1628,6 +1628,13 @@ public function intersection1OnTrue<T>
 protected
   Option<T> oe;
 algorithm
+  if listEmpty(inList1) then
+    return;
+  end if;
+  if listEmpty(inList2) then
+    outList1Rest := inList1;
+    return;
+  end if;
   for e in inList1 loop
     if isMemberOnTrue(e, inList2, inCompFunc) then
       outIntersection := e :: outIntersection;