Fix for #2738:

- Respect fully qualified crefs in Static.elabCrefSubs.
- Some random code cleaning in Expression.


git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@21297 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Compiler/FrontEnd/Env.mo

@@ -1575,19 +1575,19 @@ public function topFrame "Returns the top frame."
   input Env inEnv;
   output Frame outFrame;
 algorithm
-  outFrame := match (inEnv)
-    local
-      Frame fr,elt;
-      Env lst;
-    case ({fr}) then fr;
-    case ((_ :: (lst as (_ :: _))))
-      equation
-        fr = topFrame(lst);
-      then
-        fr;
-  end match;
+  outFrame :: _ := listReverse(inEnv);
 end topFrame;
 
+public function topEnv
+  input Env inEnv;
+  output Env outEnv;
+protected
+  Frame top_frame;
+algorithm
+  top_frame := topFrame(inEnv);
+  outEnv := {top_frame};
+end topEnv;
+
 public function getItemInEnv
 "@author: adrpo
  returns the item found in the first frame in env or fails"