Skip to content

Commit

Permalink
Fix error in template and remove Tab.
Browse files Browse the repository at this point in the history
git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@11620 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
  • Loading branch information
mahge committed Mar 30, 2012
1 parent e88c8c8 commit f1ede99
Showing 1 changed file with 12 additions and 12 deletions.
24 changes: 12 additions & 12 deletions Compiler/susan_codegen/SimCode/CodegenC.tpl
Expand Up @@ -2105,7 +2105,7 @@ case SIMCODE(modelInfo=MODELINFO(__), makefileParams=MAKEFILE_PARAMS(__), simula

# Simulations use -O3 by default
SIM_OR_DYNLOAD_OPT_LEVEL=-O3
CC=<%if acceptParModelicaGrammar() then 'g++' else 'makefileParams.ccompiler'%>
CC=<%if acceptParModelicaGrammar() then 'g++' else '<%makefileParams.ccompiler%>'%>
CXX=<%makefileParams.cxxcompiler%>
LINK=<%makefileParams.linker%>
EXEEXT=<%makefileParams.exeext%>
Expand Down Expand Up @@ -2995,8 +2995,8 @@ case FUNCTION(__) then
/* GC: pop the mark! */
<%if acceptMetaModelicaGrammar()
then 'mmc_GC_undo_roots_state(mmc_GC_local_state);'%>
<%if acceptParModelicaGrammar() then
'/* Free GPU/OpenCL CPU memory */<%\n%><%varFrees%>'%>
<%if acceptParModelicaGrammar() then
'/* Free GPU/OpenCL CPU memory */<%\n%><%varFrees%>'%>
/* functionBodyRegularFunction: return the outs */
return <%if outVars then ' <%retVar%>' %>;
}
Expand Down Expand Up @@ -3385,7 +3385,7 @@ case var as VARIABLE(parallelism = NON_PARALLEL(__)) then
" "
else
"")
//mahge: OpenCL/CUDA GPU variables.
case var as VARIABLE(__) then
parVarInit(var, outStruct, i, &varDecls, &varInits, &varFrees)
Expand Down Expand Up @@ -3416,17 +3416,17 @@ case var as VARIABLE(__) then
let &varInits += 'alloc_<%expTypeShort(var.ty)%>_array(&<%varName%>, <%listLength(instDims)%>, <%instDimsInit%>);<%\n%>'
let defaultValue = varDefaultValue(var, outStruct, i, varName, &varDecls, &varInits)
let &varInits += defaultValue
let &varFrees += 'clReleaseMemObject(<%varName%>.data);<%\n%>'
let &varFrees += 'clReleaseMemObject(<%varName%>.info_dev);<%\n%>'
let &varFrees += 'free(<%varName%>.info);<%\n%>'
let &varFrees += 'clReleaseMemObject(<%varName%>.data);<%\n%>'
let &varFrees += 'clReleaseMemObject(<%varName%>.info_dev);<%\n%>'
let &varFrees += 'free(<%varName%>.info);<%\n%>'
""
else
let &varDecls += 'device_<%expTypeShort(var.ty)%> <%varName%>;<%\n%>'
let &varInits += '<%varName%> = ocl_device_alloc(sizeof(modelica_<%expTypeShort(var.ty)%>));<%\n%>'
let &varFrees += 'clReleaseMemObject(<%varName%>);<%\n%>'
let &varDecls += 'device_<%expTypeShort(var.ty)%> <%varName%>;<%\n%>'
let &varInits += '<%varName%> = ocl_device_alloc(sizeof(modelica_<%expTypeShort(var.ty)%>));<%\n%>'
let &varFrees += 'clReleaseMemObject(<%varName%>);<%\n%>'
""
else let &varDecls += '#error Unknown parallel variable type<%\n%>' ""
end parVarInit;

Expand Down

0 comments on commit f1ede99

Please sign in to comment.