- More logical sorting of paths

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@11158 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Feb 17, 2012 · 9104bf8 · 9104bf8
1 parent ad7d0f9
commit 9104bf8
Showing 1 changed file with 1 addition and 29 deletions.
diff --git a/Compiler/FrontEnd/Absyn.mo b/Compiler/FrontEnd/Absyn.mo
@@ -5433,35 +5433,7 @@ public function pathLt
   input Path path2;
   output Boolean lt;
 algorithm
-  lt := match (path1,path2)
-    local
-      Path p1,p2;
-      String s1,s2;
-      Integer cmp;
-    case (FULLYQUALIFIED(p1),FULLYQUALIFIED(p2)) then pathLt(p1,p2);
-    case (FULLYQUALIFIED(_),_) then false;
-    case (_,FULLYQUALIFIED(_)) then true;
-    case (QUALIFIED(name=s1,path=p1),QUALIFIED(name=s2,path=p2))
-      equation
-        cmp = stringCompare(s1,s2);
-        lt = Debug.bcallret2(cmp==0,pathLt,p1,p2,cmp==-1);
-      then lt;
-    case (QUALIFIED(name=s1),IDENT(name=s2))
-      equation
-        cmp = stringCompare(s1,s2);
-        lt = cmp == -1;
-      then lt;
-    case (IDENT(name=s1),QUALIFIED(name=s2))
-      equation
-        cmp = stringCompare(s1,s2);
-        lt = not (cmp == -1);
-      then lt;
-    case (IDENT(name=s1),IDENT(name=s2))
-      equation
-        cmp = stringCompare(s1,s2);
-        lt = cmp == -1;
-      then lt;
-  end match;
+  lt := stringCompare(pathString(path1),pathString(path2)) < 0;
 end pathLt;
 
 public function pathGe