- Use boehm GC for HPCOM pthreads

- Don't use boehm GC, but rather the chosen allocation scheme for create_index_spec git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@18322 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Nov 27, 2013 · 2647c7f · 2647c7f
1 parent abf6fc4
commit 2647c7f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Compiler/Template/CodegenC.tpl b/Compiler/Template/CodegenC.tpl
@@ -597,7 +597,7 @@ template simulationFile(SimCode simCode, String guid)
       int res;
       DATA data;
       <%symbolName(modelNamePrefixStr,"setupDataStruc")%>(&data);
-      <%if Flags.isSet(HPCOM) then 'omc_alloc_interface = omc_alloc_interface_pooled;<%\n%>'%>omc_alloc_interface.init();
+      <%if boolAnd(Flags.isSet(HPCOM), boolNot(stringEq(getConfigString(HPCOM_CODE),"pthreads_spin"))) then 'omc_alloc_interface = omc_alloc_interface_pooled;<%\n%>'%>omc_alloc_interface.init();
       res = _main_SimulationRuntime(argc, argv, &data);
       return res;
     }

diff --git a/SimulationRuntime/c/util/index_spec.c b/SimulationRuntime/c/util/index_spec.c
@@ -103,7 +103,7 @@ void create_index_spec(index_spec_t* dest, int nridx, ...)
     dest->ndims = nridx;
     dest->dim_size = size_alloc(nridx);
     dest->index = index_alloc(nridx);
-    dest->index_type = (char*)GC_malloc_atomic(nridx+1);
+    dest->index_type = (char*)generic_alloc(nridx+1,sizeof(char));
     for(i = 0; i < nridx; ++i) {
         dest->dim_size[i] = va_arg(ap, _index_t);
         dest->index[i] = va_arg(ap, _index_t*);