- Added boxptr_realString

- Bugfix for boxptr_intReal


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

Author: sjoelund

c_runtime/meta_modelica_builtin.cpp

@@ -209,7 +209,7 @@ modelica_metatype boxptr_intNeg(modelica_metatype i)
 
 modelica_metatype boxptr_intReal(modelica_metatype i)
 {
-  return mmc_mk_rcon(-(mmc__unbox__integer(i)));
+  return mmc_mk_rcon(mmc__unbox__integer(i));
 }
 
 modelica_metatype boxptr_intString(modelica_metatype i)
@@ -326,6 +326,11 @@ realString_rettype realString(modelica_real r)
   return res;
 }
 
+modelica_metatype boxptr_realString(modelica_metatype r)
+{
+  return mmc_mk_scon(realString(mmc_prim_get_real(r)));
+}
+
 modelica_metatype boxptr_realAdd(modelica_metatype r1, modelica_metatype r2)
 {
   return mmc_mk_rcon(mmc_prim_get_real(r1)+mmc_prim_get_real(r2));

c_runtime/meta_modelica_builtin.h

@@ -186,6 +186,8 @@ typedef modelica_string_t realString_rettype;
 realInt_rettype realInt(modelica_real);
 realString_rettype realString(modelica_real);
 
+modelica_metatype boxptr_realString(modelica_metatype);
+
 /* String Character Conversion */
 typedef modelica_integer stringCharInt_rettype;
 typedef modelica_string_t intStringChar_rettype;