- fix testsuite

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@12129 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Jun 20, 2012 · 630a8dc · 630a8dc
1 parent d172acd
commit 630a8dc
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Compiler/susan_codegen/SimCode/CodegenC.tpl b/Compiler/susan_codegen/SimCode/CodegenC.tpl
@@ -4471,7 +4471,9 @@ end algStmtNoretcall;
 template algStmtWhen(DAE.Statement when, Context context, Text &varDecls /*BUFP*/)
  "Generates a when algorithm statement."
 ::=
-match when
+match context
+case SIMULATION(__) then
+  match when
   case STMT_WHEN(__) then
     let preIf = algStatementWhenPre(when, &varDecls /*BUFD*/)
     let statements = (statementLst |> stmt =>
@@ -4488,6 +4490,7 @@ match when
     }  
     >>
   end match
+end match
 end algStmtWhen;