Remove unused code

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

Author: sjoelund

Compiler/FrontEnd/InstUtil.mo

@@ -2468,81 +2468,6 @@ algorithm
   end matchcontinue;
 end addClassdefToEnv2;
 
-protected function isStructuralParameter
-"author: PA
-  This function investigates a component to find out if it is a structural parameter.
-  This is achieved by looking at the restriction to find if it is a parameter
-  and by investigating all components to find it is used in array dimensions
-  of the component. A parameter can also be structural if is is used
-  in an if equation with different number of equations in each branch."
-  input SCode.Variability inVariability;
-  input Absyn.ComponentRef inComponentRef;
-  input list<tuple<SCode.Element, DAE.Mod>> inElements;
-  input list<SCode.Equation> inEquations;
-  output Boolean outBoolean;
-algorithm
-  outBoolean := matchcontinue(inVariability, inComponentRef, inElements, inEquations)
-    local
-      list<Absyn.ComponentRef> crefs;
-      Boolean b1,b2,res;
-      SCode.Variability param;
-      Absyn.ComponentRef compname;
-      list<tuple<SCode.Element, DAE.Mod>> allcomps;
-      list<SCode.Equation> eqns;
-    /* constants does not need to be checked.
-   * Must return false here to prevent constants from be outputed
-   * as structural parameters, i.e. \"parameter\" in DAE, which is
-   * incorrect
-   */
-    case (SCode.CONST(),_,_,_) then false;
-
-    /* Check if structural:
-   * 1. By investigating array dimensions.
-   * 2. By investigating if-equations.
-   */
-    case (param,compname,allcomps,eqns)
-      equation
-        true = SCode.isParameterOrConst(param);
-        crefs = getCrefsFromCompdims(allcomps);
-        b1 = memberCrefs(compname, crefs);
-        b2 = isStructuralIfEquationParameter(compname, eqns);
-        res = boolOr(b1, b2);
-      then
-        res;
-    else false;
-  end matchcontinue;
-end isStructuralParameter;
-
-protected function isStructuralIfEquationParameter
-"author: PA
-  This function checks if a parameter is structural because
-  it is present in the condition expression of an if equation."
-  input Absyn.ComponentRef inComponentRef;
-  input list<SCode.Equation> inSCodeEquationLst;
-  output Boolean outBoolean;
-algorithm
-  outBoolean := matchcontinue (inComponentRef,inSCodeEquationLst)
-    local
-      list<Absyn.ComponentRef> crefs;
-      Absyn.ComponentRef compname;
-      list<Absyn.Exp> conds;
-      Boolean res;
-      list<SCode.Equation> eqns;
-    case (_,{}) then false;
-    case (compname,(SCode.EQUATION(eEquation = SCode.EQ_IF(condition = conds)) :: _))
-      equation
-        crefs = List.flatten(List.map2(conds,Absyn.getCrefFromExp,false,false));
-        true = memberCrefs(compname, crefs);
-      then
-        true;
-    case (compname,(_ :: eqns))
-      equation
-        res = isStructuralIfEquationParameter(compname, eqns);
-      then
-        res;
-  end matchcontinue;
-end isStructuralIfEquationParameter;
-
 protected function checkCompEnvPathVsCompTypePath
 "fails if the comp env path is NOT a prefix of comp type path"
   input Option<Absyn.Path> inCompEnvPath;