Bootstrapping: #1318

- Changed System.stringAppendList to use stringAppendListExt in OMC (else you get conflicting types)
  - Added testcase meta/DumpTest.mos: It tests Dump.dump Dump.dumpStr Dump.getAstAsCorbaString and DumpGraphviz.dump functionality in OMC
- Bugfix for errorext.cpp (declaring globals as static, so they are not free'd multiple times when we dynamically load functions that also linked against errorext)


git-svn-id: https://openmodelica.org/svn/OpenModelica/branches/sjoelund-functiontree@6363 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Compiler/System.mo

@@ -806,7 +806,7 @@ function stringAppendList
   input list<String> listWithStrings;
   output String appendedString;
 
-  external "C";
+  external "C" appendedString=stringAppendListExt(listWithStrings);
 end stringAppendList;
 
 function refEqual

Compiler/runtime/errorext.cpp

@@ -49,15 +49,15 @@ struct absyn_info{
   int ce;
 };
 // if error_on is true, message is added, otherwise not.
-bool error_on=true;
+static bool error_on=true;
 
 #include "ErrorMessage.hpp"
-std::string currVariable("");
-absyn_info finfo;
-bool haveInfo(false);
-stack<ErrorMessage*> errorMessageQueue; // Global variable of all error messages.
-vector<pair<int,string> > checkPoints; // a checkpoint has a message index no, and a unique identifier
-string lastDeletedCheckpoint = "";
+static std::string currVariable("");
+static absyn_info finfo;
+static bool haveInfo(false);
+static stack<ErrorMessage*> errorMessageQueue; // Global variable of all error messages.
+static vector<pair<int,string> > checkPoints; // a checkpoint has a message index no, and a unique identifier
+static string lastDeletedCheckpoint = "";
 
 /* Adds a message without file info. */
 void add_message(int errorID,

c_runtime/meta_modelica_builtin.cpp

@@ -442,6 +442,12 @@ stringAppendList_rettype stringAppendList(modelica_metatype lst)
   return res_head;
 }
 
+/* OMC declares this const, but we don't always use it in that manner... */
+stringAppendListExt_rettype stringAppendListExt(modelica_metatype lst)
+{
+  return stringAppendList(lst);
+}
+
 stringAppend_rettype stringAppend(modelica_string_const s1, modelica_string_const s2)
 {
   int len1 = strlen(s1);

c_runtime/meta_modelica_builtin.h

@@ -177,6 +177,7 @@ typedef modelica_integer stringInt_rettype;
 typedef modelica_metatype stringListStringChar_rettype;
 typedef modelica_string_t listStringCharString_rettype;
 typedef modelica_string_t stringAppendList_rettype;
+typedef modelica_string_const stringAppendListExt_rettype;
 typedef modelica_string_t stringAppend_rettype;
 typedef modelica_integer stringLength_rettype;
 typedef modelica_integer stringCompare_rettype;
@@ -188,6 +189,7 @@ stringInt_rettype stringInt(modelica_string_t);
 stringListStringChar_rettype stringListStringChar(modelica_string_t);
 listStringCharString_rettype listStringCharString(modelica_metatype);
 stringAppendList_rettype stringAppendList(modelica_metatype);
+stringAppendListExt_rettype stringAppendListExt(modelica_metatype);
 stringAppend_rettype stringAppend(modelica_string_const,modelica_string_const);
 stringLength_rettype stringLength(modelica_string_const);
 stringCompare_rettype stringCompare(modelica_string_t,modelica_string_t);