- fix bug "Memory performance issue in 1.9.0 beta 2" reported by MathCore.

  + use internal RML allocation for Print.getString and Print.getErrorString
  + do not use strdup in Print_omc.cpp for Print.getString and Print.getErrorString

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

Author: adrpo

Compiler/runtime/Print_omc.cpp

@@ -64,15 +64,15 @@ extern const char* Print_getString(void)
   if (res == NULL)
     MMC_THROW();
   // fprintf(stderr, "Print_getString: %s##\n", res);fflush(NULL);
-  return strdup(res);
+  return res; // strdup(res);
 }
 
 extern const char* Print_getErrorString(void)
 {
   const char* res = PrintImpl__getErrorString();
   if (res == NULL)
     MMC_THROW();
-  return strdup(res);
+  return res; // strdup(res);
 }
 
 extern void Print_clearErrorBuf(void)

Compiler/runtime/Print_rml.c

@@ -77,9 +77,14 @@ RML_END_LABEL
 RML_BEGIN_LABEL(Print__getErrorString)
 {
   const char* str = PrintImpl__getErrorString();
+  rml_uint_t nbytes = strlen(str);
+  struct rml_string *retval;
   if (str == NULL)
     RML_TAILCALLK(rmlFC);
-  rmlA0=(void*)mk_scon((char*)str);
+  // use internal RML to allocate the string memory!
+  retval = rml_prim_mkstring(nbytes,0);
+  memcpy(retval->data, str, nbytes+1); /* including terminating '\0' */
+  rmlA0 = RML_TAGPTR(retval);
   RML_TAILCALLK(rmlSC);
 }
 RML_END_LABEL
@@ -104,9 +109,14 @@ RML_END_LABEL
 RML_BEGIN_LABEL(Print__getString)
 {
   const char* str = PrintImpl__getString();
+  rml_uint_t nbytes = strlen(str);
+  struct rml_string *retval;
   if (str == NULL)
     RML_TAILCALLK(rmlFC);
-  rmlA0=(void*)mk_scon((char*)str);
+  // use internal RML to allocate the string memory!
+  retval = rml_prim_mkstring(nbytes,0);
+  memcpy(retval->data, str, nbytes+1); /* including terminating '\0' */
+  rmlA0 = RML_TAGPTR(retval);
   RML_TAILCALLK(rmlSC);
 }
 RML_END_LABEL