Avoid matchcontinue

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@18945 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Feb 2, 2014 · 7babbaf · 7babbaf
1 parent 5190e5e
commit 7babbaf
Showing 1 changed file with 5 additions and 15 deletions.
diff --git a/Compiler/Util/List.mo b/Compiler/Util/List.mo
@@ -7132,22 +7132,12 @@ public function getMemberOnTrue
     input ElementType inElement;
     output Boolean outIsEqual;
   end CompFunc;
+protected
+  ElementType e;
+  list<ElementType> rest;
 algorithm
-  outElement := matchcontinue(inValue, inList, inCompFunc)
-    local
-      ElementType e;
-      list<ElementType> rest;
-
-    case (_, e :: _, _)
-      equation
-        true = inCompFunc(inValue, e);
-      then
-        e;
-
-    case (_, _ :: rest, _)
-      then getMemberOnTrue(inValue, rest, inCompFunc);
-
-  end matchcontinue;
+  e :: rest := inList;
+  outElement := Debug.bcallret3(not inCompFunc(inValue, e), getMemberOnTrue, inValue, rest, inCompFunc, e);
 end getMemberOnTrue;
 
 public function notMember