- Made System.int/realMaxLit external "builtin" again (because extern…

…al "C" is limited to 32-bit int, while our longs are 64-bit)

  - Plus some fixes to the runtime system (declaring them in a header, since external "builtin" does not do that for us)


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

Compiler/Util/System.mo

@@ -755,12 +755,12 @@ end unquoteIdentifier;
 
 public function intMaxLit "Returns the maximum integer that can be represent using this version of the compiler"
   output Integer outInt;
-  external "C" outInt=System_intMaxLit();
+  external "builtin" outInt=intMaxLit();
 end intMaxLit;
 
 public function realMaxLit "Returns the maximum integer that can be represent using this version of the compiler"
   output Real outReal;
-  external "C" outReal=System_realMaxLit();
+  external "builtin" outReal=realMaxLit();
 end realMaxLit;
 
 end System;

c_runtime/meta_modelica.c

@@ -483,13 +483,3 @@ void* boxptr_valueHashMod(void *p, void *mod)
 {
   return mmc_mk_icon(mmc_prim_hash(p) % (unsigned long) mmc_unbox_integer(mod));
 }
-
-double realMaxLit()
-{
-  return DBL_MAX / 2048; /* in case some non-linear or ODE solver tries to add eps to this value */
-}
-
-long intMaxLit()
-{
-  return LONG_MAX / 2;
-}

c_runtime/meta_modelica_builtin.cpp

@@ -633,4 +633,14 @@ modelica_metatype boxptr_listRest(modelica_metatype lst)
   return MMC_CDR(lst);
 }
 
+realMaxLit_rettype realMaxLit()
+{
+  return DBL_MAX / 2048; /* in case some non-linear or ODE solver tries to add eps to this value */
+}
+
+intMaxLit_rettype intMaxLit()
+{
+  return LONG_MAX / 2;
+}
+
 }

c_runtime/meta_modelica_builtin.h

@@ -175,6 +175,11 @@ void boxptr_setGlobalRoot(modelica_metatype, modelica_metatype);
 modelica_metatype boxptr_valueConstructor(modelica_metatype);
 #define referenceEq(X,Y) ((X) == (Y))
 
+typedef modelica_real realMaxLit_rettype;
+typedef modelica_integer intMaxLit_rettype;
+realMaxLit_rettype realMaxLit();
+intMaxLit_rettype intMaxLit();
+
 #if defined(__cplusplus)
 }
 #endif