Skip to content

Commit

Permalink
- small fix to make omc MetaModelica filter happy.
Browse files Browse the repository at this point in the history
git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@7446 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
  • Loading branch information
adrpo committed Dec 17, 2010
1 parent f169544 commit a897969
Showing 1 changed file with 9 additions and 4 deletions.
13 changes: 9 additions & 4 deletions Compiler/BackEnd/SimCode.mo
Expand Up @@ -6307,9 +6307,11 @@ algorithm
Boolean tup,builtin_;
DAE.ExpType exty;
DAE.InlineType inty;

case ({},_,_,_) then ("",{});
//expand sample conditions with helpindex
case ((e as DAE.CALL(path = name as Absyn.IDENT("sample"),expLst=args_,tuple_=tup,builtin=builtin_, ty=exty, inlineType=inty) :: el),i,helpVarIndex, false)

//expand sample conditions with helpindex
case ((e as DAE.CALL(path = name as Absyn.IDENT("sample"),expLst=args_,tuple_=tup,builtin=builtin_, ty=exty, inlineType=inty)) :: el,i,helpVarIndex, false)
equation
i_str = intString(i);
helpVarIndexStr = intString(helpVarIndex);
Expand All @@ -6324,8 +6326,8 @@ algorithm
res_1 = stringAppend(res, resx);
then
(res_1,(helpInfo :: helpVarInfoList));
//expand sample conditions with helpindex
case ((e as DAE.CALL(path = name as Absyn.IDENT("sample"),expLst=args_,tuple_=tup,builtin=builtin_, ty=exty, inlineType=inty) :: el),i,helpVarIndex, true)
//expand sample conditions with helpindex
case ((e as DAE.CALL(path = name as Absyn.IDENT("sample"),expLst=args_,tuple_=tup,builtin=builtin_, ty=exty, inlineType=inty)) :: el,i,helpVarIndex, true)
equation
i_str = intString(i);
helpVarIndexStr = intString(helpVarIndex);
Expand All @@ -6340,6 +6342,7 @@ algorithm
res_1 = stringAppend(res, resx);
then
(res_1,(helpInfo :: helpVarInfoList));

case ((e :: el),i,helpVarIndex, false)
equation
i_str = intString(i);
Expand All @@ -6356,6 +6359,7 @@ algorithm
res_1 = stringAppend(res, resx);
then
(res_1,(helpInfo :: helpVarInfoList));

case ((e :: el),i,helpVarIndex, true)
equation
i_str = intString(i);
Expand All @@ -6372,6 +6376,7 @@ algorithm
res_1 = stringAppend(res, resx);
then
(res_1,(helpInfo :: helpVarInfoList));

case (_,_,_,_)
equation
print("-build_when_condition_checks3 failed.\n");
Expand Down

0 comments on commit a897969

Please sign in to comment.